appending a text file

[np1966]

at present i am using the following code to append a text file abc.txt into an excel file and here i am giving the entire path.

without mentioning the path, is there any way to append a text file say abc.txt which is present in the same folder of the excel file

With ActiveSheet.QueryTables.Add(Connection:="TEXT;e:\new\product\abc.txt" _
        , Destination:=Range("$A$1"))

 

[gallen]

I append an error log text file using this sub: Could be adpated to achieve what you need?

Public Sub WriteError(sSub As String)

Dim sUserName As String
    'Generate an entry to the log for the error
    sUserName = StrConv(Environ("UserName"), vbProperCase)
    
    Open "S:\Ops\Ops Support\Runplans\Data\Error Logs\RunPlanErrorLog.log" For Append As #1


    Print #1, sUserName & "|" & sSub & "|Error: " & Err.Number & " " & Err.Description & "|" & Format(Now, "dd/mm/yy hh:mm:ss")


    Close #1
End Sub