'将网页内容复制到剪贴板,然后从剪贴板中读取数据 WebBrowser1.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DONTPROMPTUSER Dim s As String s = Clipboard.GetText Debug.Print s
谢谢VBToy ,可是"Debug.Print s"什么意思啊?
WebBrowser1.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DONTPROMPTUSER Dim s As String s = Clipboard.GetText '不调试,直接写入文本文件 Open App.Path & "\test.txt" For Output As #1 Print #1, s Close #1
WebBrowser1.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER
WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DONTPROMPTUSER
Dim s As String
s = Clipboard.GetText
Debug.Print s
WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DONTPROMPTUSER
Dim s As String
s = Clipboard.GetText
'不调试,直接写入文本文件
Open App.Path & "\test.txt" For Output As #1
Print #1, s
Close #1
'Debug.Print s