2013-06-07 3 views
1

이름, 생년월일, 주소 등 Excel 시트에서 데이터를 추출하는 간단한 양식을 만들고 있습니다. 그리고 그것을 내 말의 형태로 삽입 할 때마다 매회 20-30 장을 쓰고 있습니다. 따라서 붙여 넣기 시간을 복사하는 시간을 절약 할 수있을 것이라고 생각합니다.VBA : Word에서 데이터를 읽음.

이 자습서를 따르려고했습니다. http://www.makeuseof.com/tag/integrate-excel-data-word-document/ 멤버 이름으로 m_name이라는 간단한 레이블이있는 단추가 만들어졌습니다. 하지만 그것은 내게 Compile error: User-defined type not defined라고 알려줍니다. 그리고 라인 1에서 flaged.

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 
+2

"Microsoft Excel [버전] 개체 라이브러리"에 대한 참조가 필요합니다. Word VB 편집기에는 * Tools >> References * 메뉴 옵션이 있어야합니다. –

답변

2

예, 튜토리얼에 따라 참조를 설정하는 것이 매우 중요합니다. 도

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

를하고 코드가 작동합니다 : 이러한 것들에

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

을 :

그러나 이러한 두 줄을 변경합니다.

+1

이것은 이상하게 작동합니다! 이것에 대한 설명이 있습니까, 아니면 어떻게 작동합니까? – George

+0

자습서 ('초기 바인딩'이라고 함)에 따라 참조를 설정할 수없는 경우 나에게 제안 된 기법 ('후기 바인딩'이라고 함)을 사용하여 참조를 설정할 수 있습니다. 자세한 내용은 [read this] (http://support.microsoft.com/kb/245115/en-us)를 참조하십시오. –

관련 문제