使用VBA导入导出csv文件

<导入>

Sub Inport_Renkei_CSV_Click()
    Dim fTextDir As String, rowIndex As Integer, i As Integer
    myFile = Application.GetOpenFilename("連携CSVファイル(*.csv),*.csv")
    If VarType(myFile) = vbBoolean Then
        Exit Sub
    End If
    rowIndex = 1
    Open myFile For Input As #1
    Do While Not EOF(1)
        Line Input #1, currLine
        If rowIndex > 1 Then
        rowDataArr = Split(currLine, Chr(9))
        For i