別ブックのExcelファイルのシート（その都度自由に選ぶ）をまるごとコピーして貼り付けたい

Question

全くのマクロ初心者です。

マクロ設定したエクセルのシート2に、選択する別のエクセルファイル（その都度好きなファイルを選択できるようにしたいです）のシート１をまるごとコピペできるようにしたいです。

そこで下記の通りコードを書きましたが、リスト選択時の「Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)」に対して、「コンパイルエラー:ユーザー定義型は定義されていません」というエラーが発生します。。。
ヘルプを開けると「http://o15・・・（長いので省略）を開くことができません。インターネットサーバーまたはプロキシサーバーが見つかりませんでした。」とでます。
なお、参照設定は「visual basib for applications」、「Microsoft Excel 15.0 object library」、「Microsoft Office 15.0 object library」の３つにチェックを入れてます。

なお、ネット環境にない状態で作業しています（上記のようにプロキシサーバー等が見つからない旨のエラーが出たため、もしかして関係あるのかな？と思いまして。。）

どのようにすればよいでしょうか。。。
どなたかお分かりになる方がいらっしゃればご教示いただけないでしょうか。。

以下、入力したコードです。

Private wb As Workbook
Private FileName As String

Private Sub UserForm_Initialize()
FileName=Application.GetOpenFilename(filefilter:="Excelファイル,*.xls*",MultiSelect:=False)

Set wb = Workbooks.Open(FileName)
Dim sh As Worksheet
For Each sh In wb.Worksheets
ListBox1.AddItem sh.Name
Next

End Sub

エラー箇所ここから
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
エラー箇所ここまで
wb.Worksheets(UserForm1.ListBox1.Value).Copy After:=ThisWorkbook.Worksheets("sheet2")

wb.Close
Set wb = Nothing

Unload Me

End Sub

エラーが出た後は、誤字がないか確認し、参照設定は１つ追加しました。（初めは「Microsoft Office 15.0 object library」がチェックついてなかったためです。）

なお、使用しているのはExcel2013、Windowsは10です。

エラーが出た箇所は上記のPrivate Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBooleanです。

Comments

[meg_]

・コードは「コードの挿入」で記入してください。
・エラーが出たのはどの行ですか？

[meg_]

> ThisWorkbook.Worksheets("Sheet2")
上記の”"Sheet2"”が原因でしょうか？何かのコピペミスですか？？

[tora01tora]

申し訳ありません。
修正いたしました。
ご指摘の「quot..」等は当サイトへ記入する際のコピペミスでした。

Answer 1

私の環境（Windows8、Excel2013）ではフォームを作成するかActiveXオブジェクトを作成すると、参照設定にMicrosoft Forms 2.0 Object Libraryが自動的に追加されます。追加されてませんか？

手動で設定するにはC:\Windows\System32\FM20.DLLを参照設定に追加すれば良いようです。

Comments

[meg_]

参考：https://www.relief.jp/docs/017881.html

[tora01tora]

ご教示の通り参照設定したらエラー解消されました！
大変ありがとうございました！！！

ただ、実行ボタンを押した時のエラーがなくなったものの、自分のイメージではそれで選択ダイアログが出てきてコピーしたいExcelブックを選択できるものと思っていましたが、、、
何も起こらずコード画面（標準モジュール）からExcelのシート1画面に戻るだけです、、、

[meg_]

質問のコードではユーザーフォームを表示した時にファイル選択のダイアログを表示するコードになっていますね。ユーザーフォームを表示させるコードはどこに書かれていますか？

[tora01tora]

すみません、、、。
せっかくいろいろ教えていただきとてもありがたかったのですが、、、全くの初心者で、とりあえずこのマクロを完成させてみたくてネット上で発見した同事案と思しきコードを標準モジュールに書いて実行しているだけで、それ以外のことは全く取っ付きもしていないので、ちんぷんかんぷんです。。。
ユーザーフォームを作成、表示させることから勉強しなければならないのですね、、、。
組み立て方の基礎から何から全く分かっていないのでもう少し勉強します。。。