將表格從一個Excel工作簿導入到另一個工作簿表

我目前有兩個工作簿打開。例如，工作簿A中有一個表格，我想將其導入到現有的工作簿工作簿B.我想將該表格導入到當前正在工作簿B中使用的工作表中。查看了很多並且不能似乎推翻了答案。任何建議將不勝感激。 T將表格從一個Excel工作簿導入到另一個工作簿表

來源

2013-10-15 user2616026

您是否嘗試用宏記錄器記錄宏並使用它？ – mucio

它每次都會有所不同，所以我不能使用錄音機 – user2616026

是的，你可以，當你有宏記錄，然後你需要「只」修改代碼，以詢問用戶從中的文件的名稱你必須複製表格。我知道這有點複雜，但是如果你看看這個解決方案並在這裏展示一些你的嘗試，你會在stackoverflow上得到更多的幫助 – mucio

此代碼將提示用戶選擇其他書中的範圍進行復制，然後將其複製到單元格B2中的當前工作表。您還可以提示用戶選擇目的地，只需複製其他輸入框代碼並對其進行修改以滿足您的需求。

Sub Macro1() 
    Dim wk As Worksheet 
    Set wk = ActiveWorkbook.ActiveSheet 

    Dim wkb As Workbook 
    Set wkb = Workbooks("Book1.xls") 

    wkb.Activate 

    On Error Resume Next 
     Application.DisplayAlerts = False 
      Set rRange = Application.InputBox(Prompt:= _ 
       "Please select a range with your Mouse to be copied.", _ 
        Title:="SPECIFY RANGE", Type:=8) 
    On Error GoTo 0 
     Application.DisplayAlerts = True 

     If rRange Is Nothing Then 
      Exit Sub 
     End If 

    rRange.Select 
    Selection.Copy 

    wk.Activate 
    Range("B2").Select 
    ActiveSheet.Paste 
End Sub

來源

2013-10-15 16:54:32

它給我的運行時間錯誤，下標超出範圍。不知道爲什麼，因爲我輸入了正確的.xls，我想使用 – user2616026

目前代碼假設該書已經打開。如果您先打開並運行它，它會起作用嗎？另外，請確保文件擴展名是正確的。即。 .xls或.xlsx或.xlsm –

將表格從一個Excel工作簿導入到另一個工作簿表

回答

相關問題