Dim cn As New ADODB.Connection
Dim fsofile
If cn.State <> 0 Then cn.Close
Set cn = Nothing
Set fsofile = CreateObject("scripting.filesystemobject")
CommonDialog1.Filter = "mdb檔案(*.mdb)|*.mdb"
CommonDialog1.CancelError = True
On Error GoTo myerr
CommonDialog1.ShowSave
fsofile.copyfile App.Path & "\FDCPGGL.mdb", CommonDialog1.FileTitle
Dim connectionstring As String
connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _
"data source=" & App.Path & "\FDCPGGL.mdb"
cn.Open connectionstring
Exit Sub
myerr:
程式沒有錯誤，運行后跳出的檔案另存為沒有搜索到匹配項，怎么解決
uj5u.com熱心網友回復：
CommonDialog1.FileTitle是不帶路徑的，應該使用CommonDialog1.Filename吧？轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/75291.html
標籤：VB基礎類