Dear pak prazt
Range("A5") =
CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber
Atau pake format:
Range("A5") =
Format(Cdbl(CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber))
Wassalam
-----Original Message-----
From: "PRAZT" <[email protected]>
Sender: [email protected]
Date: Tue, 29 Jan 2013 09:48:21
To: group excel<[email protected]>
Reply-To: [email protected]
Subject: [belajar-excel] Mendapatkan Nomor Seri Hardisk Menggunakan VBA Excel
Dear all master...
Saya ingin mendapatkan nomor hardisk yang ingin saya letakkan pada sheet1,
cell A1, setiap kali file excel dibuka pada hardisk yang berbeda maka
otomatis pada sheet1, cell A1 juga otomatis berubah sesuai hardisk yang di
pakai..
Saya mendapatkan code CBAnya dari milis tetangga seperti di bawah :
MsgBox
CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber
Berhubung saya masih tabu dengan VBA maka saya ingin minta bantuan pada para
master bagaimana cara penggunaan code tersebut?
Atau mungkin ada contoh lain yang bisa membantu saya.
PRAZTMATH T
<<image001.jpg>>
<<image004.jpg>>
