如何调试Excel VBA代码

如何调试Excel VBA代码

最有用的调试措施就是按F8一行一行的执行程序代码，可以看见语句流程，特别是循环和判断语句的时候。
调试过程中，鼠标放在变量上会显示值，对于需要随时查看值的变量，可以点鼠标右键添加到监视窗口。
有的循环步骤较多，在跟踪几次确认没有问题之后，可以在后面的语句上按F9设置断点，然后选择继续执行程序就可以一直不停的执行到断点位置。

右键单击工作表标签，选择查看代码，输入如下代码：

sub 保存历史数据()     dim irow as integer     dim i as integer     dim ibook as workbook     dim isht as worksheet     on error resume next     set ibook = getobject("f:\历史数据.xls")     '假设保存到历史数据sheet1工作表中，若不是修改下句代码中的sheet1为对应工作表名称。     set isht = ibook.sheets("sheet1")     with isht     i = .range("a65536").end(xlup).row + 1     .range("a" & i) = "'" & worksheetfunction.text(i - 1, "00000")     .range("b" & i) = "'" & worksheetfunction.text(date, "yyy-mm-dd")     .range("c" & i) = worksheetfunction.text(time, "hh:mm:ss")     .range("d" & i) = range("k3")     .range("e" & i) = range("k4")     .range("f" & i) = range("n4")     .range("g" & i) = range("n4")     .range("h" & i) = range("k5")     .range("i" & i) = range("k6")     end with     ibook.windows(1).viluosible = true     ibook.save     ibook.close end sub

插入窗体控件按钮，更改显示名字为“保存”，指定宏“保存历史数据”。需要时，单击“保存”按钮即可。