VBA|access 创建新的access文件并写入数据

最新推荐文章于 2025-05-23 16:40:09 发布

原创

最新推荐文章于 2025-05-23 16:40:09 发布 · 3.8k 阅读

标签

#access #vba #sql #file

收录于

这段VBA代码演示了如何在Access中动态创建一个新的mdb文件，并从现有表`T_summary`中通过SQL语句将数据写入新建文件的同名表中。首先检查文件路径是否正确，然后判断文件是否存在，如果已存在则提示并退出，否则创建新文件并执行写入操作。

   'dim....
'路径，是否存在
cPath = CurrentProject.Path
    If Right(cPath, 1) <> "/" Then cPath = cPath & "/"

    'sFile = "Dashboard.mdb"
    If IsNull(sFile) Or Trim(sFile) = "" Or Right(sFile, 4) <> ".mdb" Then
        MsgBox "file name error"
        Exit Sub
    End If

    Set tmpFSO = CreateObject("Scripting.FileSystemObject")
    If tmpFSO.FileExists(cPath & sFile) Then
        'tmpFSO.DeleteFile cPath & sFile
        MsgBox sFile & " has exist"
        Exit Sub
    End If
    Set tmpFSO = Nothing
’创建
    Set accessApp = CreateObject("Access.Application")

    accessApp.CreateNewWorkgroupFile (cPath & sFile)
   ‘写入数据
    sql_str = " select * into [" & cPath & sFile & "].T_summary from T_summary "
    Call DoCmd.RunSQL(sql_str, True)