关于VBA获取未打开文件的工作表名

uling · 发表于 2009-12-19 10:53

原帖由 cflood 于 2009-12-18 21:52 发表

不要说ExecuteExcel4Macro，就是系统调用dll里的过程也要把dll文件打开才行，要不怎么读取过程内容，只不过没有窗口罢了。

那你就告诉我怎么不显示窗口读取吧

uling · 发表于 2009-12-19 10:54

原帖由 lipton 于 2009-12-18 22:34 发表

代码测试了，以前没有发现定义名称这个问题，谢谢
测试后发现命名和表名稍微不同，如下：
axc
'page 1$'《=表名
'page 1$'Print_Area〈=定义名称
'page 1$'Print_Titles〈=定义名称

运行的代码 ...

不管怎么样,先谢谢,我看看这个

uling · 发表于 2009-12-19 11:04

原帖由 detergent181 于 2009-12-18 22:15 发表
Sub abc()
Set mycn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Dim tb As String
mystr = "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source= ...

测试了,可以获取,非常感谢

kevingarnett198 · 发表于 2011-8-23 16:48

uling 发表于 2009-12-18 20:33
和你说的不是一个概念的
这里主要是用到ExecuteExcel4Macro

如果要读取的文件是从一个旧文件复制粘贴过来后而改名的,若这个文件从未被打开过. 那这个MACRO似乎也不能返回正确的结果. 我试过每次都是返回#REF...

yuhuiyong · 发表于 2014-3-24 12:39

abc文件在F:\AA\BB\abc.xls，如何在下面这句中写出
mystr = "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.Path & "\abc.xls"

谢谢

LMY123 · 发表于 2018-9-30 11:52

For Each c In cat.Tables

		自动登录	找回密码
密码			免费注册

[求助] 关于VBA获取未打开文件的工作表名