如何使用F8运行每一行？

Question

如何运行私有子程序，并执行每一行？

它不允许我通过按F8来介入。

Private Sub upload_fed_expenses_batch()
    
    Dim dbConn As ADODB.Connection, sSQL As String, rsLocal As New ADODB.Recordset, rstmp As New ADODB.Recordset
    Dim dbOracle As New ADODB.Connection, rsOracle As New ADODB.Recordset, lCount As Long, rsValue As New ADODB.Recordset
    Dim dAmount As Double, dBase As Double

    Stop

Answer 1

只执行可执行指令的步骤。

Dim语句是不可执行的；它们的顺序实际上并不重要--实际上，在执行进入其作用域*时，局部变量就会出现*，而不管在该作用域中声明的位置。

因此，在本例中，当执行进入upload_fed_expenses_batch过程时，它会命中第一个可执行语句，因为这是一个Stop语句，就在那里然后停止。

从到，您可以使用F8逐行运行可执行代码，但是正如注释中所准确提到的那样，您不能中断声明。

*对Static本地人提出警告。