求助 VBA程序运行报错：run time error 13 type mismatch

Sheet14.Cells(ROWAAA, "CL") = Format(Now(), "yyyy年mm月dd日-hh:mm:ss") '记录退出时间

这句代码中，建议你把 Now() 后面的括号去掉再试试看。

在workbook_open事件中写入代码，即可实现打开Excel就运行VBA。

详细步骤如下：

1.点击”Thisworkbook“进入程序编辑界面，点击下拉箭头，选择”Workbook“

2.此时，系统会自动出现一段代码，即打开文件执行其中的程序，如下所示：

3.在这串代码中，加入一串代码，如下图所示：

4.保存，关闭Excel文件；再次打开，就会运行”msgbox 123“这段代码，如下图所示：

认识Workbook_Open事件

VBA帮助里这么定义：打开工作簿时，将产生本事件。

Workbook_Open事件只在工作簿打开的时候产生,在下一次打开之前不再发生此事件。

可以写入一些只需执行一次的代码,比如如果您需要在文件每次打开时在表1中A列记录下文件打开的时间,则应该使用此事件.

Private

Sub Workbook_Open()

Sheet1.Range("A65536").end(xlup).offset(1,0).value

=Vba.Now

End

Sub

不建议使用ActiveSheet,而应直接使用工作表名.

另对系统设置进行修改的代码不应该写在这里,而应写入Workbook_Activate事件中,Workbook_Activate事件紧随在Workbook_Open事件后面发

生。

---