Access VBA質問箱 IV

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

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


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

6575 / 9994

←次へ　｜　前へ→


	【6622】Re:レコード数を制御して、Excelへ吐き出し

小僧 - 05/10/27(木) 9:57 -


	引用なし

	パスワード

▼Saiyama さん：
おはようございます。

>ここで事前に用意した雛形（既に行間、文字サイズを設定したExcelFile）にクエリ
>の内容を書き込みます。　これは現実的な考えでしょうか？

可能ですよ。

雛形.xls を開いてクエリのデータを流し込んだ後に別名で保存する事も、
雛形を置かずに新規 Excel ブックを開いてフォントや罫線の設定をするのも可能です。

雛形を使うヒント
Dim HinaName As String　　　　　　　　　　　　　　 '追加

　　HinaName = "C:\Hina.xls"　　　　　　　　　　　 '追加

　　'Set xlsWkb = xlsApp.Workbooks.Add　　　　　　 '削除
　　Set xlsWkb = xlsApp.Workbooks.Open(HinaName)　 '追加

オートメーションで Excel 操作のヒント
　　With xlsWkb.Sheets("Sheet1")
　　　　.Columns("A:A").Font.Size = 9
　　　　.Columns("A:A").ColumnWidth = 9.5
　　End With

オートメーションで操作をされたい場合には
メソッドは Excel のものを使う事になります。
Excel の「マクロの記録」機能や Excel のヘルプを使うと
コードを組むヒントになると思われます。

391 hits

▼

【6585】レコード数を制御して、Excelへ吐き出し Saiyama 05/10/25(火) 13:11