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