Sub DriveID() Dim DriveID Set DriveID = CreateObject("Scripting.FileSystemObject") MsgBox "C盘的序列号是:" & DriveID.GetDrive("C").SerialNumber, 64 End Sub上面是获取C盘序列号 如何改一下填写到单元格A1另外获取硬盘序列号填写到A1是怎么写的?、