提示:其他語言是Google翻譯的。 你可以訪問 English 版本。
登入
x
or
x
x
註冊
x

or

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

我們很容易從打開的工作表複製數據並將其粘貼到另一個打開的工作簿,但是,您有沒有嘗試將數據從已關閉的工作簿導入到打開的工作簿? 本文將介紹如何從已關閉的工作簿中導入數據。

使用VBA代碼將數據從已關閉的工作簿導入當前工作簿

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


使用VBA代碼將數據從已關閉的工作簿導入當前工作簿


下面的VBA代碼可能會幫助您從工作簿中復制數據,而不打開它到活動打開的工作簿,請執行以下步驟:

1。 按住 ALT + F11 鍵,然後打開 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊,並將以下代碼粘貼到 模塊窗口.

VBA代碼:將數據從已關閉的工作簿導入當前工作簿

Sub ImportDatafromcloseworkbook()
'Update 20150707
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 運行這個代碼的關鍵,並在 文件打開 窗口中,選擇要導入其數據的工作簿,請參閱截圖:

doc從已關閉的工作簿1導入數據

4。 然後點擊 已提交 按鈕,和 KutoolsforExcel 彈出對話框提醒您選擇要導入到其他工作簿的一系列數據,請參閱截圖:

doc從已關閉的工作簿2導入數據

5. 然後點擊 OK 按鈕,在彈出的對話框中選擇要放置數據的單元格,看截圖:

doc從已關閉的工作簿3導入數據

6。 並點擊 OK,已關閉的工作簿中的數據已被導入到當前工作簿中。


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

對於我們的Excel初學者來說,VBA代碼可能有些困難,所以,在這裡,我將向您推荐一個方便的工具 - Kutools for Excel,其 在光標處插入文件 功能,您可以快速方便地從已關閉的工作簿中插入工作表的全部內容。

Kutools for Excel : 與超過300方便的Excel加載項,在60天免費試用沒有限制.

安裝後 Kutools for Excel請按照以下步驟進行:

1. 點擊 企業 > 導入/導出 > 在光標處插入文件,看截圖:

doc從已關閉的工作簿4導入數據

2。 在 在光標處插入文件 對話框,請執行以下操作:

(1。)單擊 doc從已關閉的工作簿6導入數據按鈕選擇要放置導入數據的單元格;

(2。)單擊 doc從已關閉的工作簿7導入數據按鈕選擇要導入其數據的工作簿。

注意: 只有價值(沒有公式):如果選中此選項,則只會導入該值,並且不會導入公式。

不要傳輸格式:選中此選項將數據導入工作表而不格式化。

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

3。 然後點擊 OK如果工作簿中有多個工作表, 選擇一個工作表 彈出對話框,請指定要導入數據的工作表,參見截圖:

doc從已關閉的工作簿8導入數據

4。 然後點擊 OK 按鈕,所選工作表中的數據已被導入到當前工作簿中。

單擊以了解有關在光標功能插入文件的更多詳細信息。

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


演示:使用Kutools for Excel將數據從已關閉的工作簿導入當前工作簿

Kutools for Excel:比200方便的Excel加載項,可以在60天免費試用。 下載並免費試用現在!


Kutools for Excel解決了您的大多數問題,並使您的生產率提高了80%

  • 重用: 快速插入 複雜的公式,圖表 以及你以前用過的任何東西; 加密單元格 密碼; 創建郵件列表 並發送電子郵件...
  • 超級方程式酒吧 (輕鬆編輯多行文字和公式); 閱讀佈局 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不丟失數據; 分裂細胞含量; 組合重複的行/列...防止重複的細胞; 比較範圍...
  • 選擇複製或唯一 行; 選擇空行 (所有細胞都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇......
  • 精確複製 多個單元格而不更改公式參考; 自動創建參考 多張表; 插入項目符號,複選框等等......
  • 提取文本,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級過濾器 (將過濾方案保存並應用到其他工作表); 高級排序 按月/週/日,頻率等; 特殊過濾器 用粗體,斜體......
  • 結合工作簿和工作表; 根據鍵列合併表; 將數據拆分為多個表格; 批量轉換xls,xlsx和PDF...
  • 超過300強大的功能。 支持Office / Excel 2007-2019和365。 支持所有語言。 在您的企業或組織中輕鬆部署。 全功能30天免費試用。
kte tab 201905

Office選項卡為Office提供選項卡式界面,使您的工作更輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,Publisher,Access,Visio和Project。
  • 在同一窗口的新選項卡中打開並創建多個文檔,而不是在新窗口中。
  • 通過50%提高您的工作效率,每天為您減少數百次鼠標點擊!
官方底部
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Guilherme · 9 months ago
    Funcionou a primeira vez que tentei.. Agora por algum motivo não esta funcionando mais..Parece que esta copiando os valores apenas. Quando faço alteração de algum dado na planilha, nao esta mudando na outra.. o que devo fazer?
  • To post as a guest, your comment is unpublished.
    Mir · 2 years ago
    Thanks for the awesome trick here. I managed to get the coding work with my current project. My question is how can I set ''destination cell'' default to range ''A5'' without popping out InputBox
  • To post as a guest, your comment is unpublished.
    Tawfiq · 3 years ago
    Thanks for the above.

    I'm trying to use VBA but when I reach to step #3:

    3. Then press F5 key to run this code, and in the File Open window, select the workbook that you want to import its data

    I can't "see" the file I need to import the data from! the folder doesn't show that file!

    What can I do?