Macro to have someone find the document they want to open then open it and copy the data into this document

[tonywatsonhelp]

Hi Everyone,

I could do with you help,

I'm looking for a macro that when run gets you to select the file you want to open using the file explorer (it might be a csv or any excel document), then copy the page it opens on into this document sheet "Raw" A1
I want to copy everything including the headers and paste values if possible.

Please help if you can was supposed to have this finished today so i cant go home till its sorted (Going to be a long night)
Thanks
Tony

 

[kweaver]

I've used the following (I modified it for my specific use, but this is the basic version):

Sub GetFile()
   Dim Fname As Variant
   Dim SrcWbk As Workbook
   Dim DestWbk As Workbook
   Dim SheetName As String
   Dim lr As Long

   Application.ScreenUpdating = False
   Set DestWbk = ThisWorkbook
   Fname = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls*", Title:="Select a File")
   If Fname = False Then
   MsgBox "User Cancelled."
   End
   Else
   End If
   Set SrcWbk = Workbooks.Open(Fname)
   SheetName = ActiveSheet.Name
   SrcWbk.Sheets(SheetName).Copy DestWbk.Sheets("Sheet1")
   
   Application.DisplayAlerts = False

   SrcWbk.Close False

   Application.ScreenUpdating = True
End Sub

 

[tonywatsonhelp]

Kweaver,
thank you,
Very much what i needed thank you
Tony