软件:excel
版本:2010
我想试着抓msci台湾指数的权重表直接汇入excel
https://www.msci.com/eqb/custom_indexes/tw_performance.xls
过去使用的程式码如下，抓网页跟csv都可以用，但这次抓xls不行
会在.Refresh BackgroundQuery:=False 这里显示"不正确的web查询"
请问高手们该如何解决?
Sub test()
Set DataSheet = ActiveSheet
Range("A1").CurrentRegion.ClearContents
qurl = "网址"
QueryQuote:
With ActiveSheet.QueryTables.Add(Connection:="URL;" & qurl,
Destination:=DataSheet.Range("A1"))
.AdjustColumnWidth = False
.BackgroundQuery = True
.TablesOnlyFromHTML = False
.Refresh BackgroundQuery:=False
.SaveData = True
End With
End Sub

用workbooks.add 接网址，试试如要用唯读的话 workbooks.open 接网址

已解决!原来这样就行了，非常感谢