make new excel sheet with new name and date in folder

Dim objExcel, strExcelPath, strSaveAsPath, objSheet,i

If SmartTags("a") = 1 Then

Else SmartTags(a") =1

End If

strExcelPath = "c:\as\x.xlsx"

strSaveAsPath = "c:\mn\x.xlsx"

' Open specified spreadsheet and select the first worksheet.

Set objExcel = CreateObject("Excel.Application")

objExcel.Workbooks.Open strExcelPath

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

' Write Cell value for M1/H.

objSheet.Cells(5,4).Value = SmartTags("BR_comp_nr01")

objSheet.Cells(5,5).Value = SmartTags("BR_comp_nr02")

objSheet.Cells(5,6).Value = SmartTags("BR_comp_nr03")

objSheet.Cells(5,7).Value = SmartTags("BR_comp_nr04")

objSheet.Cells(5,8).Value = SmartTags("BR_comp_nr05")

' Write Cell value for M2/H.

objSheet.Cells(8,4).Value = SmartTags("BR_rated_val01")

objSheet.Cells(8,5).Value = SmartTags("BR_rated_val02")

objSheet.Cells(8,6).Value = SmartTags("BR_rated_val03")

objSheet.Cells(8,7).Value = SmartTags("BR_rated_val04")

objSheet.Cells(8,8).Value = SmartTags("BR_rated_val05")

' Write Cell value for M3/H.

objSheet.Cells(16,4).Value = SmartTags("BR_real_val01")

objSheet.Cells(16,5).Value = SmartTags("BR_real_val02")

objSheet.Cells(16,6).Value = SmartTags("BR_real_val03")

objSheet.Cells(16,7).Value = SmartTags("BR_real_val04")

objSheet.Cells(16,8).Value = SmartTags("BR_real_val05")

objSheet.Cells(16,3).Value = SmartTags("BR_batchtime")

objSheet.Cells(16,2).Value = SmartTags("BR_batches")

objSheet.Cells(2,20).Value = SmartTags("BR_Recipe")

objSheet.Cells(2,21).Value = SmartTags("BR_batches")

objSheet.Cells(2,4).Value = SmartTags("BR_Start")

' Write Cell value for EFF. (Bending)

'objWorkbook.Close

' Save and quit.

'objExcel.ActiveWorkbook.SaveAs

objExcel.ActiveWorkbook.SaveAs strSaveAsPath

objExcel.ActiveWorkbook.Close

objExcel.Application.Quit

' SaveAs, Print and quit.

objExcel.Workbooks.Open strSaveAsPath

objExcel.ActiveWorkbook.PrintOut

objExcel.ActiveWorkbook.Close

ShowSystemAlarm "Storage of the data was successful!"