VB6.0读取EXCEL工作表中区域内的数据

Private Sub Command1_Click()

Dim Xlbook As Workbook

Dim Xlapp As Application

Dim Xlsheet As Worksheet

Set Xlapp = CreateObject("ExcelApplication") '隐藏方式打开excel

Set Xlbook = XlappWorkbooksOpen("D:\123xls") '打开工作簿

Set Xlsheet = XlbookWorksheets(1) '让xlsheet代表第一个表

Print XlsheetRange("A1") '取数据什么的跟VBA一样的。

XlbookClose False '关闭工作簿 不保存

Set Xlapp = Nothing '释放

Set Xlbook = Nothing

End Sub

xlbook = xlappWorkbooksOpen(“D:\123clsx”）和你说明中的123xlsx文件名不同，检查一下，确保文件确实存在。

InvalidCastException 是 无效类型转换异常，用n_shuzi = xlsheetCells(1, 1)value试试。

随着信息技术的发展，特别是网络信息交流的需要，要求有快捷的信息查询技术。VB能够通过多种方式对Excel文档进行访问[1，2]，以满足各种信息查询的要求。本文讨论VB对Excel访问的三种方式：1、直接调用Excel应用程序对象进行访问；2、通过数据访问对象（DataAccessObject，简称DAO）访问Excel;3、通过ActiveX数据对象（ActiveXDataObject，简称ADO）访问Excel。为方便讨论，设有“c:\mydocument\book1xls”Excel文档，其中有“姓名”、“语文”等字段和若干条记录。１VB直接调用Excel应用程序对象进行访问利用ActiveX技术，VB直接调用Excel应用程序对象，可以实现对诸如工作表、文本框、图表、透视表等多达128个不同对象的调用。应用该访问技术，系统要装有MicrosoftExcel应用程序，并在VB的IDE（IntegratedDevelopmentEnvironment，集成开发环境）环境中引用“(本文共计2页)

sub test()

Set xlsApp=GetObject(,"excelapplication")

if xlsApp Is Nothing then exit sub

msgbox xlsAppActiveCellValue

end sub

用Set xlsApp=GetObject(,"excelapplication")可以获得当前打开的excel程序

可以用xlsAppworkbooks(i)表示第i个打开的工作簿（也就是xls文件）

再往下是xlsAppworkbooks(i)sheets(j)表示上述工作簿的第j个工作表

再往下是xlsAppworkbooks(i)sheets(j)cells(rowIndex, ColIndex)表示上述工作表rowIndex行,ColIndex列的单元格，或者用类似xlsAppworkbooks(i)sheets(j)range("A1:B10")取得上述工作表中的A1:B10区域

如果在装office的时候选上“VBA帮助文件”，可以进excel后按alt + F11进入“Microsoft Visual basic”编辑器，然后按F1查看帮助中关于Excel对象模型以及相关对象、属性、方法、事件的介绍

12 open file as #1 ; close 1 读取指定行指定列的表格中的数据，先指定excel的sheet在指定行列 很简单的说把 那可以这样 dim row as intege dim low as intege 开始做的是 =sheet(i,j)3还是指定你要的行列 ，然后赋颜色 int i int j SHEET(I,J)BACKCOLOR=RGB(0,0,0)我的是大概原理有段时间没用vb 了但是大概就是这样把

以上就是关于VB6.0读取EXCEL工作表中区域内的数据全部的内容，包括:VB6.0读取EXCEL工作表中区域内的数据、VB中如何读取Excel中的数据、VB访问Excel的几种方式等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！