การสร้างไฟล์ Excel จาก Access

การสร้างเวิร์กบุ๊ค Excel จากคำสั่ง Visual Basic ใน Microsoft Access ซึ่งการทำงานกับ Microsoft Excel ได้ต้องมีการอ้างอิง References ไปที่ไลบรารีของ Excel

การสร้างไฟล์ Excel

การสร้างไฟล์ Excel ต้องใช้ฟังก์ชัน CreateObject เพื่อระบุการสร้างไฟล์ Excel และสร้าง instance ด้วยคีย์เวิร์ด Set

Dim XL As Excel.Workbook
Set XL = CreateObject("Excel.Sheet")

การทำงานกับ Excel

หลังจากการสร้าง instance ของ Excel จะสามารถใช้คำสั่งของ Excel ในการทำงาน เช่น การป้อนข้อความลงในเซลล์ที่ต้องการ และการบันทึกไฟล์

การป้อนวันที่ลงในเซลล์ A2 (Cells(2,1) คือ แถว 2 คอลัมน์ 1)
XL.ActiveSheet.Cells(2, 1).Value = Date

การบันทึกไฟล์ MyNewExcel ไปที่ C:\My Document\
XL.SaveAs filename:="C:\My Documents\MyNewExcel.XLS"

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

Sub RunMacro()
Dim XL As Excel.Workbook

Set XL = CreateObject("Excel.Sheet")

XL.Application.Visible = True
XL.ActiveSheet.Cells(1, 1).Value = "สร้างไฟล์ Excel จาก Microsoft Access"
XL.ActiveSheet.Cells(2, 1).Value = Date
XL.SaveAs filename:="C:\My Documents\MyNewExcel.XLS"

End Sub

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

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

อ๊อบเจค Application
การประมวลผลมาโครใน Excel จาก Access