การประมวลผลมาโครในไฟล์ Excel จาก Access

การประมวลผลมาโครในเวิร์กบุ๊ค Excel จากคำสั่ง Visual Basic ใน Microsoft Access สิ่งแรกที่ต้องทำ คือ การเปิดไฟล์ Excel ที่ต้องการ แล้วเรียกใช้มาโคร ในไฟล์นั้น โดยการทำงานกับ Microsoft Excel ได้ต้องมีการอ้างอิง References ไปที่ไลบรารีของ Excel

การเปิดไฟล์ Excel

การเปิดไฟล์ Excel ต้องใช้ฟังก์ชัน GetObject ที่ระบุพาร์ทสมบูรณ์ไปที่ไฟล์ Excel ที่ต้องการเปิด และสร้าง Instance ด้วยคีย์เวิร์ด Set

Dim XL As Excel.Workbook
Set XL = GetObject("C:\My Documents\AppOpenExcel\MyExcel.XLS, "Excel.Sheet")

การเรียกใช้มาโคร

การเรียกมาโครใช้เมธอด Run ของอ๊อบเจค Application ในการเรียกใช้มาโคร

XL.Application.Run "ChangeValue"

ตัวอย่างคำสั่ง

Sub RunMacro()
Dim XL As Excel.Workbook

Set XL = GetObject("C:\My Documents\AppOpenExcel\MyExcel.XLS", "Excel.Sheet")

XL.Application.Visible = True
XL.Application.Windows("MyExcel.XLS").Visible = True
XL.Application.Run "ChangeValue"

End Sub

ดาวน์โหลดตัวอย่าง

หัวข้อเพิ่มเติม

อ๊อบเจค Application
การสร้างไฟล์ Excel จาก Access