excel vba 打开文件名中包含指定字符的文件并拷贝信息到汇总表上

可以在Excel表格中用下面的VBA程序实现：

Sub Test() '打开文件乎稿名中包含指定字符的文件并拷贝信息到汇总表上

Dim f$

Dim n&

Mypath = ThisWorkbook.Path &"岁纯孝\"

f = Dir(Mypath &"*.xls*")

Do While f >" "裤尺

if instr(f,"XXX")>0 then

n = n + 1

Workbooks.Open Mypath &f

Set c = ActiveWorkbook

arr=Range("A1:G1")

c.Close

Cells(n, 1).resze(1,Ubound(arr,2)) =arr

end if

f = Dir

Loop

End Sub

可以的！

使用hyperlink函数：

假设你的文件存在桌面的一个叫“文档世笑饥”的文件夹里面

则：在EXCEL表格里面的B1输入

=HYPERLINK("C:\Documents

and

Settings\Administrator\桌升谨面\文档\"&A1&".txt","文档")

这样，当你在A1输入文件名时，就可以自搜返动跳转了！

已验证！

不好意思，你把问题现象描述了一通，还不如直接把你要更改的EXCEL文件名全部复制了再粘贴上来！

发现文件名包含下列任何字符

“伍缓\

/

：*

？“

<

>

”后，

你可以在你的文件中，全部替换成“全角”的，就耐袜可以了。昌橘激

---