COM/Excel/セルを編集する

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19

    newcom xlApp, "Excel.Application"
    xlApp("Visible") = 1                // ウィンドウを表示
    xlBooks = xlApp("Workbooks")        // Workbooks コレクション取得
    xlBook = xlBooks("Add")             // ワークブックを追加
    xlSheet = xlBook("Worksheets", "sheet1")    // シート取得
 
    // セルの編集
    xlRange = xlSheet("Range", "A1")    // 代入先セルの指定
    xlRange("Value") = 100              // 値の代入（整数値の例）
    xlRange = xlSheet("Range", "A2")    // 代入先セルの指定
    xlRange("Value") = 3.14             // 値の代入（実数値の例）
    xlRange = xlSheet("Range", "B1")    // 代入先セルの指定
    xlRange("Value") = "文字列"         // 値の代入（文字列の例）
 
    delcom xlRange
    delcom xlBook
    delcom xlBooks
    delcom xlApp
    stop