web'den CSV dosyasını direkt TXT' ye aktarma

[tamer42]

Merhaba,
aşağıdaki kod ile web ortamından direkt excel' e veri çekebiliyoruz,
burada excel yerine TXT dosyasına veriyi çekip hardisk' e kaydetmesi nasıl sağlanabilir?

teşekkürler,
iyi çalışmalar.

Sub OpenCSV()
strURL = "https://d396qusza40orc.cloudfront.net/getdata/data/ss06hid.csv"
Application.Workbooks.Open (strURL)
End Sub

 

[Haluk]

"C:\TestFolder" klasörüne dosya adıyla kaydeder....

Sub Test()
    'Haluk - 14/11/2023
    '
    Dim FileNum As Long
    Dim FileData() As Byte
    Dim MyFile As String, fileName As String
    Dim WHTTP As Object
    
    On Error Resume Next
        Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5")
        If Err.Number <> 0 Then
            Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5.1")
        End If
    On Error GoTo 0
    
    MyFile = "https://d396qusza40orc.cloudfront.net/getdata/data/ss06hid.csv"
    
    fileName = StrReverse(Split(StrReverse(MyFile), "/")(0))
    
    WHTTP.Open "GET", MyFile, False
    WHTTP.Send
    FileData = WHTTP.ResponseBody
    Set WHTTP = Nothing
    
    If Dir("C:\TestFolder", vbDirectory) = Empty Then MkDir "C:\TestFolder"
    
    FileNum = FreeFile
    Open "C:\TestFolder\" & fileName For Binary Access Write As #FileNum
        Put #FileNum, 1, FileData
    Close #FileNum
    
    MsgBox "Islem tamam..."
End Sub

.

 

[tamer42]

"C:\TestFolder" klasörüne dosya adıyla kaydeder....

Sub Test()
    'Haluk - 14/11/2023
    '
    Dim FileNum As Long
    Dim FileData() As Byte
    Dim MyFile As String, fileName As String
    Dim WHTTP As Object
   
    On Error Resume Next
        Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5")
        If Err.Number <> 0 Then
            Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5.1")
        End If
    On Error GoTo 0
   
    MyFile = "https://d396qusza40orc.cloudfront.net/getdata/data/ss06hid.csv"
   
    fileName = StrReverse(Split(StrReverse(MyFile), "/")(0))
   
    WHTTP.Open "GET", MyFile, False
    WHTTP.Send
    FileData = WHTTP.ResponseBody
    Set WHTTP = Nothing
   
    If Dir("C:\TestFolder", vbDirectory) = Empty Then MkDir "C:\TestFolder"
   
    FileNum = FreeFile
    Open "C:\TestFolder\" & fileName For Binary Access Write As #FileNum
        Put #FileNum, 1, FileData
    Close #FileNum
   
    MsgBox "Islem tamam..."
End Sub

.

Çok teşekkürler Haluk Hocam
iyi çalışmalar