For i = 0 To Me.File1.ListCount - 1
oldname = Me.File1.List(i)
newname = "采集表.xls"
FileCopy oldname, newname
pid = Shell("生成上报表.exe", vbNormalFocus) '此处利用了 Shell当函数使用时返回的任务标识
hwnd5 = GetForegroundWindow()
isDone = False
Do While IsWindow(hwnd5)
DoEvents
Loop
isDone = True '判断是否进程结束
Kill newname
Me.List1.AddItem (Me.File1.List(i))
Me.Label8.Caption = Me.List1.ListCount
Next i
程序构思是将list1中的文件，使用外部程序生成新格式的表格，但在win7 32位下总是提示没有权限，也就是无法kill复制后的文件。
生成上报表.exe，工作原理是只对文件名为"采集表.xls“的文件进行操作，但我的表格太多如果一个一个改名很麻烦。

虽然不太懂，但我知道你的文件路径都是错的。

文件全移到非系统盘，如D，E试一下。