當前位置:吉日网官网 - 盛世收藏 - Excel的Vba代碼

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

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

接下來我

如果…就會結束

以…結尾

末端接頭

  • 上一篇:如何把壹段好的文字從百度發到微信上?
  • 下一篇:寧夏錦德拍賣行有限公司怎麽樣?
  • copyright 2024吉日网官网