Vba: วิธีเปิดสมุดงานจากเส้นทาง

คุณสามารถใช้วิธี Workbooks.Open ใน VBA เพื่อเปิดสมุดงาน Excel จากเส้นทางเฉพาะได้

นี่เป็นวิธีทั่วไปในการใช้ฟังก์ชันนี้ในทางปฏิบัติ:

 SubOpenWorkbook ()

Dim wb As Workbook
Dim FilePath As String

FilePath = InputBox("Please Enter File Path")
Workbooks.Open FilePath

End Sub

เมื่อดำเนินการแมโครนี้ กล่องป้อนข้อมูลจะปรากฏขึ้นโดยที่ผู้ใช้สามารถป้อนเส้นทางไปยังสมุดงาน Excel ที่ต้องการได้

มาโครจะค้นหาสมุดงานที่อยู่ในเส้นทางเฉพาะโดยอัตโนมัติและเปิดใน Excel

ตัวอย่างต่อไปนี้แสดงวิธีใช้ไวยากรณ์นี้ในทางปฏิบัติ

ตัวอย่าง: วิธีเปิดสมุดงานจากเส้นทางโดยใช้ VBA

สมมติว่าเรามีสมุดงาน Excel ชื่อ my_workbook2.xlsx อยู่ในตำแหน่งต่อไปนี้:

C:\Users\bob\Documents\my_workbook2.xlsx

สมมติว่าเราต้องการใช้ VBA เพื่อเปิดเวิร์กบุ๊กนี้โดยอัตโนมัติ

เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:

 SubOpenWorkbook ()

Dim wb As Workbook
Dim FilePath As String

FilePath = InputBox("Please Enter File Path")
Workbooks.Open FilePath

End Sub

เมื่อเราเรียกใช้แมโครนี้ กล่องจะปรากฏขึ้นโดยที่เราสามารถป้อนเส้นทางไปยังสมุดงานในกล่องป้อนข้อมูล:

เมื่อเราคลิก ตกลง มาโครจะเปิดสมุดงาน Excel ที่อยู่ในเส้นทางที่เราระบุ

โปรดทราบว่าหากคุณป้อนชื่อของสมุดงานในเส้นทางไฟล์ที่ไม่มีอยู่ VBA จะสร้างข้อความแสดงข้อผิดพลาด

ตัวอย่างเช่น สมมติว่าเรากำลังพยายามเปิดสมุดงานชื่อ my_workbook3.xlsx ซึ่งไม่มีอยู่

VBA จะสร้างข้อความแสดงข้อผิดพลาดต่อไปนี้:

ซึ่งจะทำให้เรารู้ว่าไม่มีเส้นทางไฟล์ที่เราระบุ

หมายเหตุ : คุณสามารถค้นหาเอกสารฉบับสมบูรณ์สำหรับวิธี Workbooks.Open ใน VBA ได้ที่นี่

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

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

VBA: วิธีนับจำนวนแผ่นงานในสมุดงาน
VBA: วิธีบันทึกและปิดสมุดงาน
VBA: ตรวจสอบว่าสมุดงานเปิดอยู่หรือไม่