Excel VBA質問箱 IV

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

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


10700 / 13644 ツリー ←次へ | 前へ→

【20360】オートメーションエラーについて ムネムネ 04/12/7(火) 12:01 質問[未読]
【20363】Re:オートメーションエラーについて IROC 04/12/7(火) 12:58 回答[未読]
【20365】Re:オートメーションエラーについて ムネムネ 04/12/7(火) 13:33 回答[未読]

【20360】オートメーションエラーについて
質問  ムネムネ  - 04/12/7(火) 12:01 -

引用なし
パスワード
   初投稿です。
データをエクセルに出力し、そのエクセルのシートを印刷する際に
次のエラーが出てしまいます。
「実行時エラー '-214741811 オートメーションエラーです。」
さっぱりわかりません。どなたか助けて下さい。

【20363】Re:オートメーションエラーについて
回答  IROC  - 04/12/7(火) 12:58 -

引用なし
パスワード
   >データをエクセルに出力し、そのエクセルのシートを印刷する際
これについて、どのように処理しているかを説明しない限り、
回答者にとっては何も判断できないと思いますよ。

【20365】Re:オートメーションエラーについて
回答  ムネムネ  - 04/12/7(火) 13:33 -

引用なし
パスワード
   どうもすみません。

     '表示対象ファイルへの参照オブジェクト変数に代入
set lo_Excel = GetObject(C:\・・・・\aaa.xls)
     'Applicationプロパティを使ってExcel表示をさせない
lo_Excel.Application.Visible = False 
     'さらにオブジェクト変数MyXLのWindowコレクションを使って、
     指定したワークシートが含まれる実際のウィンドウを表示
li_WindowNo = lo_Excel.Parent.Windows.Count
lo_Excel.Parent.Window(li_WindowNo).Visible = True
     '作業するシートに対する参照セット
Set lo_Sheet = lo_Excel.Sheets(1)
(エクセルに出力する処理)
     'コピーモード解除
lo_Excel.Application.CutCopyMode = False
     '印刷
lo_Excel.Sheets(1).PrintOut Copies:=1
lo_Excel.Application.DisplayAlers = False
(シートのクローズ)
(Excelおよびシートへの参照を解放)

といった感じでいいですか?
>lo_Excel.Sheets(1).PrintOut Copies:=1
のところでエラーがでます。

10700 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free