Sub ET(FullPath As String)
Sheets("QueryTables").Cells.Delete Shift:=xlUp
Dim Source As String
Source = Source & "OLEDB;"
Source = Source & "Provider=Microsoft.ACE.OLEDB.12.0;"
' Source = Source & "Password="""";"
' Source = Source & "User ID=Admin;"
Source = Source & "Data Source=" & FullPath & ";"
' Source = Source & "Mode=Share Deny Write;"
' Source = Source & "Extended Properties=""HDR=YES;"";"
' Source = Source & "Jet OLEDB:System database="""";"
' Source = Source & "Jet OLEDB:Registry Path="""";"
' Source = Source & "Jet OLEDB:Database Password="""";"
Source = Source & "Jet OLEDB:Engine Type=37;"
' Source = Source & "Jet OLEDB:Database Locking Mode=0;"
' Source = Source & "Jet OLEDB:Global Partial Bulk Ops=2;"
' Source = Source & "Jet OLEDB:Global Bulk Transactions=1;"
' Source = Source & "Jet OLEDB:New Database Password="""";"
' Source = Source & "Jet OLEDB:Create System Database=False;"
' Source = Source & "Jet OLEDB:Encrypt Database=False;"
' Source = Source & "Jet OLEDB:Don't Copy Locale on Compact=False;"
' Source = Source & "Jet OLEDB:Compact Without Replica Repair=False;"
' Source = Source & "Jet OLEDB:SFP=False;"
' Source = Source & "Jet OLEDB:Support Complex Data=False"
With Sheets("QueryTables").ListObjects.Add(SourceType:=0, Source:=Source, Destination:=Sheets("QueryTables").Range("$A$1")).QueryTable
.CommandType = xlCmdTable '//
.CommandText = Array("Sheet1$") '//
' .RowNumbers = False
' .FillAdjacentFormulas = False
' .PreserveFormatting = True
' .RefreshOnFileOpen = False
' .BackgroundQuery = True
' .RefreshStyle = xlInsertDeleteCells
' .SavePassword = False
' .SaveData = True
' .AdjustColumnWidth = True
' .RefreshPeriod = 0
' .PreserveColumnInfo = True
.SourceDataFile = FullPath '//
' .ListObject.DisplayName = "표"
.Refresh BackgroundQuery:=False '//
End With
End Sub