动态添加和运行VBA代码

Question

以下是我目前的步骤

1. 访问文件导出CSV文件的宏（VBA代码）

2. 导出CSV文件通过宏来得到修改（VBA代码）

现在，我在执行上接入宏（步骤1） - 导出的文件下>，添加代码并运行（步骤2）

我想简化这个过程。

是否可以通过执行步骤1，将步骤2代码添加到csv文件并运行？

步骤1码

Dim dbs As DAO.Database 
Dim rst As DAO.Recordset 
Dim intFile As Integer 
Dim strFilePath As String 
Dim intCount As Integer 
Dim strHold  
strFilePath = "C:\temp\TEST.csv"  
Set dbs = CurrentDb  
Set rst = dbs.OpenRecordset("Import", dbOpenForwardOnly)  
intFile = FreeFile 
Open strFilePath For Output As #intFile  
Do Until rst.EOF 
    For intCount = 0 To rst.Fields.Count - 1 
    strHold = strHold & rst(intCount).Value & "|" 
    Next 
    If Right(strHold, 1) = "|" Then 
     strHold = Left(strHold, Len(strHold) - 1) 
    End If 
    Print #intFile, strHold 
    rst.MoveNext 
    strHold = vbNullString 
Loop  
Close intFile  
rst.Close  
Set rst = Nothing   
End Function 

步骤2码

Sub deleterows() 
lastrow = Cells(Rows.Count, 4).End(xlUp).Row 
For i = lastrow To 1 Step -1 
    If Cells(i, 4).Value < Date Then Rows(i).EntireRow.Delete 
Next i 
End Sub 

注我不喜欢使用Windows计划在一定时间运行宏。

我很好的参考，一直至今Is it possible to automatically input VBA code when a new sheet is generated? & Dynamically insert macro into a new excel workbook & https://support.microsoft.com/en-us/kb/219905

我会尽我所能来响应！请留下澄清意见。谢谢！

Answer 1

你可以简单地改变现有的第1步的代码是：

Dim dbs As DAO.Database 
Dim rst As DAO.Recordset 
Dim intFile As Integer 
Dim strFilePath As String 
Dim intCount As Integer 
Dim strHold  
strFilePath = "C:\temp\TEST.csv"  
Set dbs = CurrentDb  
Set rst = dbs.OpenRecordset("Import", dbOpenForwardOnly)  
intFile = FreeFile 
Open strFilePath For Output As #intFile  
Do Until rst.EOF 
    'Check the 4th field to see whether it is today or later 
    If CDate(rst(3)) >= Date Then 
     'If so, create a record (if not, don't) 
     For intCount = 0 To rst.Fields.Count - 1 
      strHold = strHold & rst(intCount).Value & "|" 
     Next 
     If Right(strHold, 1) = "|" Then 
      strHold = Left(strHold, Len(strHold) - 1) 
     End If 
     Print #intFile, strHold 
    End If 
    rst.MoveNext 
    strHold = vbNullString 
Loop  
Close intFile  
rst.Close  
Set rst = Nothing   
End Function