[求助]如何引入未打开的含有特定字符文件中的内容

hqx1962

如果C:\下有个AAAA2007AA.XLS文件，文件名中的A是未知字符，2007是已知的特定字符，在不打开该工作簿的情况下，如何将该工作簿SHEET1中（A1:C10)单元格中的内容引入当前工作簿的（B1:D10)单元格中。用VBA如何实现呢？请求高人指点！先谢谢了！

wuli1007

无论用哪种方式，实际上还是要打开的

一柱

这个问题有什么贴解答过吗？搜了一下没找到合适的答案

perfect131

可以不打开，参考
https://club.excelhome.net/threa ... tml?_dsign=f7bfc9b9

1. Sub aaa() '假设从本目录"AAAA2007**.XLS"工作簿"Sheet1"的"A1:C10"取值
   
2.     Path = ThisWorkbook.Path  '''路径
   
3.     WorkbookName = Dir(Path & "" & "AAAA2007**.XLS") ''目标工作簿
   
4.     SheetName = "Sheet1"  '''目标工作簿 sheet
   
5.     RangeName = "A1:C10"  ''复制的区域
   
6.     ''写入 B1:D10 ,,赋值区域
   
7.     With ThisWorkbook.ActiveSheet.Range("B1:D10")
   
8.         .Clear
   
9.         f = "'" & Path & "\[" & WorkbookName & "]" & SheetName & "'!" & Split(RangeName, ":")(0)
   
10.         .Formula = "=IF(ISBLANK(" & f & ")," & """""" & "," & f & ")"
    
11.         .NumberFormatLocal = "@"
    
12.         .Value = .Value
    
13.     End With
    
14. End Sub

复制代码

cjc209

ado连接可以不打开