Function TransData(a As String, b As String, c As String, d As String, e As String, f As String)

Dim conn As New ADODB.Connection
Dim com As New ADODB.Command

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Documents and Settings\Administrator\桌面\abc.mdb"
conn.Open

com.CommandType = adCmdText
com.CommandText = "Insert Into JSPOINT Values('" & a & "','" & b & "','" & c & "','" & d & "','" & e & "','" & f & "')"
com.ActiveConnection = conn

com.Execute
conn.Close
Set com = Nothing
Set conn = Nothing

End Function

Sub TTT()

Dim fs As New Scripting.FileSystemObject
Dim qt As QueryTable
Dim sqlSelect As String
Dim sqlFrom As String

Const InvPath As String = "Z:\test"

sqlSelect = "[Sheet1$a:d].Location, [Sheet1$a:d].Code, [Sheet1$a:d].Qty, [Sheet1$a:d].Unit"
sqlFrom = "[" & InvPath & "].[Sheet1$a:d] [Sheet1$a:d]"

With ThisWorkbook.Sheets(1)
    .Range("a1:d65536").ClearContents
    
    Set qt = .QueryTables.Add("ODBC;DSN=Excel Files;DBQ=" & InvPath & ".xls" & ";DriverId=790;", .Range("a1"), "Select " & sqlSelect & " From " & sqlFrom )
    
    qt.FieldNames = True
    qt.Refresh False
End With

End Sub