09/01/24 17:57:29
>>526
Option Explisit
Dim iFileNo As Integer
Private Sub Command1_Click()'保存ボタン
Dim i As Integer
iFileNo= FreeFile
Open CurDir & "\test.csv" For Append As #iFileNo
For i = 0 To 10 'テキストボックスのコントロール配列が増減の場合は10の値を変更
call check_Hozon(i)
Next i
Close #iFileNo
End Sub
Private Sub check_Hozon(ctlIndex As Integer)’入力チェックと出力
If Text1(ctlIndex),text <> "" Then ’空白の場合は書き込み
Print #iFileNo,Label1(ctlIndex).Caption & "," & Text1(ctlIndex),text
End if
End sub