返回列表 上一主題 發帖

資料彙總

蘿蔔泥

帖子
36 
主題
10 
精華
0 
積分
93 
點名
0  
作業系統
win10 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2018-2-27 
最後登錄
2022-2-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2022-2-9 16:14 | 顯示全部帖子

資料彙總

修改後出現程式錯誤，請問我該如何修改呢？
目的是將訓練需求裡的所有Excel檔sheet2資料彙總到總表
  1. Sub 匯總()
  2. Dim myfile, mypath, wkb
  3. 'Application.ScreenUpdating = False   '關閉螢幕更新
  4. Sheets("總表").UsedRange.Offset(1, 0).Clear  '清除表頭之外的所有內容
  5. mypath = Sheets("設定頁").Range("b9")           '找到目前活頁簿的路徑
  6. MsgBox (mypath)
  7. myfile = Dir(mypath & "\*.xls*")     '瀏覽目前資料夾下的Excel文件
  8. MsgBox (myfile)
  9. Do While myfile <> ""                '當找到的文件不為空時
  10. If myfile <> ThisWorkbook.Name Then  '當找到的文件不是目前Excel活頁簿時
  11. Set wkb = GetObject(mypath & "\" & myfile)   '得到dir找到的活頁簿的內容，設為wkb
  12. With wkb.Sheets(2)              '對找到的活頁簿的sheet1進行操作
  13. '複製wkb的sheet1除第一列的所有內容
  14. .UsedRange.Offset(6, 0).Copy Sheet2.Range("A6:I25")
  15. End With
  16. wkb.Close False      '關閉wkb活頁簿且不儲存
  17. End If
  18. myfile = Dir         '尋找下一個Excel活頁簿
  19. Loop
  20. 'Application.ScreenUpdating = True   '恢復螢幕更新
  21. End Sub
複製代碼

111-vba - 複製.zip (324.2 KB)

收藏 分享

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題