Excel VBA質問箱 IV

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

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


60994 / 76732 ←次へ | 前へ→

【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
のところでエラーがでます。
1 hits

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

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