This is the one

來源: 於 2008-03-31 09:21:05 [舊帖] [給我悄悄話] 本文已被閱讀：次

Dim FileName As String

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


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

.Refresh BackgroundQuery:=False
End With