如何把ACCESS表格中的内容自动填充到网页的相应空格中呢？

fatmingli

我公司有一内部网办公软件，是网页版的，里面需要填写二十几项内容，但这些内容都保存在另一个办公软件的ACCESS的表格中，能不能做个ACCESS小软件，把ACCESS表格中的内容自动填充到网页的相应空格中呢？
请教各样，可以做到吗？具体的思路请详细介绍一下吧。
谢谢

access学习交流

那是因为Access是作为数据库吧！本来就是在网页中填写内容再保存到数据库中的，你这是要反过来了？做一个Access小软件，那还要网页版干嘛呢？你好像还没有搞清楚数据到时是要显示还是要输入

ynjxw

理论上是可以的。

fatmingli

ynjxw 发表于 2013-9-3 14:25
理论上是可以的。

如何把理论实现啊？

gnoy

这很容易处理的，当然说是很难说清楚的，主要方法如下：

弄个窗体，加个webbrowser控件，在页面加载完事件中对document相关对象赋值

ynjxw

fatmingli 发表于 2013-9-3 15:11
如何把理论实现啊？

至少要有个例子吧

cgsilicone

还可以采用如下办法：
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long
BringWindowToTop FindWindow(vbNullString, "要填表的浏览器窗口标题栏文字")
SendKeys "要填的内容 ", True

chaosheng

找个键盘鼠标操作录制变脚本的软件, 然后重复执行录制的脚本.

不然就直接把数据提交到那软件的数据库里. 办公软件,数据库应该不会太复杂吧.

chaosheng

差点忘了这个.
最可行的方法是用XMLHTTP编程:

set oxh=createobject("Microsoft.XMLHTTP")
postdata="name1=value1&name2=value2&......"         '注意这行按form来写
oxh.Open "post",url,false
oxh.setRequestHeader "Content-Length",len(postdata)
oxh.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
oxh.send postdata

ynjxw

填写本论坛账号、密码 例子
        Set IE = CreateObject("InternetExplorer.application")
        IE.Visible = True
        IE.Navigate "http://www.office-cn.net/forum.php"
        While IE.ReadyState <> 4
            DoEvents
        Wend
        With IE.Document
            .all("username").Value = "cjks"
            .all("password").Value = "123456"
        End With