есть код который формирует "Отчет" в Excel. Необходимо сделать чтобы имя файла сохранялось с текущей датой и временем. Так же пробовал, создавать просто таблицу, а потом сохранять в директорию. Не совсем понятно, что я делаю не так.
В основном пользовался:
- Open an Excel file and save as .XLS
- Need VBS code to saveas xlsm
- VBScript to Open an Excel File and then do a Save As
- How to Add Date and Time To File Name Using VBA in Excel
Собственно фрагмент кода:
``` Dim objExcel, activeWB, activeSheet,objWorkbook,Storage_Path
Dim tp, strPath, Fn
Set objExcel = CreateObject("Excel.Application")
Storage_Path = "D:\Stat\"
Fn = Format(CStr(Now), "yyyy_mm_dd_hh_mm_ss_")
tp = ".xlsx"
strPath = Storage_Path&Fn&tp
objExcel.Visible = False
Set objWorkbook = objExcel.Workbooks.Add ()
'objExcel.workbooks.SaveAs SaveDateTime(String)
'Save and quit.
objExcel.ActiveWorkbook.SaveAs (strPath)
objExcel.ActiveWorkbook.Close
objExcel.Application.Quit
'objExcel.workbooks.SaveAs "D:\Stat\1.xlsx"
'objExcel.workbooks.close
'objExcel.quit
'Set objExcel = Nothing
Set objExcel = Nothing
End Sub '''
items
, откуда взялся и что содержит