|
|||||
VBS(VB SCRIPT/WSH)で手軽にエクセルを起動しいろんな操作をする方法をご紹介します。 エクセルは便利ですね。 表形式の画面を表示するとすぐに、エクセルやCSVに出力したいという要望が発生します。 そのエクセルをVBSで簡単に自動操作すると便利さが２倍以上になると思います。 具体的には以下の事を試しています。 １．エクセル起動 ２．エクセル非表示 ３．ブック追加 ４．シート選択 ５．カラム幅設定 ６．カラムの書式設定 ７．セルの選択 ８．セルのフォント設定 ９．セルの背景色設定 １０．セルの文字色設定 １１．エクセル表示 １２．エクセルを閉じる エクセル関係のその他のサンプルはこちらです。 エクセルを使用した帳票印刷のサンプル(VB.NET) エクセルを使用した帳票印刷のサンプル(C#.NET) エクセルを操作する小技のサンプル(VB.NET) エクセルを操作する小技のサンプル(C#.NET) エクセルを操作する小技のサンプル(VB6) エクセルへデータをコピーし表示するサンプル(VB6) ★VBSでエクセルを起動しいろいろ操作する方法
' Microsoft Excel起動
Set oXlsApp = CreateObject("Excel.Application")
If oXlsApp Is Nothing Then
' Microsoft Excel起動失敗
MsgBox "Microsoft Excel起動失敗 "
Else
' Microsoft Excel起動成功
' エクセル非表示
oXlsApp.Application.Visible = False
oXlsApp.Application.DisplayAlerts = False
' ブック追加
oXlsApp.Application.Workbooks.Add
' シート選択
Set oSheet = oXlsApp.Worksheets(1)
' カラム幅設定
oSheet.Columns("C").ColumnWidth = 20
' カラムの書式設定の表示形式を文字列にする
oSheet.Columns("C").NumberFormatLocal = "@"
' セル選択
Set oRange = oSheet.Range("C10")
' セルのフォント設定
oRange.Font.Size = 9
oRange.Font.Name = "ＭＳ ゴシック"
' セルにデータ書込み
oRange.Value = "C10のデータ"
' セルの背景色設定
oRange.Interior.Color = &H44FFFF
' セルの文字色設定
oRange.Font.Color = &HFF0000
' エクセル表示
oXlsApp.Application.Visible = True
' エクセルを閉じる
'If oXlsApp Is Nothing = False Then oXlsApp.Quit
'Set oRange = Nothing
'Set oSheet = Nothing
'Set oXlsApp = Nothing
End If
|