กระทู้เก่าบอร์ด อ.Yeadram
1,208 2
URL.หัวข้อ /
URL
ต้องการไม่ให้คำสั่ง Macro ทำงานขณะ Import ไฟล์ exc
สวัสดีครับอาจารย์และทุกท่าน ผมมีคำถามอยากจะรบกวนดังนี้นะครับ ผมเขียนคำสั่งสำหรับอ่านข้อมูลจากไฟล์ excel เพื่อ Import ข้อมูลเข้าฐานข้อมูลใน access โดยใช้คำสั่ง ตามด้านล่างครับ
Dim sExcel As New Excel.Application
Dim sworkbook As Excel.Workbook
sExcel.Visible = True
Set sworkbook = Workbooks.Open(Filename)
ซึ่งพบว่าเมื่อคำสั่ง Workbooks.Open ทำงานไฟล์ excel ก็ถูกเปิดแต่คำสั่ง Macro ใน excel ก็เริ่มทำงานทันทัน ต่างจากตอนที่ผมเปิดไฟล์ excel เพียงอย่างเดียว ซึ่งจะมีข้อความ Security Warning ถามว่าต้องการให้ macro ทำงานหรือไม่
จึงอยากรบกวนขอคำปรึกษาจากผูัรู้ทุกท่านช่วยแนะนำหน่อยนะครับ ถ้าหากไม่ต้องการให้ macro ทำงานขณะเปิดไฟล์ excel เพื่ออ่านข้อมูลจะต้องทำอย่างไร
ปล. ผมได้ทดลองใช้คำสั่ง sworkbook.RunAutoMacros xlAutoDeactivate แล้วแต่ macro ก็เริ่มทำงานทันทีที่เปิดแฟ้มคับ
Dim sExcel As New Excel.Application
Dim sworkbook As Excel.Workbook
sExcel.Visible = True
Set sworkbook = Workbooks.Open(Filename)
ซึ่งพบว่าเมื่อคำสั่ง Workbooks.Open ทำงานไฟล์ excel ก็ถูกเปิดแต่คำสั่ง Macro ใน excel ก็เริ่มทำงานทันทัน ต่างจากตอนที่ผมเปิดไฟล์ excel เพียงอย่างเดียว ซึ่งจะมีข้อความ Security Warning ถามว่าต้องการให้ macro ทำงานหรือไม่
จึงอยากรบกวนขอคำปรึกษาจากผูัรู้ทุกท่านช่วยแนะนำหน่อยนะครับ ถ้าหากไม่ต้องการให้ macro ทำงานขณะเปิดไฟล์ excel เพื่ออ่านข้อมูลจะต้องทำอย่างไร
ปล. ผมได้ทดลองใช้คำสั่ง sworkbook.RunAutoMacros xlAutoDeactivate แล้วแต่ macro ก็เริ่มทำงานทันทีที่เปิดแฟ้มคับ
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R15104
ขอขอบคุณ คุณ (R15097) มากๆ เลยนะครับ ผมได้ลองใช้คำสั่ง sExcel.AutomationSecurity = msoAutomationSecurityForceDisable ตามที่แนะนำ macro ก็ไม่ทำงานตามต้องการครับ ขอบคุณมากๆครับ
Time: 0.2501s
Dim sExcel As New Excel.Application
Dim sworkbook As Excel.Workbook
sExcel.AutomationSecurity = msoAutomationSecurityForceDisable
sExcel.Visible = True
Set sworkbook = sExcel.Workbooks.Open(Filename)