Excel Forum

Posted: **Fri Feb 16, 2018 8:57 am**

รบกวนถามอาจารย์ทุกท่านหน่อยครับ
ผมใช้ 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

Posted: **Fri Feb 16, 2018 9:08 am**

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

Posted: **Fri Feb 16, 2018 2:00 pm**

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

โค๊ดที่ใช้คือ
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

Posted: **Fri Feb 16, 2018 3:46 pm**

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

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

Posted: **Thu Feb 22, 2018 9:01 am**

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

Excel Forum

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

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

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

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

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

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