自动保存文件

Question

我每10分钟将数据导入到一个文本文件中。每天有一次，我的excel文件book1在下午5点自动打开并运行宏。这个宏导入数据(从文本文件)，绘制图表，保存文件，然后关闭保存的文件和book1。

我需要文件保存到相同的位置，但不同的文件名称为每一天。可能是LOGTEST1，LOGEST2。或者DAY1，或者DAY2。文件名并不重要，只要每天有一个新文件出现在我的保存位置上。再过30天，我就会有30份文件。

这是我必须将其保存为一个文件的代码。有人能帮助我使用相同的宏和相同的book1文件动态保存它吗？

Sub Auto_Open()
'
' Auto_Open Macro
'

'
    Workbooks.OpenText Filename:="C:\Users\Pabo\Desktop\LOGTEST.txt", Origin _
        :=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
        , ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:= _
        False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 4), Array(2, 1) _
        ), TrailingMinusNumbers:=True
    Columns("A:A").EntireColumn.AutoFit
    Columns("A:B").Select
    ActiveWindow.SmallScroll Down:=-9
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'LOGTEST'!$A:$B")
    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    ActiveWorkbook.SaveAs Filename:="C:\Users\Pablo\Desktop\LOGTEST.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

    ActiveWorkbook.Close savechanges = True
    Application.Quit
End Sub

Answer 1

例如，将文件名设置为包含今天的日期和月份。类似于：

myFileName = "myFile_" & Month(Now) & "_" & Day(Now)
ActiveWorkbook.SaveAs Filename:="C:\Users\Pablo\Desktop\" & myFileName, _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False