엑셀은 데이터를 정리하고 분석하는 데 매우 유용한 도구입니다.
때로는 엑셀 데이터를 다른 프로그램에서 사용하거나, 웹사이트에 업로드하거나, 간단하게 텍스트 형식으로 저장해야 할 때가 있습니다. 이럴 때 엑셀 데이터를 텍스트 파일로 변환하는 Macro를 사용하면 편리합니다.
텍스트 파일은 엑셀 파일보다 용량이 작고, 다양한 프로그램에서 호환되기 때문에 데이터 공유 및 관리에 효율적입니다
텍스트 파일은 간단한 텍스트 편집기로도 열람 및 수정이 가능하여 편리합니다.
엑셀 데이터를 텍스트 파일로 변환하는 VBA Macro 샘플소스를 제공합니다.
샘플을 참고 하여 여러방식으로 응용하도록 돕습니다.
Sub ConvertToTextFile()
Dim szTarSheetName As String
Dim szTarFileName As String
Dim szEndIndex As String
Dim Count As Integer
Dim tmpBox As Workbook
Dim fileHandle As Integer
szTarSheetName = InputBox("대상엑셀명 입력")
If szTarSheetName = "" Then
Exit Sub
End If
MsgBox szTarSheetName
szTarFileName = "C:\Users\user\Desktop\da테스트\test.txt" '저장될 파일명
szEndIndex = InputBox("대상범위를 입력")
If szEndIndex = "" Then
Exit Sub
End If
fileHandle = FreeFile
Workbooks.Open szTarSheetName
Set tmpBook = Workbooks("서식요건(1_3_11_26).xlsx") '대상 엑셀명
tmpBook.Worksheets("Sheet1").Select '엑셀 시트명
Open szTarFileName For Output As fileHandle
For Count = 1 To szEndIndex
Print #fileHandle, Cells(Count, 4) 'D행 복사
Next
Close #fileHandle
End Sub