? 發問時間: 電腦與網際網路程式設計 · 5 年前

EXCEL VBA 開啟網頁 自動輸入

各位先進好:

小弟想用vba設計,自動開啟網頁,後輸入excel中的運單號碼

目前設計到這邊,但無法指定到我想要的方格中

※假設 輸入excel表格中(工作表1 a1)裡面的運貨單號

謝謝各位先進

Sub Test()

Dim oIE As Object, oNode As Object

Set oIE = CreateObject("InternetExplorer.Application")

With oIE

.Visible = True

.navigate "http://www.kuaidi100.com/"

Do While .Busy Or .ReadyState <> 4: DoEvents: Loop

End With

End Sub

已更新項目:

謝謝

已經加上

.Document.All("postid").Value = ActiveSheet.Cells(1, 1)

.Document.All("query").Click

2句

想再另請教想指定別的的工作表是否加上此句可以

於Value = 後面 改成

Application.Goto ActiveWorkbook.Sheets("上海採購單").Cells(6, 5)

1 個解答

評分
  • 5 年前
    最佳解答

    Do While到End With間請加入:

    .Document.All("postid").Value = ActiveSheet.Cells(1, 1)

    .Document.All("query").Click

    試試

    2015-04-25 09:30:28 補充:

    .Document.All("postid").Value = Sheets("上海採購單").Cells(6, 5) 試試

    2015-04-25 17:18:29 補充:

    Do While到End With間請加入:

    .Document.All("postid").Value = Sheets("上海採購單").Cells(6, 5)

    .Document.All("query").Click

    試試

還有問題?馬上發問,尋求解答。