vba代码：要求帮改代码：依次打印一个文件夹里的每一个excel的第一张sheet

comma6859

不知以下代码有什么问题
路径无误，+处本来用的&，但总提示错误，因此改成了+
Public Sub printalll()
Dim file$, folder$, wb As Workbook
folder = " C:\Users\Desktop\D打印wp"
file = Dir(folder + "\*.xlsx")

Do While file <> ""
Set wb = GetObject(folder + file)
wb.Worksheets(1).PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
wb.Close
file = Dir
Loop
End Sub

Chip_Kenny

try this:

1. Public Sub printalll()
   
2. Dim file$, folder$, wb As Workbook
   
3. folder = "C:\Users\Desktop\D打印wp"
   
4. file = Dir(folder + "*.xlsx")
   
5. 
   
6. Do While file <> ""
   
7. Set wb = GetObject(folder + file)
   
8. wb.Worksheets(1).PrintOut Copies:=1, Collate:=True, _
   
9. IgnorePrintAreas:=False
   
10. wb.Close
    
11. file = Dir
    
12. Loop
    
13. End Sub

复制代码

Chip_Kenny

奇怪,編寫的代碼第三行尾二是 \ , 但上載後就沒不見了, 按編輯時彈出來又有。