Access VBA質問箱 IV

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

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


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

3415 / 9994

←次へ　｜　前へ→


	【9840】アクセスVBAでエクセルを操作

ぼっちゃん - 07/9/14(金) 11:01 -


	引用なし

	パスワード

お初にお目にかかります。VBA初心者です
アクセスのｸｴﾘで加工したデータをエクセルに貼り付け、
エクセルで合計をするVBAを作ろうとしていますが、エクセルの集計の
ところでうまくいきません。
Private Sub コマンド0_Click()
　 Dim objExcel As Excel.Application
　 Dim db As DAO.Database
　 Dim rst As DAO.Recordset
　 Dim qdf As DAO.QueryDef
　 Dim aaa As String
　
　 aaa = DCount("*", "Q_集計（製品名）A") + 2
　
　 Set objExcel = CreateObject("Excel.Application")
　 objExcel.Workbooks.Open Filename:="C:\Documents and Settings\2103\デスクトップ\111.xls"
　 With objExcel
　　　　.Worksheets.Add
　　　　 Set db = CurrentDb
　　　　 Set qdf = db.QueryDefs("Q_集計（製品名）A")
　　　　 Set rst = qdf.OpenRecordset
　　　　.Range("A2").CopyFromRecordset rst
　　　　 rst.Close
　　　　 db.Close
　　　　 Set rst = Nothing
　　　　 Set qdf = Nothing
　　　　 Set db = Nothing
　　　　.Range("A1").Value = "製品名"
　　　　.Range("B1").Value = "件数"
　　　　.Range("C1").Value = "問合せ"
　　　　.Range("D1").Value = "クレーム"
　　　　.Range("E1").Value = "提案"
　　　　.Range("F1").Value = "その他"
　　　　.Range("G1").Value = "％"
　　　　.Cells(aaa, 1).Value = "合計"
　　　　.Cells(aaa, 2).FormulaR1C1 = "=SUM(R[-aaa]C:R[-1]C)"←ここでうまくいきません。アプリケーション定義のエラーが出てきます。
　　End With
　　Set objExcel = Nothing
End Sub

詳しい方、返信お願いします。

901 hits

▼

【9840】アクセスVBAでエクセルを操作 ぼっちゃん 07/9/14(金) 11:01