วิธีรับชื่อสมุดงานโดยใช้ vba (พร้อมตัวอย่าง)

คุณสามารถใช้วิธีการต่อไปนี้ใน VBA เพื่อรับชื่อของสมุดงาน Excel:

วิธีที่ 1: รับชื่อสมุดงานที่ใช้งานอยู่

 Function GetWorkbookName() As String
GetWorkbookName = ActiveWorkbook.Name
End Function

ฟังก์ชันนี้จะส่งคืนชื่อของสมุดงานที่ใช้งานอยู่ เช่น my_vba_workbook.xlsm

วิธีที่ 2: รับชื่อสมุดงานที่ใช้งานอยู่โดยไม่มีนามสกุล

 Function GetWorkbookName() As String
GetWorkbookName = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, " . ") - 1)
End Function

ฟังก์ชันนี้จะส่งคืนชื่อของสมุดงานที่ใช้งานอยู่โดยไม่มีส่วนขยายเช่น my_vba_workbook

ตัวอย่างต่อไปนี้แสดงวิธีการใช้แต่ละวิธีในทางปฏิบัติกับสมุดงาน Excel ที่ใช้งานอยู่ในปัจจุบันที่เรียกว่า my_vba_workbook.xlsm

ตัวอย่างที่ 1: รับชื่อของสมุดงานที่ใช้งานอยู่

เราสามารถสร้างฟังก์ชันต่อไปนี้เพื่อรับชื่อของสมุดงานที่ใช้งานอยู่:

 Function GetWorkbookName() As String
GetWorkbookName = ActiveWorkbook.Name
End Function

จากนั้นเราสามารถพิมพ์สูตรต่อไปนี้ในเซลล์ A1 เพื่อรับชื่อของสมุดงานที่ใช้งานอยู่:

 =GetWorkbookName()

ภาพหน้าจอต่อไปนี้แสดงวิธีใช้สูตรนี้ในทางปฏิบัติ:

เราจะเห็นว่าสูตรส่งคืน my_vba_workbook.xlsm ซึ่งเป็นชื่อของสมุดงานที่ใช้งานอยู่ในปัจจุบันที่เราใช้อยู่

หมายเหตุ : ส่วนขยาย .xlsm แสดงถึงสมุดงาน Excel ที่เปิดใช้งานแมโคร

ตัวอย่างที่ 2: รับชื่อสมุดงานที่ใช้งานอยู่โดยไม่มีนามสกุล

เราสามารถสร้างฟังก์ชันต่อไปนี้เพื่อรับชื่อของสมุดงานที่ใช้งานอยู่โดยไม่มีส่วนขยาย:

 Function GetWorkbookName() As String
GetWorkbookName = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, " . ") - 1)
End Function

จากนั้นเราสามารถพิมพ์สูตรต่อไปนี้ในเซลล์ A1 เพื่อรับชื่อของสมุดงานที่ใช้งานอยู่:

 =GetWorkbookName()

ภาพหน้าจอต่อไปนี้แสดงวิธีใช้สูตรนี้ในทางปฏิบัติ:

เราจะเห็นว่าสูตรส่งคืน my_vba_workbook ซึ่งเป็นชื่อของสมุดงานที่ใช้งานอยู่ในปัจจุบันโดยไม่มีนามสกุล .xlsm

หมายเหตุ : การใช้ฟังก์ชัน Left และ Instr เราสามารถแยกอักขระทั้งหมดจากชื่อสมุดงานทางด้านซ้ายของจุดได้

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

วิธีสร้างโฟลเดอร์โดยใช้ VBA
วิธีลบโฟลเดอร์โดยใช้ VBA
วิธีเปลี่ยนชื่อไฟล์โดยใช้ VBA
วิธีตรวจสอบว่ามีไฟล์อยู่โดยใช้ VBA หรือไม่