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

Author Xiaoyang Last modified 2025-08-23

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

使用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鍵運行此代碼，在“文件打開”窗口中，選擇要導入數據的工作簿，參見截圖：

vba code to select the workbook that you want to import

4. 然後點擊“打開”按鈕，KutoolsforExcel對話框彈出，提醒您選擇要導入到其他工作簿的數據區域，參見截圖：

vba code to select a range of data that you want to import to other workbook

5. 然後點擊“ 確定”按鈕，在彈出的對話框中，選擇要放置數據的單元格，參見截圖：

vba code to select a cell to put the data

6. 點擊“確定”，關閉的工作簿中的數據已經被導入到當前工作簿中。

使用Kutools for Excel從關閉的工作簿導入數據到當前工作簿

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

Kutools for Excel 提供超過 300 種進階功能，簡化複雜任務，提升創造力與效率。 結合 AI 能力，Kutools 能夠精準自動化任務，讓數據管理變得輕而易舉。Kutools for Excel 的詳細資訊...免費試用...

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

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

click Insert File at Cursor feature of kutools

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

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

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

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

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

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

specify a worksheet that you want to import

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

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

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多