รบกวนสอบถามโค้ดVba Export Column excel to textfile ครับ

[ammanaz]

สวัสดีครับ รบกวนสอบถามครับ

จุดประสงค์คือ อยากเอาข้อมูลจากคอลั่มออกเป็น Text File แบบออโต้ และ ตั้งชื่อไฟล์ Textที่ออกไปเรียงลำดับครับ เช่น
คอลั่ม A แถว 1 = Export Text 1 File name a01 และโปรแกรมทำต่อที่
คอลั่ม A แถว 2 = Export Text 1 File name a02
คอลั่ม A แถว 3 = Export Text 1 File name a03
ทำไปเรื่อยๆเรียงไปจน คอลั่มA เป็นค่าว่างแล้วหยุดทำ


ตอนนี้ใช้ Code ตัวนี้อยู่ครับ แต่เป็น manual

Sub ExportRangetoFile()
'Update 20130913
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs Filename:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


ขอบคุณมากครับผม

[logic]

อ่านกฎบอร์ดข้อ 4, 5 ด้านบนเกี่ยวกับการแนบไฟล์ การจัดรูปแบบโค้ดครับ