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