Access VBA質問箱 IV

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

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


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

2996 / 9994

←次へ　｜　前へ→


	【10262】ＥＸＣＥＬ書き出ししたいのですが

ＮＥＭＯ - 08/2/27(水) 16:09 -


	引用なし

	パスワード

データを読み込んでD:\一般\91業務部\積無定期預金顧客管理表（原本）.xls
書き込みしているのですが、このシートを３０件ごとにシートを追加していき違う名前で保存したいのですがどのような記載をすればいいのかよくわかりません。
丸投げかもしれませんけどどうしていいかわかりません。
よろしくお願いします。

Public Function T明細作成()
Dim objExcel As Object
Dim objBook As Object
Dim objSheet As Object
Dim Db As DAO.Database
Dim INRs As DAO.Recordset
Dim A As String
Dim B As String
Dim 行カウント As Integer

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True

Set objBook = objExcel.WorkBooks.Open("D:顧客管理表（原本）.xls")
Set objSheet = objBook.Worksheets("偶数月")

Set Db = CurrentDb
Set INRs = Db.OpenRecordset("顧客情報テーブル", dbOpenDynaset)

行カウント = 5

objSheet.RANGE("M4").Value = INRs!店名

Do Until INRs.EOF

If 行カウント > 30 Then

　 objBook.Close False
　 objExcel.Quit
　 Set objExcel = Nothing
　
　 Set objExcel = CreateObject("Excel.Application")
　 objExcel.Visible = True
　 Set objBook = objExcel.WorkBooks.Open("顧客管理表（原本）.xls")
　 Set objSheet = objBook.Worksheets("偶数月")
　行カウント = 5
End If

行カウント = 行カウント + 1

A = "A" & 行カウント
B = "B" & 行カウント

objSheet.RANGE(A).Value = INRs!漢字氏名
objSheet.RANGE(B).Value = INRs!住所
　
INRs.MoveNext
Loop

INRs.Close
Set INRs = Nothing

objBook.Close False
objExcel.Quit

Set objExcel = Nothing

End Function

658 hits

▼

【10262】ＥＸＣＥＬ書き出ししたいのですが ＮＥＭＯ 08/2/27(水) 16:09