野果做的凉粉_新浪博客

CurrentProject.FullName 属性
该属性设置或返回特定对象的完整路径（包括文件名）。只读 String 类型。

createobject('wscript.shell').run '''BAT或EXE的文件路径及名称''',0

  0 隐藏运行窗口

 true表示在继续执行脚本中的下一条语句之前，脚本是否等待执行完程序

原文地址：http://partydang.blog.163.com/blog/static/762680402011117395133/

这个程序的作用是检查ACCESS里面是否有存在的查询，如果不存在就创建一个

Sub QuerDef_create()
    Dim db1 As Database'定义一个数据库变量
    Dim Quy1, myQuy As QueryDef'定义数据库中的查询变量
    Dim QuerySting As String'定义字符串
    Dim RS1 As Recordset'定义数据库表
    Dim isExist As Boolean'定义判断
    Dim icols As Integer
    Dim lastrow As Integer
    Set db1 = OpenDatabase(ThisWorkbook.Path & '\test.MDB')
    For Each myQRY In db1.QueryDefs
        If myQRY.Name = '查询temp' Then
            isExist = True