[VBA] 지정한 열만 텍스트 파일로 내보내기

내보내고 싶은 열만 텍스트 파일로 내보내기

작업을 하다보면 특정한 열만 내보내고 싶은 경우가 있습니다.

이럴 경우 아래 주황색으로 된 부분처럼 해주면 됩니다.

1. 행은 2행부터 자료가 있는 마지막 열까지

2. 열은 1열부터 7열까지, 즉 A열부터 G열까지

3. 실제 내보내기할 열은 A열, F열, G열

Sub TextExport()
'// 내보내고 싶은 열만 선택해서 텍스트 파일로 내보내기
    Dim iRow As Long, iCol As Integer
    Dim sTxt As String, fPath As String
    Dim FN As Integer

    FN = FreeFile
    fPath = ThisWorkbook.Path & "\update_data.csv"

    deLimiter = ";"     '// 구분자
    Open fPath For Output As #FN
        For iRow = 2 To Cells(Rows.Count, "E").End(3).Row   '// 행지정
            sTxt = vbNullString
            For iCol = 1 To 7   '// 열 지정
                If Cells(iRow, 7) = 1 Then
                    If (iCol = 1) Or (iCol = 6) Or (iCol = 7) Then
                        sTxt = sTxt & Cells(iRow, iCol) & deLimiter
                    End If
                End If
            Next iCol
            If Len(sTxt) Then Print #FN, Left(sTxt, Len(sTxt) - 1)
        Next iRow
    Close #FN   '// 작업을 마치고 파일을 닫는다
    MsgBox "내보내기 완료"
End Sub