我是VBA的新手,我需要將this form的值提取到Excel電子表格中。一旦用戶點擊估算值,就會顯示匯率。 Excel電子表格將具有與表格中的字段名稱匹配的列標題。使用VBA將數據從Web窗體讀取到Excel?
表單中的'發送金額'爲50,100,500,1000,2500和7000.'From'國家將始終爲'美國'。工作表中應填入表格其他字段中針對「美國」及其相應匯率的所有可能選項。
我是VBA的新手,我需要將this form的值提取到Excel電子表格中。一旦用戶點擊估算值,就會顯示匯率。 Excel電子表格將具有與表格中的字段名稱匹配的列標題。使用VBA將數據從Web窗體讀取到Excel?
表單中的'發送金額'爲50,100,500,1000,2500和7000.'From'國家將始終爲'美國'。工作表中應填入表格其他字段中針對「美國」及其相應匯率的所有可能選項。
桑托斯......這樣做有
你需要知道DB細節或者在VBA中爲XML創建COM模塊(這又需要服務器細節)
如果你什麼都不知道。我建議轉到youtube並查找「VBA com連接」或「VBA XML」。有一些不錯的視頻,在開放的論壇上交付服務器的詳細信息將不是一個理想的事情要做
沒有運氣在這裏,網站寫道「連接...」永遠。
但理清您的問題,這裏有一個示例代碼:
請注意:在Excel中的VBA(ALT + F11),你必須參考(工具 - >引用)加入到Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim myIE As InternetExplorer, myDoc As HTMLDocument, mySubDoc As HTMLDivElement Dim sVal As String, lVal As Long
Set myIE = New InternetExplorer With myIE .Visible = True Call .navigate("http://stackoverflow.com/") While Not .readyState = READYSTATE_COMPLETE DoEvents Wend Set myDoc = .document End With 'SAMPLE With mySubDoc Set mySubDoc = myDoc.getElementsByClassName("question-summary narrow").Item(0) sVal = CStr(mySubDoc.ID) lVal = CLng(mySubDoc.NodeType) Call MsgBox(sVal) Call MsgBox(CStr(lVal)) End With On Error Resume Next Call mySubDoc.Close Call myDoc.Close Call myIE.stop Call myIE.Quit On Error GoTo 0 Set mySubDoc = Nothing Set myDoc = Nothing Set myIE = Nothing
末次
Microsoft HTML Object Library
和
Microsoft Internet Controls
項目。
@Santosh:當我手動選擇該字段中的值(美國,美元,印度,10分鐘服務 - 印度服務,1000),並點擊估計,我沒有得到任何結果...網站保持在顯示「連接....」 –
@SiddharthRout即使我試過,也沒有得到任何結果。可能該網站將在週末進行升級。但我確認該網站的作品,您可以在某個時間之後或直接在星期一嘗試。 – Santosh
@Santosh:該網站不開放。已經嘗試了兩天...我放棄:) –