网页型excel ADO跨簿取值的问题，麻烦各位先进驻足指点。

xiangbaoan

Sub test()
Dim cnn As Object, rst As Object, Str_cnn$, sql$, f$
f = ThisWorkbook.Path & "\格式为网页型.xls"
'f = ThisWorkbook.Path & "\格式为正常型.xls"
Set cnn = CreateObject("adodb.connection")
Str_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;hdr=yes';Data Source=" & f

cnn.Open Str_cnn '源文件为网页型，无法链接，另存为97-2003等其它格式则行；
''''''''''''''''''请问在不更改格式的情况下，能否跨簿链接?若行，如何实现?有请各位先进不吝赐教！

'sql = "select * from [$c2:q]"
'Set rst = cnn.Execute(sql)
''''''''
cnn.Close
Set cnn = Nothing
Set rst = Nothing
End Sub




补充内容 (2019-7-5 14:07):
一年有余，无答，封帖。