Do While index <= ColumnNum

        '- カラムスキップ処理を記述 ----------------------------------'
        'スキップ列でなかった場合
        If skipFlag = 0 Or Cells(11, index) <> "○" Then
            text = text & Cells(row - 1, index).value
            index = index + 1
        If text Is Nothing Then
            text = text.Clear
            If index <= ColumnNum Then
                text = text & ","
            End If

        'スキップ列の場合
        Else
            index = index + 1
        End If
        '-------------------------------------------------------------'

    Loop