用VB读取excel文件数据，已经引用了VB中Excel的控件，但总报错，不知道是代码还是其他问题，求高手解答。 vb访问excel文件必须引用类型

vb如何打开excel文件 VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经。VB.NET2010无法引用Office2013的Excel？ 现象：在VB项目中已经引用了COM中的Microsoft Office 15.0 Object Library，但是在.NET中找不到Microsoft.Office.interop.excle。或者说在Microsoft.Office下没有interop。如何在vb中打开Excel Visual Basic开发工具模式可以直接从Excel表格中进入，不需要另外打开。具体步骤：1、在电脑上桌面上找到Excel表格图标，双击打开。2、打开Excel软件后，点击左上角按钮。3、点击后会弹出一个菜单，在菜单中点击Excel选项按钮。4、然后在弹出的对话框中勾选自定义功能区中的“开发工具”。5、然后点击右下方确定按钮。6、点击确定后，会返回Excel页面。7、然后在Excel上方的导航栏中点击开发工具按钮。8、然后在开发工具页面，点击Visual Basic选项。9、点击后就会进入Visual Basic开发模式。10、点击左侧导航栏中的Excel中的sheet表格，就可以在Visual Basic中打开了。我想用VB调用EXCEL里面的数据 1、打开VB-》在form1上增加一个command1按钮，双击command1按钮，把以下代码放入窗体内；2、运行前，在菜单的选“工程”->；“引用”->；找到Microsoft Excel 12.0 Object Library->；确定；然后才可以运行；3、代码如下：Dim ExApp As New Excel.ApplicationDim Exb As Excel.WorkbookDim Exsh As Excel.WorksheetDim arr(6，6)As Integer '定义一个二维数组，数据类型为整数e79fa5e98193e78988e69d8331333238653336ExApp.Workbooks.Open\"c：\\book1.xls\"'打开EXEL文件，路径和文件名自己根据实际修改Set Exb=ExApp.Workbooks(1)Set Exsh=Exb.Worksheets(\"Sheet1\")For i=1 To 6 '假设是读取A1：F6的6X6区域数据For j=1 To 6arr(i，j)=Exsh.Cells(i，j)Next jNext i'把自己需要对数组数据进一步处理的部分加进去.ExApp.Workbooks.CloseExApp.QuitSet ExApp=NothingVB2005 引用类型/访问级别的问题 [1]Dim作用域为当前代码块，包括，模块、类、过程、函数、语句代码块如For.Next块[2]Public作用域为全局，不论当前的应用程序还是外接应用程序都可以访问被声明为Public的变量（模块、类等）[3]Friend作用域为当前类，只能被当前应用程序的与此过程（函数、事件、属性等）同处于同一类的过程（函数、事件、属性等）访问[4]Private与Dim大体相当[5]Shared声明了类中的一个静态成员。以后调用此过程时并不需要实例化该类，例如：Class PersonPublic NumberOfLegs As Integer=2End Class在调用时不必实例化该类：Label1.Text=Person.NumberOfLegs.ToString而不用：Dim Mary As New PersonLabel1.Text=Mary.NumberOfLegs.ToString[6]Static为静态变量（作用与VB 6中相同），作用域为所在过程或函数的上一级的作用域(若在某一窗体的过程中声明了Static变量，则此变量的作用域为此窗体）值得注意的是，不能像VB6那样声明一个Static过程而使此过程中的所有变量都成为Static变量[7]Protected我记不清了，回头想起来了再补充吧如何在VB中调用EXCEL表格数据？ 1、打开VB-》在form1上增加一个command1按钮，双击command1按钮，把以下代码放入窗体内；2、运行前，在菜单的选“工程”->；“引用”->；找到Microsoft Excel 12.0 Object Library->；确定；然后才可以运行；3、代码如下：Dim ExApp As New Excel.Application Dim Exb As Excel.Workbook Dim Exsh As Excel.Worksheet Dim arr(6，6)As Integer '定义一.1、打开VB-》在form1上增加一个command1按钮，双击command1按钮，把以下代码放入窗体内；2、运行前，在菜单的选“工程”->；“引用”->；找到Microsoft Excel 12.0 Object Library->；确定；然后才可以运行；3、代码如下：Dim ExApp As New Excel.ApplicationDim Exb As Excel.WorkbookDim Exsh As Excel.WorksheetDim arr(6，6)As Integer '定义一个二维数组，数据类型为整数ExApp.Workbooks.Open\"c：\\book1.xls\"'打开EXEL文件，路径和文件名自己根据实际修改Set Exb=ExApp.Workbooks(1)Set Exsh=Exb.Worksheets(\"Sheet1\")For i=1 To 6 '假设是读取A1：F6的6X6区域数据For j=1 To 6arr(i，j)=Exsh.Cells(i，j)Next jNext i'把自己需要对数组数据进一步处理的部分加进去.ExApp.Workbooks.CloseExApp.QuitSet ExApp=。怎样用VB读取Excel文件中表格中的数据？ Dim SheetID As IntegerDim XlsRow As LongDim TotalBit As IntegerDim MachineID00_Msg000(i)As StringDim i As IntegerSheetID=3 设定表编号，即Sheet的编号。Set ExcelApp=CreateObject(\"Excel.Application\")'Set ExcelBook=ExcelApp.Workbooks.Open(App.Path+\"\\Pameter.dat\")'路径Set ExcelSheet=ExcelBook.Worksheets(SheetID)'XlsRow=2 '读取起始行TotalBit=16 '要读取的行数For i=0 To(TotalBit-1)MachineID00_Msg000(i)=ExcelSheet.Range(\"D\"&XlsRow).valueXlsRow=XlsRow+1 '循还Next iExcelApp.quitSet ExcelSheet=NothingSet ExcelBook=NothingSet ExcelApp=Nothing