VBScript でExcelを操作してみる

今回やること

VBscriptでExcelファイルを操作してみたいと思います。
前に投稿した記事でも言った通り、
VBScriptは意外といろいろできるんです。それで、今回はExcelを操作しま～～す。

セルの一番最初に「編集者:(編集者名)」と入力し、
下のセルにば～～～～っと数字を入力するプログラムです。いい感じに生かせば、仕事でも使えるのでは？

ソースコード

Sub Main ()
  On Error Resume Next
 
  Dim objXls, objWorkbook, objShell, objSheet
  name = inputBox("名前を入力","名前") '名前を入力させる
  Set objXls = CreateObject("Excel.Application")
  If objXls=null Then Exit Sub
  objXls.Visible = True
  
  Set objWorkbook = objXls.Workbooks.Add() ' Workbookを新規作成
 
  ' …いろいろ処理する…
  Set objSheet = objWorkbook.Sheets("Sheet1") 'Sheet1を開く
 
  objSheet.Cells(1,1).Value = "編集者:" & name '編集者の名前を入れる
  objSheet.Cells(1,1).NumberFormatLocal = "G/標準"
  
  'ば～～～っと数字を入力
  For i=1 To 20
      objSheet.Cells(i+2,1).Value=i
      objSheet.Cells(i+2,1).NumberFormatLocal = "0_);[赤](0)"
  Next
  
  '　…いろいろと処理した…
 
  ' Workbookを閉じる
  Set objShell=CreateObject("WScript.Shell")
  objWorkbook.SaveAs(objShell.CurrentDirectory & "\test.xlsx")
  objWorkbook.Close
 
  objXls.Quit
  Set objWorkbook = Nothing
  Set objXls = Nothing
End Sub
 
Main

文字コードをANSI (日本語シフトJIS) にすることを忘れずに。

実行結果

出来上がったファイルを開くと...
成功しました!

作成されない場合

もう一度実行すると作成される場合があります。
または、Microsoft Excelを持っていない場合も作成されません。
それでも、作成されない場合は、コメントお願いします。

---

どうだったでしょうか。
これでは直接仕事にいかすことができません。
自分でコードを変更してみてください。
コメント、気軽にどうぞ！！！！！！！！！！！！(#^^#)

Windows10 64bitで動作を確認