返回列表下一主題上一主題發帖

[發問] VBA 開啟多個檔案複製貼上

character

小學生 Rank: 1

帖子: 12
主題: 4
精華: 0
積分: 12
點名: 0
作業系統: 7
軟體版本: 7
閱讀權限: 10
註冊時間: 2012-9-13
最後登錄: 2021-1-5

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-10-1 21:10 | 顯示全部帖子

[發問] VBA 開啟多個檔案複製貼上

大家好，我是VBA新手，爬了很多文卻還是不知該怎麼完成我想要的功能
我想做的事是:
打開 "開檔貼上.xlsm"
1. 按"加入檔案"的按鈕，選擇多個檔案
2. 將選擇的檔案路逕+檔案名稱填寫到 A欄位
3. 按"執行"按鈕
4. 系統幫我把每個選擇的檔案裡面的 range(A1:C6) 貼到開檔貼上.xlsm的Result sheet

以下是我的半成品，一直卡在執行那邊，我不知道怎麼打開每個檔案，然後複製貼上，檔案關閉，再開啟下一個檔案，直到儲存格 = <>

Sub 加入檔案()
With Application.FileDialog(msoFileDialogOpen)
      .InitialFileName = "D:\"
      .AllowMultiSelect = True
      .Show
      For i = 1 To .SelectedItems.Count
         Cells(i, 2) = .SelectedItems(i)
      Next
End With
End Sub

Sub 執行()
Application.ScreenUpdating = False
For i = 1 To .SelectedItems.Count
inbook = Worksheets("Filelist").Cells(i, 2).Value
Workbooks.Open Filename:=inbook
Next
End Sub