VBA中用shell命令调用COPY命令合并文件，为什么每次都少复制几个文件

代码
shell “cmd.exe /c copy d:\jszq\20130205*blod0010.txt
d:\jszq\20130205blod0010.txt
”,1
就是把几个分报表先合成一个总报表，然后再导入excel.
我查过，d:\jszq\目录下88个文件20130205*blod0010.txt，每次合成出来的20130205blod0010.txt
总是要少几个，到底哪里有问题呢。

因为文件太多，很可能是文件名有误你没检查到，比如文件名中有“o”与“0”错误等等，你用以下代码检查一下文件名20130205*blod0010.txt的个数是不是88个就知道了。
Dim i%
If Dir("d:\jszq\20130205*blod0010.txt") <> "" Then
i = 1
Do While Dir() <> ""
i = i + 1
Loop
End If
MsgBox "检测到文件个数为： " & i

明显的错误,,给你个对的代码 dim stra as string stra = "cmd /c copy c:\123.txt d:\" shell stra, 1