| |
クエリのデータを既存のファイルに出力し、
そのExcelを起動したいと思っています。
出力するところまではできたのですが、起動しません。。。
アドバイスお願いします。
Private Sub cmdExcelFile出力_Click()
On Error GoTo エラー
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim objEXE As Object
Dim strmsg As String
Dim intmsg As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset("Q_価格協議経過書")
Set objEXE = Excel.Application
objEXE.Workbooks.Open (C:\My Documents\出力ファイル.xls)
objEXE.Worksheets(Sheet1).Select
objEXE.Cells(5, 2).CopyFromRecordset rs
objEXE.Quit
Set rs = Nothing
Set db = Nothing
Exit Sub
エラー:
MsgBox "Error番号：" & Err.Number & vbNewLine & _
"Error内容：" & Err.Description, 16, "管理者"
End
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
