Excel的Vba代碼

嗨，本來想標註改動的，後來發現改動不少，就不壹壹標註了。現在它應該可以運行了。

子測試()

Dim i為整數，iRow為整數

將strPath標註為字符串

將工作表調暗為工作表

iRow = 1

設置Sheet = ActiveWorkbook。工作表(“sheet1”)

StrPath = ""E:\可輸\華"

應用程序。文件搜索

。LookIn = strPath

。SearchSubFolders = True

。文件名= "*。*"

如果。執行& gt那麽0

for I = 1 To . found files . count

範圍(" A " & amp我)=。發現文件(I)

練習冊。打開(。發現文件(I))

For j = 1到ActiveWorkbook。工作表。計數

ActiveWorkbook。工作表(壹)。單元格(1，1)。Value = "a "

ActiveWorkbook。工作表(j).UsedRange.Copy

那張紙。使活動

當鞋子。範圍(" a " & ampiRow)。價值& lt& gt""

iRow = iRow + 1

行

那張紙。範圍(" A " & ampiRow)。挑選

ActiveSheet。粘貼

ActiveWorkbook。救援

下壹個j

工作簿(工作簿。數數)。關閉

接下來我

如果…就會結束

以…結尾

末端接頭

上一篇:如何把壹段好的文字從百度發到微信上？

下一篇:寧夏錦德拍賣行有限公司怎麽樣？