|
以sina微博为例,http://control.blog.sina.com.cn/admin/article/article_add.php?sudaref=control.blog.sina.com.cn
代码简单如下,其中单元格B2是微博的标题,B3是微博的正文,
Sub Main()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "http://control.blog.sina.com.cn/admin/article/article_add.php?sudaref=control.blog.sina.com.cn"
While ie.ReadyState <> 4 Or ie.Busy = True
DoEvents
Wend
ie.Document.getElementById("articleTitle").Value = Sheet1.Range("B2").Value
ie.Document.getElementById("SinaEditorTextarea").Value = Sheet1.Range("B3").Value
End Sub
现在碰到的问题是,对于像上面页面中“标题”这样简单的输入框,可以用上面的语句写入内容;但是对于嵌在页面中的控件,比如嵌在页面中的编辑器,用什么方法导入数据呢?
临时做个小工具,还望各位大侠赐教。谢谢!
|
|