Excel宏不要弹出来
Set ExcelApp = CreateObject("Excel.Application")
Set ExcelSheet = createobject("Excel.Sheet")
ExcelSheet.ActiveSheet.Cells(1,1).Value = "My Vbscript"
ExcelSheet.SaveAs("C:\111.XLS")
ExcelSheet.Application.Quit()
将这些代码复制到记事本中,然后另存为所有文件，文件名叫1.vbs
然后双击一下,在c盘就会出现一个xls文件,
将其中的代码改成你的代码即可,完全支持EXCEL中的VBA,无论安全性高与中,都可运行,还可以利用FSO,WSCRIPT等模型操纵硬盘文件,注册表,哇靠,世界太美好了～～
Set ExcelSheet = createobject("Excel.Sheet")
ExcelSheet.ActiveSheet.Cells(1,1).Value = "My Vbscript"
ExcelSheet.SaveAs("C:\111.XLS")
ExcelSheet.Application.Quit()
将这些代码复制到记事本中,然后另存为所有文件，文件名叫1.vbs
然后双击一下,在c盘就会出现一个xls文件,
将其中的代码改成你的代码即可,完全支持EXCEL中的VBA,无论安全性高与中,都可运行,还可以利用FSO,WSCRIPT等模型操纵硬盘文件,注册表,哇靠,世界太美好了～～
