ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
お申し込み
x

or

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

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

クローズドブックからVBAコードで現在のワークブックにデータをインポートする

Kutools for Excelを使用して、クローズドブックから現在のワークブックにデータをインポートする


クローズドブックからVBAコードで現在のワークブックにデータをインポートする


次のVBAコードは、開いているブックにデータを開くことなくブックからデータをコピーするのに役立ちます。次の手順を実行してください。

1。 押さえつける Alt + F11 キーを押すと、 アプリケーション用Microsoft Visual Basic 窓。

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

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からデータをインポートするボタンをクリックして、データをインポートするワークブックを選択します。

注意: 値のみ(数式なし):このオプションをチェックすると、値のみがインポートされ、数式はインポートされません。

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

Excel用のKutoolsを今すぐダウンロードして無料でダウンロードできます!

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

doc閉じたブック8からデータをインポートする

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

クリックすると、この「ファイルをカーソルに挿入」機能の詳細が表示されます。

Excel用のKutoolsを今すぐダウンロードして無料でダウンロードできます!


デモ:Excel用Kutoolsを使用して、クローズドブックから現在のワークブックにデータをインポートする

Kutools for Excel200便利なExcelアドイン以上で、60日に制限なく試してみることができます。 今すぐダウンロードして無料トライアル!


Kutools for Excelは、ほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート そして、以前に使用したもの; セルを暗号化する パスワード付き メーリングリストの作成 そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストや数式を簡単に編集する) レイアウトを読む (多数のセルを簡単に読んで編集できます)。 フィルター範囲に貼り付ける...
  • セル/行/列を結合 データを失うことなく; セルコンテンツの分割。 重複する行/列を結合する...重複セルの防止。 範囲の比較...
  • 重複または一意を選択します空白行を選択 (すべてのセルは空です)。 スーパー検索とファジー検索 多くのワークブックで。 ランダム選択
  • 完全コピー 式の参照を変更せずに複数のセル。 参照を自動作成 複数のシートに 箇条書きを挿入、チェックボックスなど
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷 セルのコンテンツとコメント間の変換...
  • スーパーフィルター (保存して他のシートにフィルタ方式を適用する)。 高度な並べ替え 月/週/日、頻度などによる。 特殊フィルター 太字、斜体で...
  • ワークブックとワークシートを組み合わせる; キー列に基づいて表をマージします。 データを複数のシートに分割する; xls、xlsx、およびPDFのバッチ変換...
  • 300を超える強力な機能。 Office / Excel 2007-2019および365をサポートします。 すべての言語をサポートします。 企業または組織に簡単に展開できます。 フル機能の30日間の無料トライアル。
KTEタブ201905

OfficeタブはOfficeにタブ付きインターフェイスを提供し、作業をより簡単にします

  • Word、Excel、PowerPointでタブ付き編集と読み取りを有効にする、出版社、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を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?