Page 1 of 1
การดึงชื่อไฟล์มาใช้
Posted: Sun Mar 22, 2020 9:26 am
by borsalino
ผมเคยใช้แต่การดึงชื่อ sheet มาใช้ตาม code ด้านล่าง
Code: Select all
Dim sheetname As String
sheetname = ActiveSheet.Name
Range("A1").Value = sheetname
อยากใส่ค่า A1 ให้กลายเป็นชื่อไฟล์แทนครับ
Re: การดึงชื่อไฟล์มาใช้
Posted: Sun Mar 22, 2020 9:36 am
by puriwutpokin
Re: การดึงชื่อไฟล์มาใช้
Posted: Sun Mar 22, 2020 10:44 am
by borsalino
puriwutpokin wrote: Sun Mar 22, 2020 9:36 am
เปลี่ยนตรงนี้ครับ
สามารถตัดชื่อไฟล์ออกได้มั้ยครับ
เช่นชื่อไฟล์ Exam - test.xlsm
เหลือแค่ test.xlsm
Re: การดึงชื่อไฟล์มาใช้
Posted: Sun Mar 22, 2020 11:37 am
by snasui
สามารถทำได้ครับ
ลองศึกษาพวก Mid, Left, Right, Replace ฯลฯ จาก Link นี้ ติดตรงไหนค่อยนำปัญหานั้นมาถามกันต่อครับ
https://docs.microsoft.com/en-us/office ... -statement
Re: การดึงชื่อไฟล์มาใช้
Posted: Sun Mar 22, 2020 12:43 pm
by borsalino
ทำได้แล้วครับ ขอบคุณครับ
อาจารย์ครับ สอบถามเพิ่มเติม
ในกรณีที่อยากให้แสดง directory ของไฟล์
ขอคำแนะนำด้วยครับ
Re: การดึงชื่อไฟล์มาใช้
Posted: Sun Mar 22, 2020 1:44 pm
by snasui
ดูตอนท้าย ๆ ของโพสต์นี้ครับ
viewtopic.php?t=4993#p32343
Re: การดึงชื่อไฟล์มาใช้
Posted: Sun Mar 22, 2020 2:36 pm
by borsalino
ทำได้แล้วครับ ขอบคุณที่ชี้แนะครับอาจารย์