- 帖子
- 181
- 主題
- 66
- 精華
- 0
- 積分
- 256
- 點名
- 0
- 作業系統
- WINDOW7
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2010-5-4
- 最後登錄
- 2025-4-3
|
[發問] VBA Application.FileDialog 應用
今日看到一些 .使用 VBA 的 Application.FileDialog 建立檔案或目錄選擇對話框，讓使用者以滑鼠選擇檔案或目錄。
請問是否可以將指定選出來workbooks( Data) copy 第一個工作表 整頁到 到現在有vba workbook指定的sheets "TEST BOOK"?
要怎麼改,盼大大賜教
 test.zip (29.43 KB)
Sub test()
Dim FName As String, FPath As String
Dim sheet As Worksheet
Dim FDialog As FileDialog
Application.ScreenUpdating = False
Application.DisplayAlerts = False ' 關閉警告訊息
Set FDialog = Application.FileDialog(msoFileDialogFilePicker)
FDialog.Show
For x = 1 To FDialog.SelectedItems.Count
FPath = FDialog.SelectedItems(x)
Set WB = Workbooks.Open(FPath)
For Each sheet In ActiveWorkbook.Sheets
sheet.Copy After:=ThisWorkbook.Sheets(1)
Next sheet
WB.Close
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub |
|
發表於 2021-5-3 19:31
| 
