自動保存文件

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