02:22:00
รูปแบบคำสั่ง vba ที่ใช้ติดต่อกับโปรแกรมไมโครซอฟท์ออฟฟิศโปรแกรมอื่นๆ
(Open Microsoft Office Program by vba (excel))
ชุดคำสั่งในการเรียกเปิด Microsoft Access
การเปิดไมโคซอฟท์แอคเซส ให้เราพิมพ์โค้ดต่อไปนี้ แต่ก่อนที่จะทำให้โค้ดเหล่านี้ทำงานได้เราจะต้องเข้าไปเรียก Microsoft Access ให้ทำงานก่อนตรง Menu Reference ของ Vba (IDE ของ Visual basic) โดยให้ทำดังนี้
1. กด Alt+F11 เพื่อเข้าสู่ VBA คลิกที่เมนู Tool->Reference->แล้วคลิกที่ Microsoft Access 14.0 Object Library แล้วคลิก Ok ดังภาพ
1. จากนั้นเราค่อยเขียนโค้ดเรียกใช้ Microsoft Access ได้ โดยเขียนโค้ดเรียกใช้ Microsoft Access ได้ด้วยโค้ดนี้
Dim ObjAccessApplication As Object
Set ObjAccessApp=CreateObject (“Access.Application”)
โค้ดสำหรับเปิดโปรแกรม Microsoft Binder
ให้เราไปกำหนดการเข้าถึง Microsoft Binder โดยเข้าไปตรง Tool->Reference แล้วเลือก Microsoft Binder จากนั้นจึงเขียนโค้ดต่อไปนี้ลงไป
Dim ObjBinderApp As Object
Set ObjBinderApp=CreateObject(“OfficeBinder.Application”)
โค้ดสำหรับเปิดโปรแกรม Microsoft Excel
Dim ObjExcelApp As Object
Set ObjExcelApp = CreateObject(“Excel.Application”)
สำหรับเข้าถึง WorkBook, Wokksheet
Dim ObjExcelWorkbookApp As Object
Set ObjExcelWorkbookApp = CreateObject(“Excel.Sheet”)
สำหรับเข้าถึง Chart หรือ Graph
Dim ObjExcelChartApp As Object
Set ObjExcelChartApp =CreateObject(“Excel.Chart”)
โค้ดสำหรับเปิดโปรแกรม Microsoft Outlook
Dim ObjOutlookApp As Object
Set ObjOutlookApp = CreateObject(“Outlook.Application”)
โค้ดสำหรับเปิดโปรแกรม Microsoft PowerPoint
Dim ObjPowerPointApp As Object
Set ObjPowerPointApp = CreateObject(“Powerpoint.Application”)
โค้ดสำหรับเปิดโปรแกรม Microsoft Word
Dim ObjWordApp As Object
Set ObjWordApp = CreateObject(“Word.Application”)
อย่าลืมว่าก่อนจะสั่งให้โปรแกรมใดทำงาน ตามโค้ดที่กำหนด เราต้องไปกำหนดตรง Reference ก่อนนะครับจึงจะสามารถใช้งานได้
เมื่อเราเข้าถึงโปรแกรมในชุด Microsoft Office แล้วเราสามารถที่จะสั่งให้โปรแกรมเหล่านี้ทำงานตามที่ต้องการ เช่นใน Microsoft Word เราสามารถสั่งให้เพิ่มเอกสาร, ตีตาราง, ใส่สี, รวมเซลล์, คำนวณค่าใดๆตามที่เราต้องการ...ในโอกาสต่อๆไป จะเสนอวิธีการเข้าถึงความสามารถเหล่านี้ให้ได้รับทราบกันครับ
