[求助]单位网页 自动填表[已解]

lmswy

lmswy 发表于 2011-8-19 11:06
谢谢版主的好东东！在公司的OA系统使用中,登陆后有些表单要填写提交，比如报销单等。表单里有INPUT、SELECT ...

这样貌似可以了。OA结算方式选项貌似可以直接填写数值，币种选项我是用sendkeys解决的,大家如果有类似的问题参考下
        .Document.forms(0).All("bb").Focus  '选中付款币种栏
         SendKeys "{down 0}"
            .Document.forms(0).All("SY").Value =Sheet3.[D4].Value '请款事由
        .Document.forms(0).All("jsfs").Value = "_m2fbqk4ulp8_" '结算方式

nowarmy

126邮箱不用进入邮箱。请版主指点一下。谢谢！

huangzhijie

我碰到的情况和41楼差不多，我想问一下，（类型OPTION  HTMLWndOptionElement  664  True 上海市分行）其中的要素，我用.Document.All("城市").Value = "上海市分行"的语句行不通，请哪位老师指点，（用 SendKeys "{}"的语句出错率很大）

atse

楼上高手真多啊，想请问个问题，如果是带框架的，要怎样才能知道输入框的名称（网页是别人的），还有怎样给它赋值？谢谢

tcl1869

不太会  看不懂

lmswy

northwolves 发表于 2008-10-5 11:03
QUOTE:以下是引用wflqj123在2008-10-4 18:09:00的发言：谢谢你，就请你再说一下新浪的吧！ Sub Gotosi ...

版主，你好！一直用你的这段代码用在公司的网上填写报表，前段时间电脑升级装了WIN7,且又把IE自动升级到了IE9，这下问题来了-----公司网页中的控件可能与IE9不兼容造成用原来的这段代码无法正常开启公司网页填表，可后来经过摸索，发现用360的浏览器可以顺利进入。所以我的电脑现在分别装了IE9和360两个浏览器（平时用ie)，求教版主如何修改代码在填表时调用360浏览器，填完后回到IE浏览器。谢谢！

yuyonglian

登录139邮箱
Sub Goto139()
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://mail.10086.cn"
Do Until .Readystate = 4
DoEvents
Loop
.document.all("username").Value = "myusername"
.document.all("password").Value = "mypassword"
.document.all("loginBtn").Click
End With
End Sub

0372nhyz

厉害，看都没看懂，仔细想想

湖仙

yuyonglian 发表于 2012-6-7 23:01
登录139邮箱
Sub Goto139()
With CreateObject("InternetExplorer.Application")

登录139信箱这段代码，我把用户名和密码改成我自己的，运行到下面一句的时候
.document.all("username").Value = "myusername"
提示：运行时错误“242”,需要对象。

为什么呢？

zhangweizhen

好帖子，正在学网抓，还有好多不懂的，慢慢体会。