？如何实现：VBA中创建新的access（A2）文件，并将（VBA所属access中）部分表导入

loreting

在access（A1）中创建一窗体，其中一个功能是将A1中部分数据表导出到一个新的access文件中，请问如何实现，
非常感谢

新手

loreting

Dim accessApp As Access.Application
    Dim cPath As String
    Dim sql_str As String
    Dim sTable As String   
    cPath = CurrentProject.Path
    If Right(cPath, 1) <> "\" Then cPath = cPath & "\"   
    sTable = "Dashboard.mdb"        
    Set tmpFSO = CreateObject("Scripting.FileSystemObject")
    If tmpFSO.FileExists(cPath & sTable) Then
        'tmpFSO.DeleteFile cPath & sTable
        MsgBox sTable & " has exist"
        Exit Sub
    End If
    Set tmpFSO = Nothing        
    Set accessApp = CreateObject("Access.Application")
    accessApp.CreateNewWorkgroupFile (cPath & sTable)   
    sql_str = "  select * into [" & cPath & sTable & "].T_summary from T_summary "
    Call DoCmd.RunSQL(sql_str, True)


我这样实现的  ^_^
参考《ACCESS－VBA编程》

loreting

Me.RecordSource = "SELECT 表1.* FROM [" & CurrentProject.Path & "\db1.mdb" & "].表1;"  

哈哈 我找到了这个