Excel VBA

書式
On Error Resume Nex
使用例

Sub testFunc()On Error Resume Next Workbooks.Open ("C:\testinfo.xlsx") Exit Sub ...

書式
Sheets(シート名).Range(位置).Value
Sheets(シート名).Cells(行の位置、列の位置).Value
使用例

Sub getSampleA() 'セルB3の値を取得 De ...

書式
Open ファイル名変数 For Append As 番号
使用例

Sub excelToTxtAppendDemo() '出力ファイルの定義 Dim txtName As String 'ブックと同じフォ ...

書式
Sheets(シート名).Range(位置).Value
Sheets(シート名).Cells(行の位置、列の位置).Value
使用例

Sub sampleA() 'セルB3に値を設定 Sheet ...

書式
DO
処理コード
Loop Until 条件式
使用例

Sub funcBB() Dim nn As Integer nn = 20 'Do Loop Until文 Do nn = nn + ...

書式
Open ファイル名変数 For Output As 番号
使用例

Sub excelToTxt() '出力ファイルの定義 Dim txtName As String 'ブックと同じフォルダ txtName ...

書式
Cells(行の位置、列の位置)
使用例

Sub funCC() '配列cft cft = Array(11, 22, 33, 44, 55,66) 'forループ For i = 0 To UBound( ...

書式
DO 処理コード
Loop While 条件式
使用例

Sub funcA() Dim n As Integer n = 20 Dim res As Integer ' Do　処理コード Loop ...