我是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:该网站不开放。已经尝试了两天...我放弃:) –