掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
CSV出力のときに (ID：111589)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Print # ステートメントのほうがシンプルだと思います。 Dim i As Integer Dim chkbox As String For i = 0 To Form2.Check2.Count - 1 If Form2.Check2(i).Value = True Then chkbox = chkbox & Form2.Check2(i).Caption & "," End If Next i intfileno = FreeFile() Open "c:\test1.csv" For Append As #intfileno Print #intfileno, chkbox Close #intfileno
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.