真正不打开跨表提取或导入数据

转角处的沉思

请教能否实现真正的不打开工作簿的情况下（包含后台不打开）进行跨工作簿的数据提取或导入。

如实现附件打开表2时不打开表1提取表1中A1:B1单元格内容到相应位置或者实现打开表1时不打开表2将表1中A1:B1单元格内容传递到表2相应位置，谢谢。

lcluck2002

在某本书上见过，excel里可以设置公式链接到关闭的文件里取得数据，通过这个原理，可以用VBA设置公式，取得你想要的数据。

limonet

用你的表1+附件表2，没有OPEN，也没有workbook(*)

limonet

两个文件放在同一目录
Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("adodb.connection")
    Cn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;HDR=NO';data source=" & ThisWorkbook.Path & "\表1.xlsm"
    StrSQL = "select * from [Sheet1$]"
    Range("a1").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

转角处的沉思

limonet 发表于 2023-7-24 10:54
用你的表1+附件表2，没有OPEN，也没有workbook(*)

感谢帮助，完美实现。测试了下这种方式是否是提取了表1中的整个工作表内容，
另外能否实现就提取某些特定的区域呢（这样考虑是基于有时整个工作表可能包含一些没用的数据，比较杂乱的情况）

ykcbf1100

limonet 发表于 2023-7-24 10:54
用你的表1+附件表2，没有OPEN，也没有workbook(*)

不错不错。
能不能限定范围提取呢？比如：[a1:b1]

limonet

ykcbf1100 发表于 2023-7-24 11:11
不错不错。
能不能限定范围提取呢？比如：[a1:b1]

有，[sheet1$a1:b1]

limonet

转角处的沉思 发表于 2023-7-24 11:08
感谢帮助，完美实现。测试了下这种方式是否是提取了表1中的整个工作表内容，
另外能否实现就提取某些特 ...

现在的代码就是表1中全部内容，因为你现在表1只有2个内容，所以就提取2个；
可以加条件、筛选，等等。

ykcbf1100

limonet 发表于 2023-7-24 11:12
有，[sheet1$a1:b1]

值得肯定。。。

WANT-T

严格来讲，不打开是不能读写数据的；广义上打开不仅仅是workbooks.open，还有通过公式的链接，通过ado的链接，或者pq等的链接，都是打开；狭义上打开一般仅只workbooks.open，所谓前台后台就是指能不能看见打开的窗口罢了！