여러 시트가 있는 파일에서 각 시트의 한 열에 있는 DATA만 TXT 파일로 저장 하려고 하는데요

구글 검색으로 각시트를 TXT 파일로 저장 하는 건 찾았는데...

해당 범위만 저장 하는 방법은 어떻게 하는지 몰라서 질문 드립니다.

구글에서 찾은건 아래 내용 인데요

범위지정 해서 저장 하는 방법이 있을지 질문 드려요. VBA는 아무 지식이 없어서ㅠㅠ 부탁드립니다.

Sub ExportToText()

'Creates an individual workbook for each worksheet in the active workbook.

Dim wbDest As Workbook

Dim wbSource As Workbook

Dim sht As Object 'Could be chart, worksheet, Excel 4.0 macro,etc.

Dim strSavePath As String

Dim rng As Range


On Error GoTo ErrorHandler




Application.ScreenUpdating = False 'Don't show any screen movement




strSavePath = "d:\TRIM\" 'Change this to suit your needs




Set wbSource = ActiveWorkbook

For Each sht In wbSource.Sheets



sht.Copy

Set wbDest = ActiveWorkbook

FileSaveName = strSavePath & sht.Name & ".txt"

'wbDest.SaveAs strSavePath & sht.Name

wbDest.SaveAs Filename:=FileSaveName, FileFormat:=xlUnicodeText

wbDest.Close SaveChanges:=False 'Remove this if you don't want each book closed after saving.

Next




Application.ScreenUpdating = True




Exit Sub




ErrorHandler: 'Just in case something hideous happens

MsgBox "An error has occurred. Error number=" & Err.Number & ". Error description=" & Err.Description & "."

End Sub