我有一个excel文件,它会自动打开然后运行一个宏 . 此宏从txt文件导入数据 . 每隔1小时,数据就会进入一个新行(时间戳和一个值)的txt文件 . 我的宏在下午5点打开,导入数据,绘制图表,将其保存到动态日期,然后关闭 .
这个宏每天下午5点开放一次 . 但是,我不希望宏继续选择第一天的前24行和第二天的第二行24行 . 当它在第二天运行时 . 在第二天,我想只选择行(25-49) . 在第三天,我想选择行(50-74) .
有没有人有一个关于使用相同的宏动态选择行的方法?
Sub Auto_Open()
'
' Auto_Open Macro
'
'
Workbooks.OpenText Filename:="C:\Users\Pablo\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
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'LOGTEST'!$A:$B")
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
myFileName = "myFile_" & Month(Now) & "_" & Day(Now) & "_" & Hour(Now) & "_" & Minute(Now)
ActiveWorkbook.SaveAs Filename:="C:\Users\Pablo\Desktop\" & myFileName, _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close savechanges = True
Application.Quit
End Sub
2 回答
在内存中读取文件,而不是将其带入电子表格: