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

จุดประสงค์คือ อยากเอาข้อมูลจากคอลั่มออกเป็น 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

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