Hyperlink to download a csv file

[Godders199]

Hello, I am trying to download a csv to an existingspreadsheet, I have the following, I have tried NewWindow true and false makesno difference, always opens a new workbook.

How do I make it download to a specific sheet in the openworkbook?
Sheets("info").Range("A25").Hyperlinks(1).FollowNewWindow:=False, AddHistory:=True

 

[DanteAmor]

The file will always be open, you can copy the sheet and paste it into your existing sheet, try the following:

Sub test1()
    Application.ScreenUpdating = False
    Sheets("info").Range("A25").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    ActiveSheet.Cells.Copy ThisWorkbook.Sheets("existingSheet").Range("A1")
    ActiveWorkbook.Close
    Application.ScreenUpdating = True
    MsgBox "File inserted in the sheet existingSheet"
End Sub

 

[John_w]

You could use a text query to download and import the .csv file into the "Other sheet". The macro should be something like this:

Sub Import_CSV()

    With Worksheets("Other sheet")
        With .QueryTables.Add(Connection:="TEXT;" & Worksheets("info").Range("A25").Hyperlinks(1).Address, Destination:=.Range("A1"))
            .TextFileStartRow = 1
            .TextFileParseType = xlDelimited
            .TextFileCommaDelimiter = True
            .Refresh BackgroundQuery:=False
        End With
        .QueryTables(1).Delete
    End With
    
End Sub

 

[Godders199]

thanks will give it a go

 

[Godders199]

You could use a text query to download and import the .csv file into the "Other sheet". The macro should be something like this:

Sub Import_CSV()

    With Worksheets("Other sheet")
        With .QueryTables.Add(Connection:="TEXT;" & Worksheets("info").Range("A25").Hyperlinks(1).Address, Destination:=.Range("A1"))
            .TextFileStartRow = 1
            .TextFileParseType = xlDelimited
            .TextFileCommaDelimiter = True
            .Refresh BackgroundQuery:=False
        End With
        .QueryTables(1).Delete
    End With
    
End Sub

Hi this works, but i need the sheet to be in Text format, due to the length of the numbers in some columns. i have tried adding fieldinfo = Array (1,2) for example but this does not work

 

[John_w]

Try recording a macro with you doing the text query and specifying the required column formats and it should generate the correct TextFileColumnDataTypes = Array(x, x,..._) which you can incorporate into my code.