如何從關閉的工作簿導入／複製數據到當前工作簿？

我們很容易從一個打開的工作表中複製數據並將其粘貼到另一個打開的工作簿中，但您是否嘗試過從關閉的工作簿中導入數據到打開的工作簿呢？在本文中，我將介紹如何從關閉的工作簿中導入數據。

使用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從關閉的工作簿導入數據到當前工作簿

對於我們的Excel初學者來說，VBA代碼可能有些困難，所以這裡我將推薦給您一個方便的工具——Kutools for Excel，通過它的“在游標處插入文件”功能，您可以快速輕鬆地插入來自關閉工作簿的整個工作表內容。

安裝 Kutools for Excel後，請按照以下步驟操作：

1. 點擊Kutools Plus > 導入與導出 > 在游標處插入文件，參見截圖：

2. 在“ 在游標處插入文件”對話框中，進行以下操作：

(1.) 點擊 按鈕選擇要放置導入數據的單元格；

(2.) 點擊 按鈕選擇要導入數據的工作簿。

備註： 僅值（無公式）：如果勾選此選項，則只會導入值，而公式不會被導入。

不轉移屬性：勾選此選項將在不帶格式的情況下導入數據到工作表中。

3. 然後點擊“確定”，如果工作簿中有超過一個工作表，將彈出“選擇一張工作表”對話框，請指定要導入數據的工作表，參見截圖：

4. 然後點擊“確定”按鈕，所選工作表中的數據已經被導入到當前工作簿中。

立即下載並免費試用Kutools for Excel！