【猫動画】しずくVS養生テープ #shorts

しずくが養生テープに猫パンチで宣戦布告

しばらくはにらみ合いが続きます。

 

 

 

VBSからExcelを非表示で起動し指定のシートを印刷する【VBS】

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で業務を自動化する

VBSからExcelのシートを印刷する【VBS】

特定のエクセルのシートを印刷する。

毎日のチェック用紙を自動印刷するなどの活用方法がある。

 

'1番目のシートをアクティブにする

objXls.Worksheets(1).Activate

'シート名を指定してアクティブにする。

objXls.Sheets("Sheet4").Activate

'アクティブなシートを印刷する

objXls.ActiveWindow.ActiveSheet.PrintOut

VBSで業務を自動化する

VBSからExcelを起動し閉じる【VBS】

VBSよりエクセルを開き閉じる方法

用途）エクセルファイル自動で処理する時に使う。

Dim objXls, objWorkbook
Set objXls = CreateObject("Excel.Application")
  objXls.Visible = True
   'Workbookを開く
  Set objWorkbook = objXls.Workbooks.Open("C:\テスト\bb.xls")

   'Workbookを閉じる
 objWorkbook.Close
 objXls.Quit

VBSで業務を自動化する

Replace 文字を置き換える【VBS】

文字を置き換える関数。
文字を置き換えするか不要な文字を削除する時に使う。

値 = Replace("文字列","検索文字","置換文字")

文字を削除する場合は置換文字を""(文字を入れない)にする。

ダブルクォーテーションを検索文字に指定する場合は""""と入力する

VBSで業務を自動化する