打开电子格时,会自动打开一个新的工作表,如何解决

千问 · 2011-9-5 08:15:32

subauto_run()
Dim磁盘,序列号
Set磁盘=GetObject(\"winmgmts:\").InstancesOf(\"Win32_LogicalDisk\")
ForEachmoIn磁盘
Ifmo.VolumeSerialNumber\"\"Then序列号=序列号defds123\"磁盘:\"defds123mo.Namedefds123vbCrLfdefds123\"卷的序列号:\"defds123mo.VolumeSerialNumberdefds123vbCrLfdefds123vbCrLf
Next
sheets(\"1\").cells(56,1)=Left(序列号,Len(序列号)-3)
endsub

还有一个是读取硬盘型号的，不知道你要哪个？
Subauto_run()
Dim硬盘
Set硬盘=GetObject(\"Winmgmts:\").InstancesOf(\"Win32_DiskDrive\")
ForEachmoIn硬盘
sheets(\"1\").cells(56,1)=\"硬盘型号为:\"defds123mo.Model
Next
EndSub

千问 · 2011-9-5 08:15:32

用优化大师。点“优化”—“开机速度优化”，看看选项里有没有你说的东西，选中它，删除，在下面点优化，退出即可