VBA 如何將選取的資料(某個sheet), 貼在新開啟的不同sheet上
- 帖子
- 27
- 主題
- 11
- 精華
- 0
- 積分
- 38
- 點名
- 0
- 作業系統
- window
- 軟體版本
- window7
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2019-12-12
- 最後登錄
- 2021-4-21
|
VBA 如何將選取的資料(某個sheet), 貼在新開啟的不同sheet上
Hello 各位大大
以下是將Excel file A 中的所有sheets (ex:sheet1/sheet2...,都呼叫並貼上在執行檔Excel file B上.
想請問若我只要File B 中的某個sheet , 及這個sheet中的某一段值(ex: sheet1的 range(Bxx :Bxx)and rangf(Dxx,Dxx)'呼叫並貼上在執行檔Excel file B上 ,請問該如何改寫????
感謝指教- Sub DATA_INPUT()
- fds = Application.GetOpenFilename("Excel Files (*.xlsm;*.xlsx), *.xlsm;*.xlsx", , , , True)
-
- If IsArray(fds) Then
- For i = 1 To UBound(fds)
- [A2].Offset(i - 1) = fds(i)
- Next
- End If
- '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- On Error Resume Next '''''' 錯誤跳過
- For Each a In Range([A2], Cells(Rows.Count, 1).End(xlUp))
- With Workbooks.Open(a)
- .Sheets.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
- .Close 0
- End With
- Next
- On Error GoTo 0 '''''''''''''錯誤跳過'''''''''''
- Sheets("工作表1").Activate
- Range("A1").Select
- Columns("A:A").EntireColumn.AutoFit
- Sheets("工作表1").Activate
- End Sub
複製代碼 |
|
Ian
|
|
|
|
|