Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA Code return value in Excel
Hello, I am trying to run the following code to return the serial number of
the hard drive i.e. a unique identifier . is it possible to amend this code to return the serial number as a value in a particular excel cell? Thanks very much for your help Sub SerialNumber() Dim oFSO As Object Dim drive As Object Set oFSO = CreateObject("Scripting.FileSystemObject") Set drive = oFSO.GetDrive("C:\") MsgBox drive.SerialNumber Set oFSO = Nothing Set drive = Nothing 'release memory End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA Code return value in Excel
not sure from your question if this is what you want or not
Sub SerialNumber() Dim oFSO As Object Dim drive As Object Set oFSO = CreateObject("Scripting.FileSystemObject") Set drive = oFSO.GetDrive("S:\") Worksheets("Sheet1").Range("A1").Value = "'" & drive.SerialNumber Set oFSO = Nothing Set drive = Nothing 'release memory End Sub -- Gary "Blair" wrote in message ... Hello, I am trying to run the following code to return the serial number of the hard drive i.e. a unique identifier . is it possible to amend this code to return the serial number as a value in a particular excel cell? Thanks very much for your help Sub SerialNumber() Dim oFSO As Object Dim drive As Object Set oFSO = CreateObject("Scripting.FileSystemObject") Set drive = oFSO.GetDrive("C:\") MsgBox drive.SerialNumber Set oFSO = Nothing Set drive = Nothing 'release memory End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA Code return value in Excel
Yes this is exactly what I wanted. Thank you for your help.
"Gary Keramidas" wrote: not sure from your question if this is what you want or not Sub SerialNumber() Dim oFSO As Object Dim drive As Object Set oFSO = CreateObject("Scripting.FileSystemObject") Set drive = oFSO.GetDrive("S:\") Worksheets("Sheet1").Range("A1").Value = "'" & drive.SerialNumber Set oFSO = Nothing Set drive = Nothing 'release memory End Sub -- Gary "Blair" wrote in message ... Hello, I am trying to run the following code to return the serial number of the hard drive i.e. a unique identifier . is it possible to amend this code to return the serial number as a value in a particular excel cell? Thanks very much for your help Sub SerialNumber() Dim oFSO As Object Dim drive As Object Set oFSO = CreateObject("Scripting.FileSystemObject") Set drive = oFSO.GetDrive("C:\") MsgBox drive.SerialNumber Set oFSO = Nothing Set drive = Nothing 'release memory End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Getting Excel to return Hiragana using code/char functions | Excel Discussion (Misc queries) | |||
Outlook Object Model via Excel -- return code after send? | Excel Programming | |||
Excel 2002 VBA code to return a page number within a worksheet | Excel Programming | |||
How do I code VBA to return information from a web site to an excel workbook | Excel Programming | |||
Excel return error code | Excel Programming |