Snasui Excel Forum

ตอบคุณ snasui
ขอบคุณครับ
แต่เนื่องจาก user แต่ละคนมีพาทย่อยเป็นของตัวเอง และจะไม่มีสิทธิใช้พาทใหญ่ร่วมกัน
ดังนั้น ที่เครื่องของแต่ละคนจะถูก Map Network Drive ด้วยพาทของตัวเองเท่านั้น
Drive ที่ Map ขึ้นมาก็มีต่างๆ เช่น T: S: V: หรืออื่นๆตามแต่ที่ Drive ในเครื่องนั้นจะอำนวย
และเมื่อใช้คำสั่งตรวจสอบพาท ...

เนื่องจากตอนนี้กระจายงานให้ user ผ่านทาง Network Drive มีหลาย Path
และด้วยจำนวน User มีหลายร้อยคนบางคนชอบเปิดไฟล์บน Network Drive เลย ทำให้ช้า อืด ไฟล์มีปัญหา

ดังนั้น ผมจึงอยากตรวจสอบว่าถ้าเค้าเปิดไฟล์นี้บน Network Drive อยู่ให้ปิดไฟล์อัตโนมัติครับ

คำถามคือ จะทำอย่างไร ถึงจะรู้ว่าที่ตั้งไฟล์ที่กำล ...

ขอบคุณครับ

ผมจะทำตัวแปรให้เป็น Worksheet ครับ ดังนี้

Public wsPlan As Worksheet
Set wsPlan = ThisWorkbook.Sheets("Plan")
Debug.Print wsPlan.chk_ConfirmID.Value 'ActiveX Controls เช็คบ๊อคชื่อ chk_ConfirmID

พอรันแล้วมัน Error "Method or data member not found"
ป้ายดำที่ .chk_ConfirmID ครับ

แต่ถ ...

คลิกขวาที่ไฟล์ แล้วสร้าง Shotcut ครับ
ตรง Shotcut คลิกขวาเลือก Properties
ตรง Target ใส่ที่อยู่ของตัวเปิด Excel เวอร์ชันที่ต้องการลงไปก่อน เว้นวรรค ตามด้วยที่อยู่ของไฟล์ครับ (ต้องใส่ที่อยู่ในเครื่องหมายคำพูดแยกกันด้วย)

เช่น "C:\.......\Office\EXCEL.EXE" "C:\.....\ไฟล์excel.xls"

**คิดว่าวิธีนี้น ...

ขอบคุณครับ

ขอบคุณครับ แต่ยังไม่ได้ผลครับ
**ผมมีความจำเป็นต้องปิดการคำนวนอัตโนมัติครับ (ขออภัยที่บอกในโพสแรกไม่ครบถ้วนครับ)

ผมเข้าใจว่า เมื่อปิดแล้ว ถึงมีการใช้ Filter สูตรใดๆก็จะไม่ทำงาน
ผมได้ลองทั้งสูตร Now() และ Today() บวกด้วย Worksheet_Calculate แล้ว

เมื่อใช้งาน Filter ทั้ง Now() และ Today() ไม่มีการเปล ...

ผมอยากทราบ Event ที่ใช้ดักจับการเลือก Filter ภายใน sheet แล้วจึงส่งผลให้คำสั่งที่เตรียมใว้ทำงานครับ

ตัวอย่างลักษณะการทำงานคือ
เมื่อ User ทำการใช้งาน Filter (ตารางข้อมูลที่ถูก Filter มีการเปลี่ยนแปลง) ให้มี msgbox แสดงจำนวนคงเหลือที่แสดงอยู่จริง
ตามคำสั่ง Subtotal ดังนี้ครับ
**ตารางที่พูดถึงนี้เป ...

ขอบคุณครับ

ขอบคุณครับ ตอนนี้การเชื่อมต่อไม่มี Error แล้ว
แต่ผมมีข้อสงสัยเพิ่มเติมเกี่ยวกับ Recordset ครับ

ตรงที่ว่า เมื่อสั่ง ".CopyFromRecordset adrS"
สามารถดึงข้อมูลออกมาได้ปกติ (มีข้อมูลประมาณ 80 Record)

แต่บรรทัดต่อมาผมจะนับข้อมูลใน Recordset โดยการสั่ง "adrS.RecordCount"
ปรากฏว่า ผลลัพธ์ที่ได้คือ -1 ...

ผมมีไฟล์ Excel ที่ใช้เป็นฐานข้อมูลใน format XLSB อยู่จำนวนหนึ่ง ในไฟล์มีชีท Data อยู่ และที่ชีท Data ติด password "123" อยู่ด้วย
ผมมีความจำเป็นต้องใช้ Query ดึงข้อมูลทั้งหมดออกมาด้วยคำสั่งดังนี้ครับ

Dim conStr As String
Dim adbC As ADODB.Connection
Dim adrS As ADODB.Recordset

conStr = "Provider ...