Текстовый файл должен быть сохранен как текущий формат даты и времени

Question

Я дал некоторые входные данные в файле Excel, после нажатия кнопки «Отправить» он должен создать текстовый файл в каталоге, указанном в FileSavePath (например, C: \ Temp). Файл должен иметь имя ddmmyyyyhhmmss.txt (например, 09072019085633.txt).

strFile_Path = "C:\temp\"
ActiveWorkbook.SaveAs ("C:\temp\ " & Format(Now(), "DDMMMYYYYhhmmss") & ".txt")

strFile_Path = "C:\temp\"
ActiveWorkbook.SaveAs ("C:\temp\ " & Format(Now(), "DDMMMYYYYhhmmss") & ".txt")

Я ожидаю, что как только я нажму кнопку отправки, он создаст текстовый файл по пути назначения в формате ddmmyyyyhhmmss.txt

Answer 1

Sub MakeTextFile()
 Dim fs, a As Object
 Dim dayPre, monthPre, hourPre, minutePre, secondPre As String

 If Day(Date) < 10 Then dayPre = "0"
 If Month(Date) < 10 Then monthPre = "0"
 If Hour(Time) < 10 Then hourPre = "0"
 If Minute(Time) < 10 Then minutePre = "0"
 If Second(Time) < 10 Then secondPre = "0"

 Set fs = CreateObject("Scripting.FileSystemObject")
 Set a = fs.CreateTextFile("C:\Temp\" & dayPre & Day(Date) & monthPre & Month(Date) & Year(Date) & hourPre & Hour(Time) & minutePre & Minute(Time) & secondPre & Second(Time) & ".txt", True)
 a.WriteLine ("This is a test.")
 a.Close

 Set a = Nothing
 Set fs = Nothing
End Sub