ここから本文です

以下のエクセルのVBAをアドインとして使えるようにしたいです。 ThisWorkbookのあ...

なおさん

2018/8/714:53:08

以下のエクセルのVBAをアドインとして使えるようにしたいです。
ThisWorkbookのあたりが駄目なのは分かるのですが、それ以上どうにもなりません。



ご教授お願い致します。

Sub シート集計()
Dim i As Long, tst As String
Application.ScreenUpdating = False
With Application.FileDialog(msoFileDialogOpen)
.Title = "統合したいエクセルファイルを選択(+ctr or +shiftで複数選択)"
.Filters.Add "Excelブック", "*.xls; *.xlsx; *.xlsm", 1
.InitialFileName = ThisWorkbook.Path
.AllowMultiSelect = True
.Show
For i = 1 To .SelectedItems.Count
'フルパスからファイル名を取得する。
tst = Dir(.SelectedItems(i))
'選んだブックを順に開く
Workbooks.Open Filename:=.SelectedItems(i)
'シートは「すべて」コピーされる。
Sheets.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
'ブックを閉じる。
Workbooks(tst).Close SaveChanges:=False
Next
End With
Application.ScreenUpdating = True
End Sub

閲覧数:
34
回答数:
1

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

tra********さん

2018/8/715:01:56

>アドインとして使えるようにしたいです。
アドイン変換して、どういった使い方をしたいのですか?
やたらとアドインファイルにシートをコピーしていますが、本当はどうしたいのですか?

  • 質問者

    なおさん

    2018/8/715:32:55

    ご返信有難うございます。
    新規のブックを開いてアドインを実行した際に、FileDialogで選択したブック内の全シートを、その新しいブックにシートコピーしたいと考えています。

  • その他の返信(1件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

この回答は投票によってベストアンサーに選ばれました!

あわせて知りたい

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる