掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
CSV出力のときに (ID：111586)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
お返事ありがとうございます。 いなさんの書いていただいたコードの outputは変数なのでしょうか？ 一応自分の書いたソースをはっておきます。 こんな感じで作ったのですが。 Dim moji As String Dim filename As String Dim mojifilename As String Dim chkbox As String Dim l As Integer For i = 0 To Form2.Check2.Count - 1 If Form2.Check2(i).Value = 1 Then If l = 0 Then chkbox = "" & Form2.Check2(i).Caption & "" Else chkbox = chkbox & """" + "," + """" & Form2.Check2(i).Caption & "" End If l = l + 1 End If Next i intfileno = FreeFile() Open fail.csv For Output As #intfileno Write #intfileno, chkbox Close #intfileno
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.