This is the one

來源: emmmm 於 2008-03-31 09:21:05 [] [舊帖] [給我悄悄話] 閱讀數 : (262 bytes)

Dim FileName As String

FileName = "TEXT;C:\Riskvision\test.txt"


With ActiveSheet.QueryTables.Add(Connection:=FileName, Destination:=Range("J13"))

.Refresh BackgroundQuery:=False
End With

請您先登陸，再發跟帖！