![Excel:从下载的 xml 中获取值并插入到表中?](https://linux22.com/image/1226062/Excel%EF%BC%9A%E4%BB%8E%E4%B8%8B%E8%BD%BD%E7%9A%84%20xml%20%E4%B8%AD%E8%8E%B7%E5%8F%96%E5%80%BC%E5%B9%B6%E6%8F%92%E5%85%A5%E5%88%B0%E8%A1%A8%E4%B8%AD%EF%BC%9F.png)
如何强制下载 Excelhttp://api.eve-central.com/api/evemon,每次打开 .xlsx 文件时都对其进行解析并格式化表中的值?
我尝试导入 XML 并且成功了,但我不知道接下来该做什么。
谢谢!
答案1
如果您正在使用数据|导入外部查询|新 Web 查询,则有一个参数 RefreshOnFileOpen,您可以将其设置为 True。
这是一个从网络获取数据但不进行格式化的片段(因为您说过您已经让它工作了)。
'
'
Range("I12").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://api.eve-central.com/api/evemon", Destination:=Range("I12"))
.Name = "evemon_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = True
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub