vba - VBA: Excel データを Word に読み込む

Question

名前、生年月日、住所など、Excelシートからデータを抽出する簡単なフォームを作成しています。ワードフォームに挿入するのは毎回20～30枚なので、コピペの手間が省けるのではないかと思います。

私はこのチュートリアルに従おうとしました: http://www.makeuseof.com/tag/integrate-excel-data-word-document/m_nameそして、メンバーの名前の という名前 の単純なラベルを持つボタンを作成しました。しかし、それは私に言いますCompile error: User-defined type not defined。そして1行目にフラグが立てられました。

Word 2003 を使用しています (ガイドが求めていた [ツール] > [リファレンス] が見つかりません)。このエラーに関連しているかどうかはわかりません。

Private Sub CommandButton1_Click()
Dim objExcel As Excel.Application
Dim exWb As Excel.Workbook

Set exWb = objExcel.Workbooks.Open("U:\test.xls")
ThisDocument.m_name.Caption = exWb.Sheets("Member's Data").Cells(3, 3)

exWb.Close

Set exWb = Nothing

End Sub

Answer 1

はい、チュートリアルに従って参照を設定することは非常に重要です。

ただし、次の 2 行を変更します。

Dim objExcel As Excel.Application
Dim exWb As Excel.Workbook

に：

Dim objExcel As Object
Set objExcel = CreateObject("Excel.Application")

コードも機能するはずです。