模块子不会单独通过

我在我的程序中有一个模块，当从主程序调用时将运行，但我无法通过它或单独运行，我不明白为什么。 当我按F8时，似乎什么也没有发生。 我希望能够通过代码来监视variables。

这是来自模块的代码：

Sub FileCntSub(ByVal StrPath As String) Dim FolderPath As String, path As String, count As Integer, countstring As String FolderPath = StrPath path = FolderPath & "*.htm" Filename = Dir(path) Do While Filename <> "" count = count + 1 Filename = Dir() Loop countstring = count Range("Q8").Value = count 'MsgBox count & " : files found in folder" 

结束小组

任何想法，为什么我不能单独运行？

谢谢

Answer 1

您无法开始浏览需要参数的子例程，例如：

 Sub foo(bar as String) MsgBox bar End Sub 

按F8什么都不做，因为参数bar没有被传递给过程。

在过程中使用断点，即在第一个语句中执行。 然后运行程序（通常是从命令button，事件处理程序等）调用它，然后从断点开始。

Answer 2

无论你想通过哪一行，只需要点击左边的窗格，就会在这一行添加一个断点。 然后，当您运行macros只有这些点将被检查。 只要按照这个指南在这里http://www.wiseowl.co.uk/blog/s196/breakpoints.htm如何通过您的程序中的各个点。