請問下各位大佬
代碼可簡化成
Sub test()
Set rrr = CreateObject("Scripting.FileSystemObject")
Set r = rrr.GetFolder("D:\練習")
For Each i In r.Files
Workbooks.Open Filename:=("D:\練習\" + i.Name + "")
ActiveSheet.Range("A1") = 1
ActiveWorkbook.Close SaveChanges:=True
Next
End Sub
代碼目的是把 D/練習 這個檔案夾中每一個作業簿中的A1區域賦值為1
請問下Workbooks.Open Filename:=("D:\練習\" + i.Name + "") 這行代碼中,兩個加號是指什么意思?為什么一定要有這兩個+?試了下如果不加加號就會報錯,這是為什么?
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/277203.html
標籤:VBA
上一篇:VB模擬鍵盤輸出文字
