WebBrowser自动循环填表的问题

Question

单位内部网络，用网页的形式做了个工作流程，我想弄个自动填写表单并提交的小等程序,把excell表中的数据逐个填到网页中并提交，，现在第一步怎么做的代码已经了来了，就是因为网络的不稳定，需要等网页完全打开才能进行下一步的操作，想请教下，到底应该怎么写Private  Sub  WebBrowser1_Document(ByValpDisp  As  Object,  URL  As  Variant) 里的语句：Private Sub Command1_Click() 
'打开excell文件，
for i=m to n 
'在这儿怎么写？？
next
end subPrivate  Sub  WebBrowser1_Document(ByValpDisp  As  Object,  URL  As  Variant)
     If  Not  (pDisp  Is  WebBrowser1.Object)  Then   
                webbrowser1.document.all(i).value=sh.cells(i,2)     '赋值
                 webbrowser1.document.all(i).click                  '找到按钮并点击提交，代码未写全哦
      end if 那么下一步进行类似的操作怎么写？因为要走三步这样的程序才能完成一个表单的提交

Answer 1

Private  Sub  WebBrowser1_DocumentComplete(ByValpDisp  As  Object,  URL  As  Variant) 
    If  URL="your url"  Then  
打开excell文件， 
for i=m to n 
                webbrowser1.document.all(i).value=sh.cells(i,2)    '赋值 
next                 webbrowser1.document.all("submitbtnname").click                  '找到按钮并点击提交，代码未写全哦 
      end if 
  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://feiyun0112.cnblogs.com/

Answer 2

外面再嵌套一个do while就可以了啊

Answer 3

问题一、Private Sub Command1_Click() 下面怎么写？
      问题二、操作一，等网页从数据库中提取数据，等待网页完全打开，进行操作二，同上，然后操作三，同上，这样操作二和操作三怎么写？