Hi i want to get access to the data in Excel

[djaekdns123]

I using TransferSpreadsheet mathod
I want to get the data into Excel from Access table '주문내역'

==========================================================
Sub test()
Dim oApp As Access.Application
Dim LPath As String
Dim StrWorkSheetPath As String
Dim StrTable As String

Set oApp = New Access.Application
LPath = "C:\Users\엄다운\Desktop\과제\엑세스\12전국.accdb"
StrWorkSheetPath = "C:\Users\엄다운\Desktop\과제\엑셀문서\엑세스제어.xlsm"
StrTable = "주문내역"

oApp.OpenCurrentDatabase LPath
oApp.DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, StrTable, StrWorkSheetPath, True
oApp.Quit
Set oApp = Nothing
End Sub
=========================================================

When coding in this way, error occurs in the TransferSpreadsheet :banghead:
Please Help me