MS Access에서 연결된 테이블을 추가 할 때 런타임 오류가 발생했습니다.

Question

Excel 스프레드 시트로 연결되는 데이터베이스가 있습니다. 링크 된 테이블을 수동으로 추가 할 때 아무 문제가 없습니다 (작은 마법사를 따르고 테이블이 완벽하게 만들어 짐). 나는 자동화하기 위해 노력하고 그 사용하여 VBA :

Dim db as DAO.Database 
Dim tdf as TableDef 

Set db = CurrentDB 
Set tdf = db.CreateTableDef("linked_table") 
tdf.Connect = "Excel 8.0;HDR=YES;IMEX=2;DATABASE=" & Me.txtExcelFile ' references form field 
db.TableDefs.Append tdf ' Here's where I get a run time error 

마지막 줄에 오류 3264가 그것을 말한다 불행하게도 내가받을 런타임 "정의 된 필드 -의 TableDefs 또는 인덱스를 추가 할 수 없습니다." 나는 왜 마지막 줄이 필요한지조차 모르겠다. (데이터베이스의 TableDefs 컬렉션에 테이블을 추가하는 것이 문서에서 발견 된 것 같다.) 오류 해결에 대한 제안 사항은 무엇입니까?

Answer 1

당신이 누락 :

tdf.SourceTableName = "Sheet1$" 

또는 어떤 범위 나 시트 이름은 테이블로 사용하고 싶습니다.

그래서, 모든, 이것은 나를 위해 작동 :

Dim db as DAO.Database 
Dim tdf as TableDef 

Set db = CurrentDB 
Set tdf = db.CreateTableDef("linked_table") 
tdf.SourceTableName = "Sheet1$" 
tdf.Connect = "Excel 8.0;HDR=YES;IMEX=2;DATABASE=" & Me.txtExcelFile ' references form field 
db.TableDefs.Append tdf 

당신도를 TransferSpreadsheet

Remou @