こんにちは、三流プログラマーＫｅｎ３です。 ４月新たな環境になった人達は落ち着きましたか？ ＊まだ新入社員君達はＨＰやメルマガみて遊ぶ余裕は無いか（笑） なんて定型の挨拶はこのくらいにして、 ~~~~~~~~~~~~~~~~~~ 今回は、 AccessからExcelファイルを開いて・印刷して・閉じたい です。/* * １．今回のキッカケ */
下記の質問を貰いました >現在、access+excelのアプリを開発していて、行き詰まっていることがあります。 >知恵を貸してくれませんか？ >accessVBAの制御下で、excelファイルを開き、それを印刷して、閉じる処理をした >いのです。 ---- と最近設置したＨＰからの質問フォームで送ってもらいました。 ＊メルマガ評価システムと質問送信フォームを最近設置しました。 たまには、 http://www.ken3.org/vba/ に遊びに来てください。 なんて、宣伝は置いといて、そろそろ真面目に解説に入ろうかなぁ。/* * ２．AccessからExcelを起動する */
あっ、忘れてた過去の事例紹介（オイオイヤメロってしつこいから・・・） [No.2 AccessからExcel出力] http://www.ken3.org/backno/backno_vba01.html#2 で、 ・ウィザードを使ってたサンプルを作れることを説明 ・マクロ記録でExcelの操作をVBAにする ・頭にオブジェクト変数を付けてAccessからExcelを操作 を簡単に説明しました。 繰り返しになってしまうけど、 AccessからExcelを起動するプログラムが知りたかったので、 AccessのフォームでExcelを開くマクロをボタンウィザードで作ります。
Private Sub コマンド0_Click()
On Error GoTo Err_コマンド0_Click
Dim oApp As Object
Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True
Exit_コマンド0_Click:
Exit Sub
Err_コマンド0_Click:
MsgBox Err.Description
Resume Exit_コマンド0_Click
End Sub |
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2003/4/11 ユーザー名 : K
'
ChDir "D:\"
Workbooks.Open FileName:="D:\集計表.xls"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWorkbook.Close
End Sub |
Private Sub コマンド0_Click()
On Error GoTo Err_コマンド0_Click
Dim oApp As Object
Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True
'ファイルを開く
oApp.Workbooks.Open FileName:="D:\集計表.xls"
'データの加工処理／セット処理
oApp.cells(1, 1) = Now 'テストです
'・
'・ その他いろいろとセットする
'・
'プリントする
oApp.ActiveWindow.SelectedSheets.PrintOut Copies:=1
'ファイルを閉じる
oApp.ActiveWorkbook.Close SaveChanges:=False
'Excelを閉じる
oApp.Quit
Exit_コマンド0_Click:
Exit Sub
Err_コマンド0_Click:
MsgBox Err.Description
Resume Exit_コマンド0_Click
End Sub |
ここまで、読んでいただきどうもです。ここから下は、三流君のホームページの紹介・案内です
目的の情報が見つかったか？少々心配しつつ、、、
|
気になったジャンル↓を選択してください。 人気記事(来場者が多いTOP3): Excel関係: Access関係: その他：VBAの共通関数やテキストファイルの操作など 開発時の操作: [F1を押してHELPを見る]/ [Debug.Print と イミディエイトウインドウ]/ [実行時エラーでデバッグ]/ [ウォッチ式とSTOP]/ [参照設定を行う] 仕様書(設計書？) XXXX書類: [基本設計書や要求仕様書]/ [テスト仕様書 テストデータ]/ [バグ票]/ [関数仕様書]/ [流れは 入力・処理・出力] ※↑文章の味付けが変わっていて、お口に合うかわかりませんが。。。 |
Blogとリンク:[三流君の作業日記]/
[VBAやASPのサンプルコード]/
広告-[通販人気商品の足跡]