0

есть код который формирует "Отчет" в Excel. Необходимо сделать чтобы имя файла сохранялось с текущей датой и временем. Так же пробовал, создавать просто таблицу, а потом сохранять в директорию. Не совсем понятно, что я делаю не так.
В основном пользовался:

  1. Open an Excel file and save as .XLS
  2. Need VBS code to saveas xlsm
  3. VBScript to Open an Excel File and then do a Save As
  4. 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   '''

  
4
  • Добро пожаловать в SO! Извини, но не понял - в описании проблемы говоришь "чтобы имя файла сохранялось", а в коде пишешь "чтобы имя файла открывалось"... А как оно откроется, если ты это имя вот только сейчас сформировал? Нет ещё такого файла...
    – JohnSUN
    23 окт 2020 в 13:21
  • Извиняюсь, просто я в этом новичок. Сейчас постараюсь подправить, действительно 23 окт 2020 в 13:42
  • Ну, так получше... Книга сохраняется в нужном месте с нужным именем? Осталось разобраться, что за зверь items, откуда взялся и что содержит
    – JohnSUN
    23 окт 2020 в 14:35
  • Книга не сохраняется, в этом и проблема. Если указать на прямую путь и имя файла то сохраняется, к примеру objExcel.workbooks.SaveAs "D:\Stat\1.xlsx". Тогда работает. А когда указываешь, через переменную тогда уже не сохраняется 26 окт 2020 в 6:10

1 ответ 1

0

Ошибка связана с неправильным использованием Format

Рабочий код:

Function FormatDateYYYYMMDD(D)
    FormatDateYYYYMMDD = Year(D) & "_" & Format2DigitString(Month(D)) & "_" & Format2DigitString(Day(D))
End Function

Function FormatDateYYYYMMDDHHMMSS(D)
    FormatDateYYYYMMDDHHMMSS = FormatDateYYYYMMDD(D) &  "_" & Format2DigitString(Hour(D)) &  "_" & Format2DigitString(Minute(D)) &  "_" & Format2DigitString(Second(D))
End Function

Function Format2DigitString(N)
    If N >= 10 Then
        Format2DigitString= Format2DigitString & N
    Else
        Format2DigitString= Format2DigitString & "0" & N
    End If
End Function

    Dim objExcel, activeWB, activeSheet,objWorkbook,Storage_Path
    Dim tp, strPath, Fn
    Storage_Path = "F:\Test\" 
    Fn = FormatDateYYYYMMDDHHMMSS(Now)
    tp = ".xlsx"
    strPath = Storage_Path & Fn & tp
    Set objExcel = CreateObject("Excel.Application")
    objExcel.Visible = False
    
    Set objWorkbook = objExcel.Workbooks.Add ()
' Здесь что-то написать в новую книгу:
    objWorkbook.Worksheets(1).Range("A1").Value = "Эта новая книга будет сохранена в " & strPath
    objWorkbook.SaveAs (strPath)
    objWorkbook.Close
    objExcel.Application.Quit
 
    Set objExcel = Nothing 
 
5
  • Спасибо, а как? до этого дойти. Где бы это почитать? Интересно. Спасибо, огромное 26 окт 2020 в 8:05
  • Даже не знаю, что посоветовать... При запуске твоего варианта скрипта выскакивало сообщение "Ошибка выполнения Microsoft VBScript: Несоответствие типа: 'Format'". Поиск по этому тексту вывел на сообщение 14-летней давности, ссылку на которое я дал в своём ответе (правда, функции от Осипова были добавлены туда 9 лет назад, но это уже не существенно)
    – JohnSUN
    26 окт 2020 в 8:16
  • Простите, а вы использовали Visual Studio ? для компиляции скрипта 26 окт 2020 в 13:17
  • Да нет, студию себе и не ставил никогда. Так, в FAR'е код набросал, через cscript выполнил. Разве VS может больше?
    – JohnSUN
    26 окт 2020 в 13:27
  • Да нет, просто ради интереса 27 окт 2020 в 5:54

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими пользовательским соглашением, политикой конфиденциальности и политикой о куки

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.