【Excel】【VBA】メッセージボックスを使用してワークシートを選択できるファイルダイアログボックスの実装例

Excel【VBA】

「FileDialogで特定のExcelブック選択しオープンする。その後、複数Worksheetの中から特定Worksheetを選択させる」までを一連で実装したサンプルコード。

Worksheet選択のための専用Formを作成する方法もあるが、ちょっとシートを選びたいだけのために、そこまで実装するのは大変(面倒くさい)ため、今回はvbYesNoCancelタイプのMsgBoxを利用している。

「FileDialogで特定のExcelブック選択しオープンする。」まではサンプルはよく見かけるけど、「特定Worksheetを選択させる」部分を一連で実装したサンプルが見つからなかったので実装してみました。

コメント

  1. くぼたさん より:

    コメント失礼します。
    VBA初心者の初心者でこの度初めて作成に挑戦しています。
    報告
    30行目のシート選択で”Select”ではなく”Activate”にすると動きました。
    質問です。
    ①”いいえ”でシート選択ができることに感動しています。ありがとうございます!
    そこから次の作業として別のブック(集計用)へコピーしたいのですが分からずで困っています。
    構文を教えていただけると助かります。
    ②シート選択ですがいくつかまとめて選択させることは可能ですか?
    お忙しいところを申し訳ありませんが何卒よろしくお願いします。

  2. くぼたさん より:

    何度もすみません。
    選択結果のあとに
    ws.Copy After:= でコピーできました!
    あとは複数選択ができるといいのですが…
    よろしくお願いします(^^)

  3. papanda925 より:

    コメントありがとうございます。
    コピー処理が雑なつくりで申し訳ないのですが、複数シート選択できるサンプルを作成しました。よかったらどうぞ

    【Excel】【VBA】メッセージボックスを使用して複数のワークシートを選択し、別ファイルにコピーできるファイルダイアログボックスの実装例

    https://papanda925.com/?p=2303

    • くぼたさん より:

      ご対応くださいましてありがとうございます!
      いろいろ忙しくてまだ試せてませんが実装してみてまた報告させていただきます!

タイトルとURLをコピーしました