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
以上就是关于VB6.0读取EXCEL工作表中区域内的数据全部的内容,包括:VB6.0读取EXCEL工作表中区域内的数据、、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)