Prompt to open a CSV, merge it into the file (already open) that has the macro

[SandsB]

User has a report open (File1.xlsx) and runs a macro to....

1. Give the user a prompt to point to a file (Fileddddtttt.csv) - the file name contains the date and time so it changes every time it's created.
2. Copy the worksheet in Fileddddtttt.csv to a tab named Daily in File1.xlsx.
3. Fileddddtttt.csv doesn't need to stay open - just copied into File1.xlsx.

 

[Anfinsen]

User has a report open (File1.xlsx) and runs a macro to....

1. Give the user a prompt to point to a file (Fileddddtttt.csv) - the file name contains the date and time so it changes every time it's created.
2. Copy the worksheet in Fileddddtttt.csv to a tab named Daily in File1.xlsx.
3. Fileddddtttt.csv doesn't need to stay open - just copied into File1.xlsx.

Hello Sands,
this is what I use to achieve a similar result, add as a button, or as part of another macro. You will need to change your paste destination.

Sub Get_Data_From_File()
     If MsgBox("You will now open the file you want to add charges to, click OK to continue") = vbYes Then
End If
Dim FileToOpen As Variant
Dim OpenBook As Workbook
Application.ScreenUpdating = False
    FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import Range", FileFilter:="Excel Files (*.csv*),*csv*")
    If FileToOpen <> False Then
        Set OpenBook = Application.Workbooks.Open(FileToOpen)
      
      
        Application.DisplayAlerts = False
'below is where you are copying from
        OpenBook.Sheets(1).Range("A1:W9999").Copy
'below is where you are pasting to, change "Pasted Import File" and Range to your destination
        ThisWorkbook.Worksheets("Pasted Import File").Range("A1").PasteSpecial xlPasteValues
        OpenBook.Close False
        Application.DisplayAlerts = True
      
      
    End If
End Sub

 

[SandsB]

PERFECT!!!!! Thank you

 

[Anfinsen]

PERFECT!!!!! Thank you

Glad it worked out for you, please mark this as the solution.