用途
数字や文字を固定長に変換する。
Format(10,"0000")結果)0010
日付から曜日を求める
用途）曜日別に処理を変更する場合に重宝します。
yo = Weekday(date)
Select Case yo
Case 1 '日曜日
Msgbox "日曜日の処理"
Case 2 '月曜日
Msgbox "月曜日の処理"
Case 3 '火曜日
Msgbox "火曜日の処理"
Case 4 '水曜日
Msgbox "水曜日の処理"
Case 5 '木曜日
Msgbox "木曜日の処理"
Case 6 '金曜日
Msgbox "金曜日の処理"
Case 7 '土曜日
Msgbox "土曜日の処理"
Case Else
Msgbox "曜日エラー"
End Select
VBSで業務を自動化する（メインページ）
'Excelを起動
Set objExcel = CreateObject("Excel.Application")
Set ExcelBook = objExcel.Workbooks.Open("ファイル名")
'シート指定
objExcel.Workbooks(1).Sheets("シート名").Select
'印刷
objExcel.ActiveWindow.SelectedSheets.PrintOut
'ファイルを閉じる
objExcel.Workbooks(1).Close
'Excel終了
objExcel.quit() Set objExcel = Nothing
Set ws = CreateObject("Wscript.Shell")
ws.run "cmd /c test1.bat", vbhide
test1.batがファイル名
日本語を使う場合はテキストを保存する時に文字コードを【Shift-JIS】にする。
（判らない場合は英数でファイル名を記載するとよい）
VBSで文字列を抽出する。
lineStr = "12345６789"
mid(lineStr,1,6) ’１文字目から６文字目を抽出する
結果）12345６
mid(lineStr,6) ’６文字目から最後まで抽出する
結果）６789
固定長からＣＳＶに変換するなどの用途が考えられる
全角と半角どちらも１文字と判断する。（全角混じりのデータは使用が難しい）