Attribute VB_Name = "Module1"
'■　マクロ５００連発＜第２段＞
'
'　配列から文字列を作成する
'
'  Copyright(C) 2000 Sunago
'
Option Explicit

'/* Join関数を使用した例(EXCEL2000用) */
Sub Macro1()
Dim arycsv As Variant
Dim strcsv As String
Dim sOutput As String
Dim i As Integer

    '配列を作成する
    arycsv = Array("00", "01", "02", "03", "04", _
                    "05", "06", "07", "08", "09", "10")
    '配列を区切り文字を含む文字列を作成
    '使用方法：
    ' Join(SourceArray, [Delimiter])
    '     SourceArray １次元の配列
    '     Delimiter   区切り文字
    strcsv = Join(arycsv, ",")
    '結果の出力
    For i = 0 To UBound(arycsv)
        sOutput = sOutput & i & " := " & arycsv(i) & vbCr
    Next
    sOutput = sOutput & "　↓" & vbCr & strcsv
    MsgBox sOutput, , "Macro1"
End Sub

'/* Split関数が使用できない例(EXCEL97,98用) */
Sub Macro1_97()
Dim arycsv As Variant
Dim strcsv As String
Dim sOutput As String
Dim i As Integer

    '配列を作成する
    arycsv = Array("00", "01", "02", "03", "04", _
                    "05", "06", "07", "08", "09", "10")
    '配列を区切り文字を含む文字列を作成
    For i = LBound(arycsv) To UBound(arycsv) - 1
        strcsv = strcsv & arycsv(i) & ","
    Next
    If LBound(arycsv) <> UBound(arycsv) Then
        strcsv = strcsv & arycsv(UBound(arycsv))
    End If
    '結果の出力
    For i = 0 To UBound(arycsv)
        sOutput = sOutput & i & " := " & arycsv(i) & vbCr
    Next
    sOutput = sOutput & "　↓" & vbCr & strcsv
    MsgBox sOutput, , "Macro1_97"
End Sub