Office中国论坛/Access中国论坛

标题: ？如何实现：VBA中创建新的access（A2）文件，并将（VBA所属access中）部分表导入 [打印本页]

作者: loreting 时间: 2007-12-4 15:36
标题: ？如何实现：VBA中创建新的access（A2）文件，并将（VBA所属access中）部分表导入
在access（A1）中创建一窗体，其中一个功能是将A1中部分数据表导出到一个新的access文件中，请问如何实现，
非常感谢

新手

作者: loreting 时间: 2007-12-4 15:50
Me.RecordSource = "SELECT 表1.* FROM [" & CurrentProject.Path & "\db1.mdb" & "].表1;"

哈哈我找到了这个

作者: loreting 时间: 2007-12-4 16:24
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编程》

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)