如何利用APPLICATION打开其他文件？

sunredday

Private Sub 命令0_Click()

Dim app As New Access.Application





app.DBEngine.OpenDatabase "C:\概念公式案例.mdb"

'app.OpenCurrentDatabase "C:\概念公式案例.mdb"

app.Visible = True



'app.SaveAsText acForm, "登陆", "c:\test000.txt"

'

'     '将整个窗体导出到一个文本文件，将其打包发送给朋友，让朋友再使用

'       Application.LoadFromText acForm, "登陆", "c:\test000.txt"

为什么不可见？

sunredday

变量范围问题