harddisk seri numarasını a1 hücresine yazmıyor(kod yanlışmı)

[jambow]

Private Sub DriveSerialNo(MyDrive As String)
    Set ds = CreateObject("Scripting.FileSystemObject")
    Set d = ds.GetDrive(MyDrive)
     Label5.Caption = d.SerialNumber: [a1] = d.SerialNumber
    Label7.Caption = Hex(d.SerialNumber): [a2] = Hex(d.SerialNumber)
End Sub

arkadaşlar hdd seri numarasını a1 e yazdıramıyorum bu kodu exele uygulayıp gönderebilirmisiniz

 

[Levent Menteşoğlu]

Mydrive değişkenine hardisk adını tanımladığınızda hücrelere yazması gerekir. Örneğin Mydrive yerine "c:\" yazarak deneyin. Aşağıdaki gibi bir kod olabilir.

Sub DriveSerialNo()
    Set ds = CreateObject("Scripting.FileSystemObject")
    Set d = ds.GetDrive("c:\")
     [a1] = d.SerialNumber
End Sub

 

[jambow]

dostum evet kod doğru ancak manuel olarak makroyu çalış dersem yazıyor a1 hücresine. benim istediğim sayfayı açtığımda otomatik yazsın

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Kodu bir normal modüle kopyaladıktan sonra dosyayı kaydedin ve kapatıp tekrar açın.

Sub auto_open()
    Set ds = CreateObject("Scripting.FileSystemObject")
    Set d = ds.GetDrive("c:\")
     [a1] = d.SerialNumber
End Sub

Not: Yazılacak sayfa adınıda tanımlamak isterseniz [a1] yerine örneğin [sayfa1!a1] şeklinde yazın.

 

[jambow]

tşkkürler dostum