首页 >>  正文

如何在VB的Text控件中显示Excel表上的指定内容vb显示excel表格内容

来源:www.zuowenzhai.com    作者:编辑   日期:2024-06-15
  Private Sub Command1_Click()Dim xlsApp As Object, xlsWb As Object, xlsWorksheet As ObjectSet xlsApp = CreateObject(\"excel.application\") '创建excel.application对象xlsApp.Visible = True '显示excel 主界面xlsApp.Visible = False '隐藏excel 主界面xlsApp.workbooks.Open (\"D:\\1\\1.xls\") '打开D:\\1\\1.xlsSet xlsWb = xlsApp.workbooks(\"1.xls\") '设置xlswb变量引用1.xls 工作簿'MsgBox xlsWb.Name '显示工作薄的名字Set xlsWorksheet = xlsWb.worksheets(1) '设置xlsworksheet变量引用1.xls 工作簿的第一个工作表MsgBox xlsWorksheet.cells(1, 1) '显示a1单元格的内容MsgBox xlsWorksheet.cells(1, 2) '显示a1单元格的内容Text1.Text = xlsWorksheet.cells(1, 1)Text2.Text = xlsWorksheet.cells(1, 2)xlsApp.quit'关闭excelEnd Sub


15724732990VB取TEXT1中两字母之间的字母,请问怎么写??
国温独答:一、给你一个通用过程(两字母可以为任意长度)Function Mid_Ex(Zfc As String, Zf1 As String, Zf2 As String) As String Dim i As Integer, j As Integer, S As String i = InStr(Zfc, Zf1)j = InStr(i, Zfc, Zf2)Mid_Ex = Mid(Zfc, i + Len(Zf1), j - i - Len(Zf1))...

15724732990vb数据写入excel,请问如何用vb提取excel表格中的数据有一ex
国温独答:1.选择”开发工具“选项卡,点击”Visual Basic“(或者用快捷键Alt+F11)2.出现VBA编辑界面,注意看左侧,选择需要运行代码的工作表,此例为Sheet1;双击进入Sheet1相关程序编辑界面 3.在程序编辑区域,复制上上述代码 4.点击上面的三角号,运行程序 5.关闭VBA界面,返回工作表,就可以看到程序运行结果...

15724732990VB.NET 2008 动态编译,在RichTextBox1 中填入代码,点击Button1运行该...
国温独答:TextBox1) Catch ex As Exception MsgBox(ex.Message) End Try End SubEnd Class'在文本框中输入的函数sub a(obj) dim a ,b a=40:b=30 if a>b then

15724732990vb text控件透明
国温独答:看不清你的代码。想提点个人观点。vb的text不能被设置成透明,api能不能做到不清楚,不过TextBox控件却能做到。添加方法:Microsoft Forms 2.0 Object library中的TextBox1Private Sub Form_Load()TextBox1.Enabled = False TextBox1.BackStyle = 0 End Sub ...

15724732990access数据库中,数据以rtf格式存储(图文混合的数据),在vb中如何...
国温独答:1、在MicrosoftAccess中,打开所需数据库,然后打开数据库对象:表、查询、窗体或报表。2、选定所需输出数据的行和列。3、单击“文件”菜单中的“另存为/导出”命令。4、选择“另存为一个外部文件或数据库”选项,然后单击“确定”按钮。5、在“保存类型”框中,为输出数据选择格式:如果要创建保持原...

15724732990VB调用Excel单元格数据
国温独答:Open "D\my ducuments\book1.xls"Set Exb = ExApp.Workbooks(1)Set Exsh = Exb.Worksheets("Sheet1")Text1.Text = Exsh.Range("D4")ExApp.Workbooks.Close ExApp.Quit Set ExApp = Nothing End Sub 运行前要在菜单的“工程”-“引用”-找到Microsoft Excel 的lib库才可以运行 ...

15724732990vb怎么把TEXT中的内容写到指定路径的EXCEL 文件中,为啥老是提示 类不...
国温独答:ex.Workbooks.Open("D:\11.xls ")改为 ex.Workbooks.Add("D:\11.xls ")

15724732990VB 窗口显示
国温独答:Private Const GWL_EXSTYLE = (-20)Private Const WS_EX_LAYERED = &H80000 Private Const WS_EX_TRANSPARENT As Long = &H20& Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function ...

15724732990怎么样把VB中text数据一个一个保存到(不能覆盖)excel或者是记事本中
国温独答:Private Sub Command1_Click()Open App.Path & "\data.txt" For Append As #1 Print #1, text1.text Close #1 End Sub 单击这个按钮一次,就保存一次 保存到excel中只要把data.txt改成data.xls就可以了

15724732990VB OLE中显示EXCEL sheet问题
国温独答:arrayListlog.Add("Error on readExcel : " & ex.Message)Return Nothing Finally ExcelConn.Close()ExcelConn.Dispose()End Try End Function sheetName 可以改的。通过更改dt.rows(index) <- index 就是sheet的序号 在这里放的是。。。 Dim dr As DataRow = dt.Rows(0) 。。。也就是第一...


(编辑:曾支柳)
联系方式:
关于我们 | 客户服务 | 服务条款 | 联系我们 | 免责声明 | 网站地图
@ 作文摘要网