注册 登录
编程论坛 VB6论坛

链接工作表代码修改

xvdongszhp 发布于 2017-07-08 00:28, 1094 次点击
源代码:temp =  " ' " & App.Path & "\[源数据表.xls]sheet1'!r1c1"
,如何将sheet1工作表修改为第二张工作表引用的代码(工作表名不固定)
1 回复
#2
风吹过b2017-07-08 08:53
temp =  " ' " & App.Path & "\[源数据表.xls]" &  EXCEL对象.workbooks(1).Sheets(2).name &  "'!r1c1"

这个 源数据表.xls 工作簿需要使用一个 EXCEL对象打开。临时使用可以用上面的,
也可以先把工作表的名字读出来,然后关闭文件 ,然后只使用读到的数据。

workbooks(1)  表示打开的第一个工作簿。也可以使用 ActiveWorkbook 来引用活动工作簿
Sheets(2)     表示第二个工作表
name          取工作表的名字,得到的结果如上面的 sheet1
1