파일 자동 저장

Question

10 분마다 단일 텍스트 파일로 데이터를 가져오고 있습니다. 하루에 한 번 Excel1이라는 Excel 파일이 오후 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