Snasui Excel Forum

Posted: **Tue Mar 13, 2018 3:55 pm**

จาก Code Save ชุดนี้ ผมเซฟแล้ว เกิดข้อความ ดังในรูปครับผมต้องปรับแก้ส่วนไหน รบกวน ขอคำชี้แนะด้วยครับ ขอบคุณครับ

: Untitled.jpg (54.9 KiB) Viewed 159 times

Sub SaveAsName1()
Dim FName As String
Dim FPath As String
FPath = "D:\Report2"
FName = Sheets("INPUT").TextBox64.Text
                With Sheets("PharDoc")
                    ThisWorkbook.Sheets("PharDoc").Copy
                    ActiveWorkbook.SaveAs Filename:=FPath & "\" & FName & "เอกสารกำกับ" + ".xls"
                    ActiveWorkbook.Close False
End With
End Sub

Posted: **Tue Mar 13, 2018 4:33 pm**

เลือกเป็น Save As เป็นนามสกุล .xlsm หรือ .xls

Posted: **Tue Mar 13, 2018 4:42 pm**

puriwutpokin wrote: Tue Mar 13, 2018 4:33 pm เลือกเป็น Save As เป็นนามสกุล .xlsm หรือ .xls

ผมกดปุ่มตกลง หนะครับ พี่ ผมวาง Code ใน Moduel แล้ว Call มาใช้ งาน มีวิธีแก้ไหมครับ ไม่ให้มันแสดงแบบนี้ ให้มันเซฟไปเลย

Posted: **Tue Mar 13, 2018 4:55 pm**

ในคำสั่งนี้ที่โค้ดครับ

Code: Select all

Application.DisplayAlerts = False
'Other code....
Application.DisplayAlerts = True

Posted: **Tue Mar 13, 2018 5:00 pm**

puriwutpokin wrote: Tue Mar 13, 2018 4:55 pm ในคำสั่งนี้ที่โค้ดครับ
Code: Select all
Application.DisplayAlerts = False
'Other code....
Application.DisplayAlerts = True

ขอบคุณครับเดี๋ยวลองทดสอบ

Posted: **Tue Mar 13, 2018 5:04 pm**

jullathep wrote: Tue Mar 13, 2018 5:00 pm
puriwutpokin wrote: Tue Mar 13, 2018 4:55 pm ในคำสั่งนี้ที่โค้ดครับ
Code: Select all
Application.DisplayAlerts = False
'Other code....
Application.DisplayAlerts = True
ขอบคุณครับเดี๋ยวลองทดสอบ

Success ครับ สุดยอด ขอบคุณมากครับ

Snasui Excel Forum

สอบถามเรื่อง Code Save File ของ VBA ครับ

สอบถามเรื่อง Code Save File ของ VBA ครับ

Re: สอบถามเรื่อง Code Save File ของ VBA ครับ

Re: สอบถามเรื่อง Code Save File ของ VBA ครับ

Re: สอบถามเรื่อง Code Save File ของ VBA ครับ

Re: สอบถามเรื่อง Code Save File ของ VBA ครับ

Re: สอบถามเรื่อง Code Save File ของ VBA ครับ