Question

excel vba使用通配符*时报错

我在mac上安装了excel 2016,在一个目录下有多个excel表格，想要合并这些表格到一个表格中。使用百度经验的代码：

Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MsgBox MyPath
MyName = Dir(MyPath & "/" & "*.xls") //这里报运行时错误53，未找到文件
AWbName = ActiveWorkbook.Name
MsgBox AWbName
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "/" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub

MyName=Dir(...)那一行报错，我将“*.xls”删掉或者改成一个具体的xls文件，如“abc.xls”时，运行正常。感觉是通配符*的解析出错了？有人知道怎么解决吗？
另外，在windows下，excel 2016中，这一行不会报错，但是合并过程中excel会崩掉，但是在mac下，excel 2016中，这一行会报错。。

Answer 1

Sub 整理宏()

Dim mypath, myname, awbname

Dim wb As Workbook, wbn As String

Dim g As Long

Dim num As Long

Dim box As String

Application.ScreenUpdating = False

mypath = ActiveWorkbook.Path

myname = Dir(mypath & "\" & "*.xls")

awbname = ActiveWorkbook.Name

num = 0

Do While myname <> ""

If myname <> awbname Then

Set wb = Workbooks.Open(mypath & "\" & myname)

num = num + 1

With Workbooks(1).ActiveSheet

.Cells(.Range("a65536").End(xlUp).Row + 2, 1) = Left(myname, Len(myname) - 4)

For g = 1 To Sheets.Count

wb.Sheets(g).UsedRange.Copy .Cells(.Range("a65536").End(xlUp).Row + 1, 1)

Next

wbn = wbn & Chr(13) & wb.Name

wb.Close False

End With

End If

myname = Dir

Loop

Range("a1").Select

Application.ScreenUpdating = True

MsgBox "共合并了" & num & "个工作薄下的全部工作表。如下：" & Chr(13) & wbn, vbInformation, "提示"

End Sub

Answer 2

MyName = Dir(MyPath & "\" & "*.xls")
斜杠输入错误。改成 \

追问

在unix系统下路径使用的是“/”，windows下是“\”。这个没有问题。我把通配符改成具体的.xls文件就能合并了

追答

经测试在win系统下没有出错。

Answer 3

Dir(MyPath & "/" & "*.xls") 更改成：Dir(MyPath & "/", MacID("xls"))
MyName = Dir 更改成 MyName = Dir("")

追问

还是不行，感觉没检测到111.xls和222.xls，没有合并成功:

追答

这句改成：
Dir(MyPath & "/", MacID("XLS5"))

追问

还是一样

追答

我没法在mac系统运行这句代码。是不是路径存在问题。
按照微软说法，只能用MacID函数转换来实现。
原文：
由于 Macintosh 不支持通配符，请使用文件类型来标识文件组。可以使用 MacID 函数指定文件类型而不是使用文件名。例如，以下语句返回当前文件夹中的第一个 TEXT 文件的名称：
Dir("SomePath", MacID("TEXT"))

追问

嗯，谢谢你。看到MacID()才找到问题所在。我在stackoverflow上看到了相应的内容，用XLS8可以解决这个问题了，但是现在问题是，在合并完第一个.xls文件后，跳出end if后面的MyName=dir("")让MyName变成“”，也就是跳回while时MyName "" 判断为真，循环结束，也就不会合并后面的文件了。

追答

那就直接修改myname=dir("")为myname=""

追问

第一次进到while的时候MyName="111.xls",也就是第一个要合并的xls。合并完成后，到2的位置，MyName被设置为“”，因此Loop返回到1时，MyName == ""，因此MyName <> ""为假(前面说错了)，跳出了循环，也就不会合并后面的xls了

追答

你的意思是myname=dir("")，并没有返回下一个文件名？
试试将MyName=dir("")改成MyName=dir
或者检查这些被合并的文件是否在你第宏代码所在的工作簿的同个目录下

Answer 4

*.xls
改为 *.xls*

追问

MyName = Dir(MyPath & "/" & "*.xls* ")这样吗？还是有错啊

目录下的文件：

想把111.xls和222.xls合并到1.xls中，上面的*.xls改成111.xls能合并111.xls到1.xls中。感觉就是通配符的问题。。。

追答

可能 Mac 里 Dir 不支持 模糊查找
没用过Mac

Answer 5

我也遇到的同样的问题，请问解决了嘛？