Hi!
I am using the following code to download data from a website using vbs. The data is held in the webpage in table form. However, the resulting downloaded data is in the form of a simple continuous text, which I cannot import into excel and use as a table. (I can download the same using excel etc., but I find vbs to be much faster and efficient).
The solution at https://www.example-code.com/vbscrip...ble_to_csv.asp allows converting the downloaded data to csv format, but requires specific api and software to be pre-installed.
I was wondering if it would be possible to download the data in csv format using vbs only and without using a third-party software.
Also, I had posted this request on Stackoverflow at https://stackoverflow.com/questions/...91746#65891746. A user had posted a probable solution, but I am unable to use it due to my limited vbs literacy.
Perhaps above links could give some ideas?
Note:
1. I would request to kindly post the full working code with modifications to download the data in csv format, since I am not familiar with vbs.
2. The file with the above code needs to be saved in D:\ as any_name.vbs and resulting downloaded data file will be downloaded in D:\
Thanks.
I am using the following code to download data from a website using vbs. The data is held in the webpage in table form. However, the resulting downloaded data is in the form of a simple continuous text, which I cannot import into excel and use as a table. (I can download the same using excel etc., but I find vbs to be much faster and efficient).
The solution at https://www.example-code.com/vbscrip...ble_to_csv.asp allows converting the downloaded data to csv format, but requires specific api and software to be pre-installed.
I was wondering if it would be possible to download the data in csv format using vbs only and without using a third-party software.
Also, I had posted this request on Stackoverflow at https://stackoverflow.com/questions/...91746#65891746. A user had posted a probable solution, but I am unable to use it due to my limited vbs literacy.
Perhaps above links could give some ideas?
Code:
For i = 1 to 1
createFile(i)
Next
Public Sub createFile(a)
Dim fso,MyFile
filePath = "D:\file_name" & a & ".txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(filePath)
myURL = "https://www.investing.com/indices/major-indices"
'Create XMLHTTP Object & HTML File
Set oXMLHttp = CreateObject("MSXML2.XMLHTTP")
Set ohtmlFile = CreateObject("htmlfile")
'Send Request To Web Server
oXMLHttp.Open "GET", myURL, False
oXMLHttp.send
'If Return Status is Success
If oXMLHttp.Status = 200 Then
'Get Web Data to HTML file Object
ohtmlFile.Write oXMLHttp.responseText
ohtmlFile.Close
'Parse HTML File
Set oTable = ohtmlFile.getElementsByTagName("table")
For Each oTab In oTable
MyFile.WriteLine oTab.Innertext
Next
MyFile.close
End If
End Sub
'Process Completed
'WScript.Quit1. I would request to kindly post the full working code with modifications to download the data in csv format, since I am not familiar with vbs.
2. The file with the above code needs to be saved in D:\ as any_name.vbs and resulting downloaded data file will be downloaded in D:\
Thanks.