しずくが養生テープに猫パンチで宣戦布告
しばらくはにらみ合いが続きます。
VBSでエクセルを起動し指定のシートを印刷する。
Dim objXls, objWorkbook
Set objXls = CreateObject("Excel.Application")
objXls.Visible = False '非表示で起動
'Workbookを開く
Set objWorkbook = objXls.Workbooks.Open("C:\テスト\bb.xls")
'シート名を指定してアクティブにする
objXls.Sheets("天下統一").Activate
objXls.ActiveWindow.ActiveSheet.PrintOut
'Workbookを閉じる
objWorkbook.Close
objXls.Quit
VBSで業務を自動化する
特定のエクセルのシートを印刷する。
毎日のチェック用紙を自動印刷するなどの活用方法がある。
'1番目のシートをアクティブにする
objXls.Worksheets(1).Activate
'シート名を指定してアクティブにする。
objXls.Sheets("Sheet4").Activate
'アクティブなシートを印刷する
objXls.ActiveWindow.ActiveSheet.PrintOut