VBA仅允许子程序在另一个子程序运行之后运行

Question

I've created a workbook that imports data from another file and then deletes any rows by finding a header string "Time". However, if the macro that deletes the rows is run again it will remove the header as there's a sub-header called "Time" as well.

OR is there a way to limit the characters Find searches for ie say my subheader is Real Time and my char limit is 4, find should only return "real" and therefore ignore that?

What I want to do is disable the Row Delete code unless there has been a new data import and the Row Delete hasn't already been run.

Some psuedo code below

If (DataImport has been run){
   If (rowDelete has been run since DataImport){
          return;
   }
   else{
   run rowDelete
   }
}

Excel VBA

Sub ImportData()

Dim wb1 As Workbook
Dim wb2 As Workbook
Dim sheet As Worksheet
Dim pastestart As Range

Set wb1 = ActiveWorkbook 'Sheets("Data")
Set pastestart = [Data!A1]

FileToOpen = Application.GetOpenFilename _
(Title:="Please choose a data file")

If FileToOpen = False Then
    MsgBox "No File Specified.", vbExclamation, "error"
    Exit Sub
Else
    Set wb2 = Workbooks.Open(Filename:=FileToOpen)

    For Each sheet In wb2.Sheets
        With sheet.UsedRange
            .Copy pastestart
            Set pastestart = pastestart.Offset(.Rows.Count)
        End With
    Next sheet
End If

    wb2.Close
End Sub

_____________________________________________________________________

Sub rowDelete()

    Dim FindRow As Range

    On Error Resume Next
    With Sheets("Data")
        Set FindRow = Cells.Find(What:="Time", After:=.Cells(1, 1), LookIn:=xlValues, LookAt:= _
        xlPart, MatchCase:=False)
    End With

    On Error GoTo 0

    Range("A1", FindRow).EntireRow.Delete

End Sub

Answer 1

You could include a cell on a worksheet which states whether an import has been made since the last row delete; include a line of code at the end of your ImportData procedure which updates this cell.

ThisWorkbook.Sheets(1).Range("A1") = "Imported"

Then at the end of the rowDelete procedure you can update this cell to reflect that the rows have been deleted.

ThisWorkbook.Sheets(1).Range("A1") = "Rows deleted"

Then within the rowDelete procedure you can check if the last procedure to be run was rowDelete . If it was, do not run the procedure.

If ThisWorkbook.Sheets(1).Range("A1") = "Rows deleted" Then
    Exit Sub
End If

If the cell shows that the ImportData procedure was run last (because the cell shows "Imported") then the rowDelete procedure can run.

Answer 2

How about using CustomDocumentProperties instead. Makes it more invisible:

ThisWorkbook.CustomDocumentProperties("Imported")

You can make this a yes/no property

Answer 3

YOu could use global variables to identify, will the below work for you?

Make sure you call InitiParams at the begining of the cycle

Dim Option Explicit
'Module Level Variables
Dim boolDataImportComplete as boolean
Dim boolRowDeleteRunComplete as boolean    

Sub InitParams()
   boolDataImportComplete = False
   boolRowDeleteRunComplete = False
End Sub

Sub ImportData()
    ''' Your Code here

    boolDataImportComplete  = True
End Sub

Sub RowDelete()
    ''' YOUR Code here
    boolRowDeleteRunComplete  = True
End Sub