내보내고 싶은 열만 텍스트 파일로 내보내기
작업을 하다보면 특정한 열만 내보내고 싶은 경우가 있습니다.
이럴 경우 아래 주황색으로 된 부분처럼 해주면 됩니다.
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
'업무 능력 향상 > 엑셀 VBA 활용' 카테고리의 다른 글
| [DOS] 폴더와 하위 폴더에 있는 파일명들을 텍스트로 추출하기 (0) | 2014.09.10 |
|---|---|
| [VBA] 텍스트파일을 엑셀로 읽어서 정렬 (0) | 2014.09.01 |
| [VBA] 현 시트내용을 서식 포함 여러개 파일로 분할 저장 (0) | 2014.08.27 |
| [VBA] 노래가사 파일 내보내기 (0) | 2014.08.24 |
| [VBA] 중복개수 표시 (0) | 2014.08.23 |
Link2Me