遍历特殊文件名

daqinqin

用dir遍历这两个文件时,错误提示这两个文件未找到。文件夹里面有其他的文件，所以我在想是不是正则表达式用错了。
myfile = Dir(ThisWorkbook.Path & "\汇总表*.xlsx")

    Do While myfile <> ""
        Set wb = GetObject(ThisWorkbook.Path & "\" & "汇总表*.xlsx")
        wb.sheets(1).range("A1") = 1
        myfile = Dir
    Loop

ahn

daqinqin 发表于 2019-6-4 22:08
那两个表是空的excel文件没有任何内容

「能不能打开文件」与「文件有没有内容」是同一个概念吗？

Set wb = GetObject(ThisWorkbook.Path & "\" & "汇总表*.xlsx")
改成
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & myfile)
可保万无一失！

ahn

试试把
Set wb = GetObject(ThisWorkbook.Path & "\" & "汇总表*.xlsx")
改成
Set wb = GetObject(ThisWorkbook.Path & "\" & myfile)

l00l00

myfile=dir(ThisWorkbook.Path & "\" & "汇总表*.xlsx")
    Do While myfile <> ""
           Set wb = myfile
           wb.sheets(1).range("A1") = 1
           myfile = Dir
    Loop

daqinqin

l00l00 发表于 2019-6-2 22:59
myfile=dir(ThisWorkbook.Path & "\" & "汇总表*.xlsx")
    Do While myfile  ""
           Set wb = m ...

谢谢，但是不行啊，set那句说要要求对象。

daqinqin

ahn 发表于 2019-6-2 00:16
试试把
Set wb = GetObject(ThisWorkbook.Path & "\" & "汇总表*.xlsx")
改成

谢谢，但是运行后那两个汇总表就打不开了

ahn

daqinqin 发表于 2019-6-4 00:00
谢谢，但是运行后那两个汇总表就打不开了

怎么会打不开呢？把你的工作簿发我 QQ45855810 看看。

daqinqin

ahn 发表于 2019-6-4 11:05
怎么会打不开呢？把你的工作簿发我 QQ45855810 看看。

那两个表是空的excel文件没有任何内容

l00l00

要用OPEN语句，我没写了。