Tranfer는 엑셀에서 테이블 데이터를 엑셀 엑셀로 변환합니다.

Question

테이블 데이터를 엑셀 시트로 변환하려고합니다. 아래 코드는 변수를으로 정의하고 을 가리키며 aclmport을 나타냅니다. TransferSpreadsheet 메서드는 Excel에서 작동합니까? 다른 방법으로 Excel에서 액세스 할 수 있도록 시트 데이터를 변환하는 것입니다.

Private Sub Cal_WEM_Click() 
    Dim appAccess As Object 
    Dim aPath, aDbase, aDSource, aTable, exePath As String 
    Dim fileParam As String 
    aPath = ActiveWorkbook.Path 
    aDbase = "Linear.accdb" 
    aDSource = aPath & "\" & aDbase 

    Set appAccess = CreateObject("Access.Application") 
    appAccess.Visible = True 

    appAccess.OpenCurrentDatabase aDSource 

appAccess.DoCmd.TransferSpreadsheet transfertype:=acImport, _ 
     tablename:="yorno", _ 
     FileName:=aPath, Hasfieldnames:=True, _ 
     Range:="WEM!D:E", SpreadsheetType:=5 
     appAccess.DoCmd.OpenForm "Input_Form_WEM" 

Application.DisplayAlerts = False 
ThisWorkbook.Saved = True 
Application.Quit 
Exit Sub 
End Sub 

Answer 1

가 acImport이 코드에이

Const acImport = 0 
Const acSpreadsheetTypeExcel9 = 8 

appAccess.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ 
"wemonoff1", ename, True, "WEM-ONOFF!D:E"