0

自動的に開いてマクロを実行する Excel ファイルがあります。このマクロは、txt ファイルからデータをインポートします。1 時間ごとに、データが txt ファイルの新しい行 (タイムスタンプと値) に入れられます。私のマクロは午後 5 時に開き、データをインポートしてグラフ化し、動的な日付に保存してから閉じます。

このマクロは、1 日 1 回、午後 5 時に開きます。ただし、マクロが最初の日に最初の 24 行を選択し続け、2 日目に 24 行を選択し続けることは望ましくありません。2日目に走るとき。2 日目は、行 (25 ~ 49) のみを選択したいと思います。3日目に、行(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
4

2 に答える 2