A. VB 读取Excel的内容
定义变量不能动态进行。只能采用动态数组来进行或者变量交换使用也行。毕竟定义变量过程是先经过编译才能运行。动态的变量定义编译的时候是无法识别的。也无法使用。
B. VB读取Excel中单元格的内容
先把excel文件放到指定的路径然后逐行读取最后赋值到list中
C. vb读取excel内容
用CommonDialog可以解决选定打开.xls文件问题 然后就是读取进去 哈哈 保存代码如下 '添加command控件一个 MSFlexGrid控件一个 Private Sub Command1_Click() On Error Resume Next Dim fileadd As String CommonDialog1.ShowOpen CommonDialog1.Filter = "xls文件(*.xls)|*.xls" '选择你要的文件 fileadd = CommonDialog1.FileName MSHFlexGrid1.Redraw = False '关闭表格重画，加快运行速度 Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open(fileadd) '打开已经存在的EXCEL工件簿文件 xlApp.Visible = True '设置EXCEL对象可见（或不可见） Set xlsheet = xlBook.Worksheets("Sheet1") '设置活动工作表 For R = 0 To MSHFlexGrid1.Rows – 1 '行循环 For C = 0 To MSHFlexGrid1.Cols – 1 '列循环 MSHFlexGrid1.Row = R MSHFlexGrid1.Col = C xlBook.Worksheets("Sheet1").Cells(R + 1, C + 1) = MSHFlexGrid1.Text '保存到EXCEL Next C Next R MSHFlexGrid1.Redraw = True xlApp.DisplayAlerts = False '不进行安全提示 'Set xlsheet = Nothing 'Set xlBook = Nothing 'xlApp.Quit 'Set xlApp = Nothing End Sub
D. 请问如何用vb实现对excel文件的读取和写入操作
Dim wksObj As Object 'Set ex = CreateObject("Excel.Application"）Set wkbObj = ex.Workbooks.Open(App.Path & "\main.xls"）' 打开当前文件夹下的main.xlsSet wksObj = ex.Worksheets(1) '打开工作表1
E. 用vb读取Excel中某个单元格的数据
单纯的说怎么读取很简单，假设你的控件名称为A，则 A.text = “sheet1.cells(2,2).value”
下面给出VB.NET 的完整代码：
PublicClassForm1PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.ClickDimDataSPathAsStringDataSPath="C:a.xls"DimExlApp=CreateObject("Excel.Application")Dimxlbook=ExlApp.WorkbooksDimxlbk=ExlApp.workbooks.Open(DataSPath)DimSt1=xlbk.worksheets(1)TextBox1.Text=DataSPath&"表1中"&St1.cells(2,2).valueSt1=Nothingxlbook=NothingExlApp=NothingMsgBox("OK",MsgBoxStyle.Exclamation,"Tudy")EndSubEndClass
F. vb读取EXCEL数据
放置一个CommonDialog1控件用于选择Excel文件Private Sub Command1_Click()Dim i As LongDim Sum1, Sum2 As LongDim VBExcel As Excel.ApplicationDim xlbook As Excel.WorkbookDim xlssheet As Excel.WorksheetSet VBExcel = CreateObject("Excel.Application")CommonDialog1.FileName = ""CommonDialog1.Filter = "EXCEL文件(*.xlsx)|*.xlsx"CommonDialog1.ShowOpenIf CommonDialog1.FileName = "" Then Exit Sub Else Set xlbook = VBExcel.Workbooks.Open(CommonDialog1.FileName) Set xlssheet = xlbook.Worksheets(1) VBExcel.Visible = True For i = 2 To 35535 If xlssheet.Cells(i, 1) = "" Then Exit For Else If xlssheet.Cells(i, 1) = "张三" Then '检查第i行，第一列数据，自己可以定义 Sum1 = Sum1 + xlssheet.Cells(i, 2) End If If xlssheet.Cells(i, 1) = "李四" Then Sum2 = Sum2 + xlssheet.Cells(i, 2) End If End If NextEnd IfText1.Text = Sum1Text2.Text = Sum2xlbook.Close (True)Set xlssheet = NothingSet xlbook = NothingSet VBExcel = NothingEnd Sub
G. 怎样用VB读取Excel文件中表格中的数据
1、VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。
2、VB读写EXCEL表：VB本身提自动化功能可以读写EXCEL表，其方法如下：
第一步：在工程中引用Microsoft Excel类型库：从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。
第二步：在通用对象的声明过程中定义EXCEL对象：Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.Worksheet.
第三步：在运用以上VB命令操作EXCEL表时，除非设置EXCEL对象不可见，否则VB程序可继续执行其它操作，也能够关闭EXCEL，同时也可对EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时，VB程序无法知道，如果此时使用EXCEL对象，则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况，使得VB与EXCEL脱节。
H. VB中如何读取Excel中的数据
Publicf_rowAsIntegerPublicm_rowAsIntegerPrivateSubCommand1_Click()Dimn_shuziAsIntegerDimxlappAsExcel.ApplicationDimxlbookAsExcel.WorkbookDimxlsheetAsExcel.WorksheetDimshuzu(3)AsIntegerSetxlapp=NewExcel.ApplicationSetxlbook=xlapp.Workbooks.Open("c:1.xls")xlapp.Visible=TrueSetxlsheet=xlbook.Worksheets("Sheet1")n_shuzi=Val(xlsheet.Cells(1,1))Forf_row=0To3shuzu(f_row)=Val(xlsheet.Cells(f_row+1,1))NextEndSub
I. vb6.0怎么读取excel表中内容
下面的例子，供你参考：
’用CommonDialog可以解决选定打开.xls文件问题然后就是读取进去哈哈保存代码如下'添加command控件一个CommonDialog，MSFlexGrid控件一个PrivateSubCommand1_Click()OnErrorResumeNextDimfileaddAsStringCommonDialog1.ShowOpenCommonDialog1.Filter="xls文件(*.xls)|*.xls"'选择你要的文件fileadd=CommonDialog1.FileNameMSHFlexGrid1.Redraw=False'关闭表格重画，加快运行速度SetxlApp=CreateObject("Excel.Application")'创建EXCEL对象SetxlBook=xlApp.Workbooks.Open(fileadd)'打开已经存在的EXCEL工件簿文件xlApp.Visible=True'设置EXCEL对象可见（或不可见）Setxlsheet=xlBook.Worksheets("Sheet1")'设置活动工作表ForR=0ToMSHFlexGrid1.Rows-1'行循环ForC=0ToMSHFlexGrid1.Cols-1'列循环MSHFlexGrid1.Row=RMSHFlexGrid1.Col=C‘这里写你SQL语句NextCNextRMSHFlexGrid1.Redraw=TruexlApp.DisplayAlerts=False'Setxlsheet=Nothing'SetxlBook=Nothing'xlApp.Quit'SetxlApp=NothingEndSub
未经允许不得转载：山九号 » vb读取excel文件|vb读取excel内容
