Dim FileName As String
FileName = "TEXT;C:\Riskvision\test.txt"
With ActiveSheet.QueryTables.Add(Connection:=FileName, Destination:=Range("J13"))
.Refresh BackgroundQuery:=False
End With
FileName = "TEXT;C:\Riskvision\test.txt"
With ActiveSheet.QueryTables.Add(Connection:=FileName, Destination:=Range("J13"))
.Refresh BackgroundQuery:=False
End With
選擇“Disable on www.wenxuecity.com”
選擇“don't run on pages on this domain”
