アクティブなワークシートに列を挿入します。
#Include <Excel.au3>
_ExcelColumnInsert($oExcel, $iColumn [, $iNumCols = 1])
パラメータ
| $oExcel | _ExcelBookOpen()か_ExcelBookNew()の呼び出しで開かれているExcelオブジェクト |
| $iColumn | 挿入開始列の番号指定 |
| $iNumCols | [オプション]挿入する列数 |
返し値
| 成功: | 1 |
| 失敗: | 0を返し@errorに次の値を設定します |
| @error: | 1 - 指定されたオブジェクトが存在しません |
| 2 - 指定された列位置が無効です |
注意
この関数は列挿入位置以降の全ての列を右側にシフトさせます。
関連
例
; ***************************************************************
; 例 1 -ワークブックを開きオブジェクト識別子取得後、ループを使ってセルに書き込む。 1列挿入して、保存して閉じる。
; *****************************************************************
#include <Excel.au3>
Local $oExcel = _ExcelBookNew() ;新しいブックを作成して表示
For $i = 1 To 5 ;ループ
_ExcelWriteCell($oExcel, $i, $i, 1) ;1から5の値を使って垂直方向にセルに書き込む
Next
ToolTip("Inserting Column(s) Soon...")
Sleep(3500) ;ユーザー確認用に一時停止
_ExcelColumnInsert($oExcel, 1, 1) ;1列目に1列挿入
MsgBox(0, "Exiting", "Press OK to Save File and Exit")
_ExcelBookSaveAs($oExcel, @TempDir & "\Temp.xls", "xls", 0, 1) ; 上書き設定でtempディレクトリに保存
_ExcelBookClose($oExcel) ; 閉じて終わり
; ***************************************************************
; 例 2 -ワークブックを開きオブジェクト識別子取得後、ループを使ってセルに書き込む。 列を挿入して、保存して閉じる。
; *****************************************************************
#include <Excel.au3>
Local $oExcel = _ExcelBookNew() ;新しいブックを作成して表示
; ループと乱数を使用していくつかのセルを埋める
For $i = 1 To 10
For $j = 1 To 10
_ExcelWriteCell($oExcel, Round(Random(1, 100), 0), $i, $j) ;丸めた乱数をファイルに書き込む
Next
Next
ToolTip("Inserting Column(s) Soon...")
Sleep(3500) ;ユーザー確認用に一時停止
_ExcelColumnInsert($oExcel, 2, 3) ;2列目に3列挿入する
MsgBox(0, "Exiting", "Press OK to Save File and Exit")
_ExcelBookSaveAs($oExcel, @TempDir & "\Temp.xls", "xls", 0, 1) ; 上書き設定でtempディレクトリに保存
_ExcelBookClose($oExcel) ; 閉じて終わり