如何将数据从关闭的工作簿导入/复制到当前工作簿？

我们很容易从一个打开的工作表中复制数据并将其粘贴到另一个打开的工作簿中，但是，您是否尝试过从未打开的工作簿中导入数据到已打开的工作簿？本文中，我将讨论如何从未打开的工作簿中导入数据。

使用VBA代码从未打开的工作簿导入数据到当前工作簿

使用Kutools for Excel从未打开的工作簿导入数据到当前工作簿

使用VBA代码从未打开的工作簿导入数据到当前工作簿

以下VBA代码可以帮助您在不打开工作簿的情况下将数据复制到当前活动的工作簿，请按照以下步骤操作：

1. 按住ALT + F11键，打开Microsoft Visual Basic for Applications窗口。

2. 点击插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA代码：从未打开的工作簿导入数据到当前工作簿

Sub ImportDatafromcloseworkbook()
'Updateby Extendoffice
Dim xWb As Workbook
Dim xAddWb As Workbook
Dim xRng1 As Range
Dim xRng2 As Range
Set xWb = Application.ActiveWorkbook
xTitleId = "KutoolsforExcel"
With Application.FileDialog(msoFileDialogOpen)
    .Filters.Clear
    .Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"
    .AllowMultiSelect = False
    .Show
    If .SelectedItems.Count > 0 Then
        Application.Workbooks.Open .SelectedItems(1)
        Set xAddWb = Application.ActiveWorkbook
        Set xRng1 = Application.InputBox(prompt:="Select source range", Title:=xTitleId, Default:="A1", Type:=8)
        xWb.Activate
        Set xRng2 = Application.InputBox(prompt:="Select destination cell", Title:=xTitleId, Default:="A1", Type:=8)
        xRng1.Copy xRng2
        xRng2.CurrentRegion.EntireColumn.AutoFit
        xAddWb.Close False
    End If
End With
End Sub

3. 然后按F5键运行此代码，在“文件打开”窗口中，选择要导入其数据的工作簿，见截图：

4. 然后点击“打开”按钮，弹出KutoolsforExcel对话框，提示您选择要导入到其他工作簿的数据区域，见截图：

5. 然后点击“ 确定”按钮，在弹出的对话框中，选择要放置数据的单元格，见截图：

6. 点击“确定”，关闭工作簿中的数据已被导入到当前工作簿。

使用Kutools for Excel从未打开的工作簿导入数据到当前工作簿

VBA代码对我们Excel初学者来说可能有些困难，所以在这里，我将推荐给您一个实用工具——Kutools for Excel，通过它的“在光标处插入文件”功能，您可以快速轻松地插入来自未打开工作簿的整个工作表内容。

安装 Kutools for Excel后，请按以下步骤操作：

1. 点击Kutools Plus > 导入与导出 > 在光标处插入文件，见截图：

2. 在“ 在光标处插入文件”对话框中，进行以下操作：

（1.）点击 按钮以选择要放置导入数据的单元格；

（2.）点击 按钮以选择要导入其数据的工作簿。

备注： 仅值（无公式）：如果勾选此选项，则只会导入值，而不会导入公式。

不转移属性：勾选此选项将导入没有格式的数据到工作表中。

3. 然后点击“确定”，如果工作簿中有多个工作表，将弹出“选择一张工作表”对话框，请指定要导入数据的工作表，见截图：

4. 然后点击“确定”按钮，所选工作表中的数据已被导入到当前工作簿。

立即下载并免费试用Kutools for Excel！