我在用Excel的宏 寫了如下代碼（抄了網上的）
Sub baiduMap()
Dim url, html, js
Cells.ClearContents
br = [{"店名","地址","電話"}]
Range("a1:c1") = br
url = ""
Set html = CreateObject("htmlfile")
執行到此處的時候 activex部件不能創建物件 429
Set js = CreateObject("scriptcontrol")
js.Language = "jscript"
For p = 1 To 120
With CreateObject("msxml2.xmlhttp")
url = "http://map.baidu.com/?newmap=1"
...........
...........
Next
End With
Next
End Sub
望高手能夠幫忙解決
uj5u.com熱心網友回復：
是這句出錯吧： Set html = CreateObject("htmlfile")我只知道"htmlfile"是檔案的型別名，不是COM物件類， CreateObject( )不失敗才是怪事。
不知道你是中哪抄來的代碼。
uj5u.com熱心網友回復：
excel操作百度地圖我不熟悉 但是VB6操作百度地圖我算熟悉 包含GPS設備定位獲取經度緯度后定位所在位置，我當前在江蘇的專案之一就是遠程攝像頭監控 + gps百度地圖定位追蹤.VB6或安卓手機APP 操作百度地圖， 有困難可以找我
uj5u.com熱心網友回復：
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/43602.html
標籤：網絡編程
下一篇：VB如何判斷滑鼠下的程式