Txt File Import

[londa_vba]

Hello
I would like to import data from a txt file into my excel workbook. The code posted below works but I need it to paste the data onto a specific hidden sheet "7500 Quant Data" in cell A1 not onto the active sheet with the assigned macro button.

Sub ImportTXT()

    Dim strFile As String
    Dim ws As Worksheet
    
    Set ws = ActiveSheet
    
    strFile = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    
    If strFile = "False" Then Exit Sub
    
    With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1"))
        .TextFileParseType = xlDelimited
        .TextFileCommaDelimiter = False
        .Refresh
    End With
End Sub

 

[ExcelToDAX]

Why don't you just use Power Query?

 

[Alex Blakenburg]

Just change your Set ws statement:

Set ws = Worksheets("7500 Quant Data")

 

[londa_vba]

Just change your Set ws statement:

Set ws = Worksheets("7500 Quant Data")

thank you

 

[londa_vba]

Why don't you just use Power Query?

never heard of this until now. i will look into it, thanks

 

[Alex Blakenburg]

Thanks for the feedback. Glad we could help.