Mở và đóng CD từ Excel

[levanduyet]

Hì hì hì,
Có khi nào các bạn muốn mở và đóng CD từ Excel hay không?
Bạn hãy copy đọan mã sau vào module, và tạo nút lệnh từ Worksheet và gọi các thủ tục đóng và mở như sau:

Declare Sub mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long)


Sub OpenCDTray()
mciSendStringA "Set CDAudio Door Open", 0&, 0, 0
End Sub


Sub CloseCDTray()
mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0
End Sub

Chúc các bạn có 1 ngày vui.
Sưu tầm từ Erlandsen Data Consulting
Lê Văn Duyệt

 

[vongphuc]

Cái này trong thực tế mình dùng để làm gì ạ? Không biết có gì thú vị không đây anh Duyệt ơi post tiếp đi nha cho đàn em học hỏi :two:

 

[levanduyet]

Cái này trong thực tế mình dùng để làm gì ạ? Không biết có gì thú vị không đây anh Duyệt ơi post tiếp đi nha cho đàn em học hỏi :two:

Chúc các bạn có 1 ngày vui vẻ.
Trần Vọng Phúc

To:vongphuc,
Sao hôm nay lại nêu cả Họ tên thế?
Cái này chỉ để chơi cho vui thôi ! Ai mà trong mạng LAN sử dụng file của mình thì khi mở ra ổ đĩa CD cũng bị mở luôn. Hì hì hì.
Để làm được điều này em phối hợp với hàm sau:
Function User()
' Tra ve ten cua nguoi dung hien tai
User = Application.UserName
End Function
Chúc vui vẻ với những gì khám phá được.

Lê Văn Duyệt
(Buồn ngủ quá, Anh post bài lúc 1h sáng...hu hu hu)