VBA save ชื่อไฟล์โดยอ้างอิงจาก cell

[tong9]

รบกวนถามอาจารย์ทุกท่านหน่อยครับ
ผมใช้ VBA รันตามด้านล่าง
ให้ทำการ save ชื่อไฟล์ใหม่ โดยอ้างอิงชื่อใน sheet"Report"และ cell"J1"
พบว่าถ้าเป็นชื่อที่จุด(.)ประกอบอยู่ด้วย เช่น วิชัยยุทธ.HO มันจะ saveได้ชื่อที่ไม่มีนามสกุลครับคือ "วิชัยยุทธ.HO"
ถ้าต้องการให้ได้ชื่อ "วิชัยยุทธ.HO.xlsm" ต้องแก้ยังไงครับ

Sub SaveAsName()
Dim FName As String
Dim FPath As String
FPath = "C:\apps"
FName = Sheets("Report").Range("J1").Text
ThisWorkbook.SaveAs Filename:=FPath & "\" & FName
End Sub

[puriwutpokin]

แนบไฟล์ตัวอย่าง และโพสต์โค้ดให้เป็นแสดงเป็นโค้ดมาด้วยครับ เพื่อสะดวกต่อการตอบของเพื่อนๆสมาชิกครับ

[tong9]

แนบไฟล์มาให้แล้วครับ

โค๊ดที่ใช้คือ
Sub SaveAsName()
Dim FName As String
Dim FPath As String
FPath = "C:\apps"
FName = Sheets("Report").Range("J1").Text
ThisWorkbook.SaveAs Filename:=FPath & "\" & FName
End Sub

[puriwutpokin]

ปรับเป็นโค้ดนี้ครับ คราวหน้าช่วยโพสต์เป็นโค้ดตามนี้ด้วยครับ

Code: Select all

Sub SaveAsName()
    Dim FName           As String
    Dim FPath           As String
    FPath = "C:\apps"
    FName = Sheets("Report").Range("J1").Text
    ThisWorkbook.SaveAs Filename:=FPath & "\" & FName + ".xlsm"
End Sub

[tong9]

ใช้ได้แล้วครับ
ขอบคุณคุณ puriwutpokin มากครับ