0

我每 10 分钟将数据导入一个文本文件。每天一次，我的名为 book1 的 Excel 文件会在下午 5 点自动打开并运行一个宏。此宏导入数据（从文本文件），绘制图形，保存文件，然后关闭保存的文件和 book1。

我需要将文件保存到同一位置，但每天使用不同的文件名。它可能是 LOGTEST1、LOGEST2。或第 1 天，或第 2 天。文件名无关紧要，只要每天在我保存的位置上出现一个新文件即可。在 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
4

1 回答 1

1

例如，将您的文件名设置为包括今天的日期和月份。就像是：

myFileName = "myFile_" & Month(Now) & "_" & Day(Now)
ActiveWorkbook.SaveAs Filename:="C:\Users\Pablo\Desktop\" & myFileName, _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
于 2013-10-28T08:40:14.960 回答