VBA 如何將選取的資料（某個ｓｈｅｅｔ）, 貼在新開啟的不同sheet上

iverson105

Ｈｅｌｌｏ　各位大大

以下是將Excel file A 中的所有sheets　（ｅｘ：ｓｈｅｅｔ１／ｓｈｅｅｔ２．．．，都呼叫並貼上在執行檔Excel file B上．
想請問若我只要File B 中的某個sheet , 及這個sheet中的某一段值(ex: sheet1的 range(Bxx :Bxx)and rangf(Dxx,Dxx)'呼叫並貼上在執行檔Excel file B上 ,請問該如何改寫????

感謝指教

1. Sub DATA_INPUT()
   
2. 
   
3. fds = Application.GetOpenFilename("Excel Files (*.xlsm;*.xlsx), *.xlsm;*.xlsx", , , , True)
   
4.                                 
   
5. If IsArray(fds) Then
   
6. For i = 1 To UBound(fds)
   
7.    [A2].Offset(i - 1) = fds(i)
   
8. Next
   
9. End If
   
10. 
    
11. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
12. On Error Resume Next  '''''' 錯誤跳過
    
13. For Each a In Range([A2], Cells(Rows.Count, 1).End(xlUp))
    
14.   With Workbooks.Open(a)
    
15.       .Sheets.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    
16.      .Close 0
    
17.   End With
    
18. Next
    
19. On Error GoTo 0 '''''''''''''錯誤跳過'''''''''''
    
20. Sheets("工作表1").Activate
    
21. Range("A1").Select
    
22. Columns("A:A").EntireColumn.AutoFit
    
23. Sheets("工作表1").Activate
    
24. 
    
25. End Sub

複製代碼