vbaを使用してすべてのWebページソースデータを印刷/インポートします

Question

ソースコードの一部のみをシートにインポートする以下のコードがあります。私はすべてのソースコードをしたい、それがis.`Sub GetSourceCode（）

Dim ie As Object 

Dim str As String 
Dim arr 

str = Sheets("sheet2").Range("I1").Value 
Set ie = CreateObject("INTERNETEXPLORER.APPLICATION") 

ie.Navigate "https://tiweb.industrysoftware.automation.com/prdata/cgi-bin/n_prdata_index.cgi?" 
ie.Visible = False 

Do Until ie.ReadyState = 4 
    DoEvents 
Loop 

ie.Document.getelementsbyname("pr_numbers")(0).Value = str 
Application.SendKeys ("~") 

Do Until ie.ReadyState = 4 
    DoEvents 
Loop 


Worksheets("Download_PRdata2").Activate 

arr = Split(ie.Document.body.outertext) 
Worksheets("Download_PRdata2").Activate 
ActiveSheet.Range("A1").Resize(UBound(arr) + 1, 1).Value = Application.Transpose(arr) 

が終了Sub`

Answer 1

こんにちは、あなたが参照することができ、以下のコード

' Fetch Entire Source Code 

Private Sub HTML_VBA_Excel() 
Dim oXMLHTTP As Object 
Dim sPageHTML As String 
Dim sURL As String 

'Change the URL before executing the code 
sURL = "http://www.google.com" 

'Extract data from website to Excel using VBA 
Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP") 
oXMLHTTP.Open "GET", sURL, False 
oXMLHTTP.send 
sPageHTML = oXMLHTTP.responseText 

'Get webpage data into Excel 
' If longer sourcecode mean, you need to save to a external text file or somewhere, 
' since excel cell have some limits on storing max characters 

ThisWorkbook.Sheets(1).Cells(1, 1) = sPageHTML 

MsgBox "XMLHTML Fetch Completed" 

End Sub 

ソースとして：http://www.vbausefulcodes.in/usefulcodes/get-data-or-source-code-from-webpage-using-excel-vba.php

・ホープこれはあなたに役立つでしょう！

Answer 2

このようなテキストファイルにソースコードを保存することができます。以下の機能の代わりに、この行ThisWorkbook.Sheets（1）.Cells追加（1,1）= sPageHTML

Createtextfile (sPageHTML) 

とEnd Subの後の機能以下にこれを追加します。

Sub Createtextfile(sPageHTML) 

Dim fso As Object 
Set fso = CreateObject("Scripting.FileSystemObject") 
Dim oFile As Object 
strPath = "E:\test.txt" 
Set oFile = fso.Createtextfile(strPath) 
oFile.WriteLine sPageHTML 
oFile.Close 
Set fso = Nothing 
Set oFile = Nothing 

End Sub 

保存する場所を変更します。