Access VBA質問箱 IV

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

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


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

1314 / 9994

←次へ　｜　前へ→


	【11978】複数サブフォームのエクスポート

てん - 11/4/20(水) 18:27 -


	引用なし

	パスワード

すみません
どなたか、教えてください。

フォームにサブフォームを設置して　それをEXCELにエクスポートする
というところまで出来たのですが、
フォームの中に、サブフォームが複数あって、エクスポート先のExcelのシート分けたい場合どのような記述をすればいいのでしょうか。

一つ設置した場合はこちらで動かしています↓
　　Dim xls As Excel.Application
　　Dim wkb As Excel.Workbook
　　Dim rst As DAO.Recordset
　　Dim cnt As Long
　　
　　Set rst = Me!SubF.Form.RecordsetClone
　　Set xls = CreateObject("Excel.Application")
　　Set wkb = xls.Workbooks.Open("C:\data\test.xls")
　　
　　With wkb.Worksheets("Sheet1")
　　　　.Range("A1").CurrentRegion.ClearContents
　　　　For cnt = 1 To rst.Fields.Count
　　　　.Cells(1, cnt).Value = rst.Fields(cnt - 1).Name
　　　　Next
　　　　.Range("A2").CopyFromRecordset Data:=rst
　　　　
　　End With

488 hits

▼

【11978】複数サブフォームのエクスポート てん 11/4/20(水) 18:27