所谓的"AUTOEXEC"怎么用？

Huangyufei

初学者，想打开Access后自动运行查询，并将结果直接导出到C盘下的一个Excel，然后在VBA中写（抄）了
下面的代码
然后把想自动运行，百度后说是把宏命名为AutoExec就行了，可我本来就是这样命名的啊
但是打开后并不会自动运行……

请问 把宏命名为“AUTOEXEC”是怎么理解的？

1. Sub AUTOEXEC()
   
2. 
   
3. 
   
4. Dim SQL As String
   
5. 
   
6. DoCmd.SetWarnings False
   
7. 
   
8. SQL = "Select * into [Excel 12.0 Xml;database=C:\Test.xlsx].sheet2 from Qt"
   
9. 
   
10. DoCmd.RunSQL SQL
    
11. 
    
12. DoCmd.SetWarnings True
    
13. 
    
14. 
    
15. End Sub
    

复制代码

Database1.zip (36.12 KB, 下载次数: 2)

2019-9-10 23:08 上传

点击文件名下载附件

marco

创建AutoExec宏，而不是写在模块里

Huangyufei

marco 发表于 2019-9-11 17:04
创建AutoExec宏，而不是写在模块里

那请问我写在模块中的宏要怎么开启access后自动运行？
Excel里有Workbook_Open，Access中有类似的吗？
还是创建AutoExec宏后如何调用我写在模块里的Sub？

marco

在宏里可以使用 RunCode 操作调用 VBA 中的函数（不是过程sub）过程

marco

Huangyufei 发表于 2019-9-11 17:26
那请问我写在模块中的宏要怎么开启access后自动运行？
Excel里有Workbook_Open，Access中有类似的吗？
...

在宏里可以使用 RunCode 操作调用 VBA 中的函数

Huangyufei

marco 发表于 2019-9-11 17:54
在宏里可以使用 RunCode 操作调用 VBA 中的函数

就是我原来的那段code，把Sub 改成Function，然后名字改一下，
接着就用Runcode调用这个函数就行了?

Huangyufei

marco 发表于 2019-9-11 17:54
在宏里可以使用 RunCode 操作调用 VBA 中的函数

试了一下，果然可以，多谢~~