<em>excel</em> <em>vba</em>如何<em&

可以的，我用下面的代码在本窗口来填入数据成功：

程序中使用源两个语句：

AppActivate "excel" 

切换到浏览器窗百口，本窗口标题是excel开头，因此打这一个单词就可以了

SendKeys [a1]

模拟按键输入内度容，什么内容都问可以的，可以输入热键

但是EXCEL本身没有模拟鼠标点击的语句。答

用解析dom的方式，找到这个class，然后选择到节点后用innertext就可以了。
Public Sub 痒痒zhidao养版羊权()
For i = 1 To 3
For j = 2 To 4
If Left(Sheet2.Cells(1, i), 1) = Sheet1.Cells(j, 1) Then
k = Sheet2.Cells(1, i).End(xlDown).Row
For m = 2 To k
Sheet1.Cells(j, m) = Sheet2.Cells(m, i)
Next
End If
Next
Next
End Sub

供参考

Sub test()
Dim myQuery

With ActiveSheet
.Cells.Delete
.[a1] = "Conneting, Please Wait..."

Set myQuery = ActiveSheet.QueryTables _
.Add(Connection:="URL;http://.cn", _
Destination:=.Cells(1, 1))
End With
With myQuery
.Refresh
End With

补充：grhsc你不是知道读取全来部网页的程序吗？那里可以先把整个网页以表源格的方式读取到excel中，建立一个临时sheet，然后删除掉zhidao多余的数据，或者在excel中在读取需要的数据不就行了？