Question

我需要在IE中复制打开XML并在网页中选择内容（Ctrl + A）并复制它们（Ctrl + c）并将它们粘贴到记事本中。下面是代码，但它不起作用。

Dim ie As Object 
Dim ieDoc As Object 
Dim Data As String

Set ie = CreateObject("InternetExplorer.Application") 
ie.navigate "C:\Data\test_10.xml" ie.Visible = True

Do Until (ie.readyState = 4 And Not ie.Busy)
    DoEvents 
Loop

SendKeys "^a", True 
Application.Wait (5) 
SendKeys "^c" 
Dim FileNo As Integer 
FileNo = FreeFile 
Open "C:\Data\Sample.txt" For Output As FileNo 
SendKeys "^v", True 
Close FileNo

Answer 1

Open语句不会打开记事本应用程序，它只是为VBA中的文件创建输入/输出的文件句柄。您需要创建一个类似于创建IE应用程序对象的记事本应用程序对象。

还要考虑一起避免SendKeys。代替

使用InnerHTML属性
使用Open / Write
可选择重新打开记事本应用程序中的文本文件

Answer 2

试试这个：

Sub pExtractXMLData()

    Dim strURLtoNavigate        As String
    Dim strHTML                 As String

    strURLtoNavigate = "C:\Data\test_10.xml"
    strHTML = UsingXmlParser(strURLtoNavigate)
    Call WriteVarToDisk(strHTML, "C:\Data\Sample.txt")

End Sub




Public Function UsingXmlParser(strUrl As String)

    Dim objxmlhttp As Object

    Set objxmlhttp = CreateObject("MSXML2.XMLHTTP")
    objxmlhttp.Open "GET", strUrl, False
    objxmlhttp.send
    'objxmlhttp.WaitForResponse
    UsingXmlParser = objxmlhttp.ResponseText

    Set objxmlhttp = Nothing

End Function

Public Sub WriteVarToDisk(vartowrite, FiletoWrite)

    On Error Resume Next
    Dim fso, MyFile
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set MyFile = fso.CreateTextFile(FiletoWrite, True)
    MyFile.WriteLine (vartowrite)
    MyFile.Close

End Sub

Answer 3

试试这个..你可以在excel中打开记事本。做所有的工作，并保存回记事本..

以下代码可以帮助您。

Sub ImportXMLtoList()
    Dim strTargetFile As String
    Dim wb as Workbook
   dim dwb as workbook

         Application.Screenupdating = False
         Application.DisplayAlerts = False
         strTargetFile = "C:\Data\test_10.xml"
         Set wb = Workbooks.OpenXML(Filename:=strTargetFile,LoadOption:=xlXmlLoadImportToList)
         Application.DisplayAlerts = True
         wb.Sheets(1).UsedRange.Copy 
        set dwb = workbooks.open("C:\Data\Sample.txt")
            dwb.activesheet.range("A1").PasteSpecial xlPasteValues       
            dwb.close true
         wb.Close False
         Application.Screenupdating = True
    End Sub

将网页数据复制并粘贴到记事本中

3 个答案: