将表格从一个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工作簿导入到另一个工作簿表

回答

相关问题