Excel表格中有多个sheet表，如何用c语言或者vb语言依次打开这些表然后读取数据呢？
发布网友
发布时间：2022-04-23 06:55
共2个回答
热心网友
时间：2023-10-06 04:50
'首先菜单，工程/引用，勾选 Microsoft Excel 11.0 object library
'打开：
Dim Xls As Excel.Application ''定义EXCEL类(需要工程/引用)
Dim Xlsbook As Excel.Workbook '定义工作簿类
Dim Xlssheet As Excel.Worksheet '定义工作表类
Set Xls = CreateObject("Excel.Application") '创建EXCEL应用类
Xls.Visible = true '设置EXCEL可见
Set Xlsbook = Xls.Workbooks.open(”D:\表.xls“) '打开EXCEL工作簿，路径注意加双引号
Set Xlssheet = Xlsbook.Worksheets(1) '打开第1个工作表（第2个改成2，以此类推）
Xlssheet.Activate '激活工作表
'读取：
Text1.Text = Xlssheet.Cells(1, 1) '读取单元格1行1列赋值给Text1（运用循环可快速读取）
'关闭：
Xls.Quit '关闭EXCEL
Set Xlssheet = Nothing '释放资源
Set Xlsbook = Nothing '释放资源
Set Xls = Nothing '释放资源
热心网友
时间：2023-10-06 04:50
