閉じたブックから現在のブックにデータをインポート/コピーする方法は？

開いたワークシートからデータをコピーして別の開いたブックに貼り付けるのは簡単ですが、閉じたブックから開いたブックにデータをインポートしようとしたことがありますか？ この記事では、閉じたブックからデータをインポートする方法について説明します。

閉じたブックからVBAコードを使用して現在のブックにデータをインポートする

Kutools for Excelを使用して、閉じたブックから現在のブックにデータをインポートします

閉じたブックからVBAコードを使用して現在のブックにデータをインポートする

次のVBAコードは、開いているアクティブなブックにデータを開かずにブックからデータをコピーするのに役立つ場合があります。次の手順で実行してください。

1。 を押し続けます Alt + F11 キー、そしてそれは開きます アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

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。 次に、をクリックします Open ボタン、および Kutools for Excel ダイアログボックスが表示され、他のワークブックにインポートするデータの範囲を選択するように通知されます。スクリーンショットを参照してください。

5. そして、 OK ボタンをクリックし、ポップアウトされたダイアログボックスで、データを配置するセルを選択します。スクリーンショットを参照してください。

6。 をクリックします OK、閉じたブックのデータが現在のブックにインポートされました。

Kutools for Excelを使用して、閉じたブックから現在のブックにデータをインポートします

VBAコードは、Excelの初心者にはやや難しいかもしれないので、ここでは、便利なツールをお勧めします-Kutools for Excelそのと カーソル位置にファイルを挿入 この機能を使用すると、閉じたブックからワークシートのコンテンツ全体をすばやく簡単に挿入できます。

インストールした後 Kutools for Excel、次のようにしてください。

1. クリック クツールズプラス > インポート・エクスポート > カーソル位置にファイルを挿入、スクリーンショットを参照してください：

2。 の中に カーソル位置にファイルを挿入 ダイアログボックスで、次の操作を実行します。

（1.）クリック インポートしたデータを配置するセルを選択するボタン。

（2.）クリック ボタンをクリックして、データをインポートするワークブックを選択します。

ご注意： 値のみ（数式なし）：このオプションをオンにすると、値のみがインポートされ、数式はインポートされません。

フォーマットを転送しないでください：このオプションをオンにすると、フォーマットせずにデータがワークシートにインポートされます。

3。 次に、をクリックします OK、ワークブックに複数のワークシートがある場合、 ワークシートを選択する ダイアログボックスが表示されます。データをインポートするワークシートを指定してください。スクリーンショットを参照してください。

4。 そして、 OK ボタンをクリックすると、選択したワークシートのデータが現在のワークブックにインポートされます。

今すぐExcel用のKutoolsをダウンロードして無料トライアル！