HOME > リファレンス > VBScript

スポンサード リンク

1. Dim objApp    'Excelアプリ
2. Dim objBook    'ExcelBook
3. Dim objSheets    'ExcelSheets
4. Dim objSheet    'ExcelSheet
5. Dim strMsg    'エラーメッセージ
6. Dim strXlsPath    '保存Excelファイル
7. Dim i
8. Dim xlNormal
10. xlNormal = -4143
12. 'Excel の保存先
13. strXlsPath = "C:\test.xls"
15. '===============================================================================
16. 'Excelを起動する
17. '===============================================================================
18. On Error Resume Next
19. Err.Clear
20. Set objApp = CreateObject("Excel.Application")
21. If Err Then
22.     'エラー処理
23.     strMsg = strMsg & "Excelを起動できませんでした" & vbCrLf
24.     strMsg = strMsg & "Err.Number:" & Err.Number & vbCrLf
25.     strMsg = strMsg & "Err.Description:" & Err.Description & vbCrLf
26. End If
27. 'エラー処理の初期化
28. On Error GoTo 0
29. If strMsg <> "" Then
30.     'エラーメッセージの表示
31.     MsgBox strMsg, vbCritical, "Excel の作成"
32. Else
33.     '===============================================================================
34.     '新規ワークシートを作成
35.     '===============================================================================
36.     objApp.Workbooks.Add
37.     '非表示にする
38.     objApp.Application.Visible = False
39.     '確認ダイアログを表示させない
40.     objApp.DisplayAlerts = False
42.     Set objBook = objApp.ActiveWorkbook
43.     Set objSheets = objBook.Worksheets
44.     'シート1のみ残して後は削除
45.     For i = 2 To objSheets.Count
46.         objBook.Sheets(2).Delete
47.     Next
49.     'シート１の書き込み
50.     Set objSheet = objBook.Sheets(1)
51.     'セル全体の設定
52.     With objSheet
53.         .Name = "シート名１"
54.         .Cells.Font.Name = "ＭＳ Ｐゴシック"
55.         .Cells.Font.Size = 11
56.         .Columns("A:A").ColumnWidth = 20        'A列の列幅を指定する例
57.     End With
58.     'セル"A1"に「AAAA」と表示する例
59.     objSheet.Range("A1").Value = "AAAA"
61.     'シートを新規に作成
62.     Set objSheet = objBook.Worksheets.Add
63.     'セル全体の設定
64.     With objSheet
65.         .Name = "シート名２"
66.         .Cells.Font.Name = "ＭＳ Ｐゴシック"
67.         .Cells.Font.Size = 11
68.         .Columns("A:A").ColumnWidth = 20        'A列の列幅を指定する例
69.     End With
70.     'セル"A1"に「BBBB」と表示する例
71.     objSheet.Range("A1").Value = "BBBB"
73.     '新規ブックを読み取り専用で保存
74.     objBook.SaveAs FileName:=strXlsPath, _
75.                     FileFormat:=xlNormal, _
76.                     Password:="", _
77.                     WriteResPassword:="", _
78.                     ReadOnlyRecommended:=True, _
79.                     CreateBackup:=False
81.     'Excelの終了
82.     objApp.DisplayAlerts = True        '確認ダイアログを表示させる
83.     objBook.Close
84.     objApp.Quit
86.     'オブジェクトの解放
87.     Set objSheet = Nothing
88.     Set objSheets = Nothing
89.     Set objBook = Nothing
90.     Set objApp = Nothing
92.     'エラーメッセージの表示
93.     MsgBox "Excel を作成しました。", vbInformation, "Excel の作成"
95. End If

Visual Basic (VB) のサブセット(簡易版)で、 マイクロソフト社製のスクリプト言語である。 Microsoft Windows上やInternet Information Server(IIS)上で動作する。
VBScript (Microsoft Visual Basic Scripting Edition) は VisualBasicの構文を真似てつくられた、 Microsoft Windowsのネイティブ スクリプト言語である。ランタイムとして、ASP や WSH があり、 主な用途として、

• Active Server Pages (ASP) などを使用したサーバサイドスクリプティング処理
• Windows Script Host (WSH) を利用したWindows上でのネイティブ・スクリプト
• Internet Explorerを使用したクライアントサイドスクリプティング処理
• HTML Applications(HTA)アプリケーション

が挙げられる。 ただし、WWWクライアントスクリプトとしては、対応するブラウザが Windows版のInternet Explorerだけであり、2005年現在ではほとんど使われていない。
HTAやASP、HTML中に組み込まれることが多いが 単体のスクリプトファイルとしておかれる場合、 拡張子は通常.vbsを使用する。