Open excel file read the data and close

this macro opens file, copy sheet1 on sheet2, closes the file

Sub Open_File_Copy_to_Sheet()
Dim fd As FileDialog, SelFile
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Set wb = ActiveWorkbook
If fd.Show = -1 Then
   SelFile = fd.SelectedItems(1)
   ActiveCell.Value = SelFile
   Workbooks.Open Filename:=SelFile
End If
Set fd = Nothing
Set wb1 = ActiveWorkbook
ActiveSheet.Copy wb.Sheets(2)
wb1.Close
End Sub

Hi, girish1989,

maybe try something like this (there´s still some information from your side missing (save to which name, xlFileFormat and where to save):

Sub Open_File_Copy_to_NewWorkbookt()
Dim fd As FileDialog
Dim wbData As Workbook

Set fd = Application.FileDialog(msoFileDialogFilePicker)
If fd.Show = -1 Then
  Set wbData = Workbooks.Open(Filename:=fd.SelectedItems(1))
  wbData.ActiveSheet.Copy
  With ActiveWorkbook
    .SaveAs Format(Now, "yymmdd_hhnnss") & "_test", FileFormat:=xlExcel8
    .Close False
  End With
  wbData.Close False
  Set wbData = Nothing
End If
Set fd = Nothing
End Sub

Ciao,
Holger

If that takes care of your original query, please select Thread Tools from the menu above and mark the thread as solved. Thanks.