|
どうもすみません。
'表示対象ファイルへの参照オブジェクト変数に代入
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
のところでエラーがでます。
|
|