5,139
社区成员
发帖
与我相关
我的任务
分享
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;file:///ThisWorkbook.Path & "\2G.htm"" , Destination:=Range(
"$A$1"))
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;file:///C:/Users/Yi/Desktop/DT_Win8/DT/4G.htm", Destination:=Range( _
"$A$1"))
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;file:/// " & ThisWorkbook.Path & "\2G.htm""", Destination:=Range( _
"$A$1"))
.Name = "2G"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingAll
.WebTables = "1"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = True
.WebDisableDateRecognition = False
.WebDisableRedirections = True
.Refresh BackgroundQuery:=False
.在改完相对路径之后Refresh BackgroundQuery:=False这句总是出问题,想请问这句是什么意思,还需要修改什么值吗?