| |
どうもすみません。
'表示対象ﾌｧｲﾙへの参照ｵﾌﾞｼﾞｪｸﾄ変数に代入
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
のところでエラーがでます。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
