Hi,
I am trying to copy data from one workbook that is on specific location and then paste data to the another workbook and then save the 'another' workbook with specific name.
I am able to save workbook but I am unable to copy data from one workbook to another. code gives an error. Below is my code. Please help.
Sub Save214012016()
Dim FName As String
Dim FPath As String
Dim NewBook As Workbook
Dim wb2 As Workbook
FPath = "C:\Users\aman.bhardwaj\Desktop\Ideas\Learning process\Master files\testing\saved report"
FName = "LearnersinMandateDataExport_3657_" & Format(Date, "mmddyyyy") & ".xlsx"
Set wb2 = Workbooks.Open("C:\Users\aman.bhardwaj\Desktop\Ideas\Learning process\30th November 2015\raw\LearnersinMandateDataExport_3657.xls")
ThisWorkbook.Activate
Set NewBook = Workbooks.Add
Windows("LearnersinMandateDataExport_3657.xls").Activate
Sheets("Sheet1").Select
wb2.Sheets("Sheet1").Copy Before:=NewBook.Sheets(1)
If Dir(FPath & "\" & FName) <> "" Then
MsgBox "File " & FPath & "\" & FName & " already exists"
Else
NewBook.SaveAs Filename:=FPath & "\" & FName
End If
End Sub
Bookmarks