Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

74855 / 76732

←次へ　｜　前へ→


	【6333】Re:[型が一致しません]エラーが出てしまいます

ichinose - 03/6/24(火) 19:27 -


	引用なし

	パスワード

▼YO さん：
こんばんは。
机上デバッグした限りでは・・・、

>*********************************************************
>Private Sub bot3_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
>　　
> strmsg = "Ms Excelへデータを出力しますか？"
> intmsg = MsgBox(strmsg, 17, "管理者")
>
> If intmsg = 1 Then
>　　Set db = CurrentDb
>　　Set rs = db.OpenRecordset("Q_議事録単票")
>　　Set objEXE = Excel.Application
>　　objEXE.Workbooks.Open Filename:="C:\share\Project\作業用ファイル.xls"
>　　objEXE.Worksheets("議事単票シート").Select
>　　objEXE.Cells(3, 2).CopyFromRecordset rs
>　　objEXE.Quit
'　　　↑ここでExcel閉じてますね？なのに下でマクロ実行してますが・・・。
　　objEXE.Run macro:="作業用ファイル.xls!議事録単票_Copy"
'　　　間のApplicationは不要だと思いますが

>　　　→　作業用ファイルのマクロ実行
>　　Set rs = Nothing
>　　　　Set db = Nothing
>　　Else
>　　　　MsgBox "処理を中止しました", , "管理者"
>　　　　
>　　End If
>　　
>　　Exit Sub
>　　
>エラー:
>
>　　MsgBox "Error番号：" & Err.Number & vbNewLine & _
>　　　　　　"Error内容：" & Err.Description, 16, "管理者"
>　　End
>　　
>End Sub
>*********************************************************
>
>
実行確認していませんが、コードを見せていただいて気がついた点です。

0 hits

▼

【6319】[型が一致しません]エラーが出てしまいます YO 03/6/24(火) 11:12