รบกวนผู้รู้ช่วยที่ครับ VBAเซฟ File excel และ สร้าง Folder เป็นชื่อใน คอลั่ม

[hasharp]

รบกวนอาจารย์และผู้รู้ หน่อยนะครับ

พอดีผมเพิ่งเริ่มหัดเขียน VBA อยากจะเขียนให้ เซฟ File excel และ สร้าง Folder เป็นชื่อใน คอลั่ม AD1:AD26 อะครับ โดยผลรับที่ได้คือ File excel และ Folder ทั้งหมด 26 ชื่อ ตรงกับในคอลั่ม AD1 : AD26 แต่ผมไม่รู้จะเขียนยังไงอะครับ ไม่ค่อยจะมีความรู้ด้านนี้เลยครับเลย ขอรบกวนผู้รู้ช่วยชี้แนะที่นะครับ

Sub SaveExcel()
Dim strFilename, strDirname, strPathname, strDefpath As String
On Error Resume Next ' If directory exist goto next line
strDirname = Range("D2").Value ' New directory name

strFilename = Range("D2").Value 'New file name
strDefpath = "D:\GQI PROJECT\92 KI\Maker report\" 'Default path name
If IsEmpty(strDirname) Then Exit Sub
If IsEmpty(strFilename) Then Exit Sub

MkDir strDefpath & strDirname
strPathname = strDefpath & strDirname & "\" & strFilename 'create total string

ActiveWorkbook.SaveAs Filename:=strPathname & ".xlsm", _
FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
MsgBox "Excel Compleated : " & Range("D2").Value
End Sub

[snasui]

การใช้ VBA จำเป็นต้องมีความรู้พื้นฐานมาพอที่จะปรับ Code เองได้บ้างครับ ตามที่ถามมาให้แนบไฟล์ตัวอย่างมาด้วย

คำว่า "อะครับ" ผิดกฎการใช้บอร์ดข้อ 1 ด้านบน ระมัดระวังด้วยครับ

สำหรับการโพสต์ Code ให้แสดงเป็น Code สามารถดูได้ที่ viewtopic.php?f=6&t=1187 เพื่อสะดวกในการอ่านและ Copy ไปทดสอบครับ