| |
下記の様なコードでエクセルへのエクスポートを実施しようとしていますが、
パラメータが少ないというエラーがでて困っています。
エラー番号：3061
エラー内容：パラメータが少ない。１を指定して下さい。
出力するデータは、クエリの結果で抽出条件は、フォーム[F_帳票]のテキストBox
としています。
抽出条件をどの様にコードしたらよいのか分かりません。
ヘルプを見ても検討がつかないので宜しくお願いします。
下記のコードは、他のホームページのサンプルファイルを参考に作成しました。
Private Sub コマンド192_Click()
Dim Sdate As Date
Dim Edate As Date
Dim name As String
Dim myfile As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim objEXE As Object
Set db = CurrentDb
'抽出条件チェック(条件が未入力の場合ERR_94へ)
On Error GoTo ERR_94
'抽出条件SET
Sdate = Me.txt4
Edate = Me.txt5
name = Me.cmb1
If Not Me.cmb1 = "全員" Then
'抽出条件確認メッセージ
If vbOK = MsgBox("抽出条件は" & Chr(13) _
& "【個人課題実施期間】" & Sdate & "〜" & Edate & Chr(13) _
& "【抽出対象者】" & name & " 氏でいいですか？", vbInformation + vbOKCancel, "確認") Then
MsgBox "出力先はC:\負荷進捗管理\エクセル になります。" & Chr(13) _
& "ファイル名： 実績データ一覧+抽出者氏名 です。", vbinfomation + vbOKOnly, "確認"
'出力元クエリ名
Set rs = db.OpenRecordset("test")
'Excel利用可能
Set objEXE = Excel.Application
'エクセルファイルのパス指定
objEXE.Workbooks.Open ("C:\負荷進捗管理\エクセル\実績データ一覧.xls")
'Sheet名指定
objEXE.Worksheets("Sheet1").Select
'出力先の基点セル
objEXE.Cells(2, 2).CopyFromRecordset rs
objEXE.Quit
Set rs = Nothing
Set db = Nothing
Else
End If
Else
Else
End If
End If
'********************************************
'ERR_94エラー処理
ERR_94:
If Err.Number = 94 Then
MsgBox "抽出条件を設定してください。" & Chr(13) _
& "【個人課題実施期間】【抽出対象者】が抽出条件となります。", vbOKOnly
End If
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
- 06/1/11(水) 11:04 -
