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

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

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