我需要一个vbs新建一个空白的excel表格到指定路径的代码,但不知道怎么写,期望谢谢

已举报 回答 关注
我需要一个vbs新建一个空白的excel表格到指定路径的代码,但不知道怎么写,期望谢谢
问在线客服
扫码问在线客服
  • 回答数

    3

  • 浏览数

    7,714

3个回答 默认排序
  • 默认排序
  • 按时间排序

已采纳
sub createExcel(path,name) '定义一个生成excel文件的子过程,path为你要的指定路径,name为excel文件想要的名字
dim excel
set excel = createobject("excel.application")
excel.Workbooks.Add
excel.Save path & name & ".xls"
end Sub
createExcel "c:\","my" '这里是调用子过程生成指定路径下指定名字的excel文件
取消 评论
代码如下,貌似这有这个办法发上来了
Dim WebAddress
Dim IP
Dim bytebig
Dim delay
Dim TTL
Dim i,FileName
Dim filena,fso
Set pExcel = CreateObject("Excel.Application")
Set fso = CreateObject("scripting.FileSystemObject")
WebAddress=InputBox("请输入你要ping的网络地址","Ping 测试","10.71.17.115")
cs=InputBox("请输入你要ping次数","Ping 测试","10")
yanshi=InputBox("请输入等待时间,安秒计时","Ping 测试","3")
yanshi2=yanshi*1000
FileName="c:\Ping.xlsx"
pExcel.Workbooks.Open FileName
for i = 1 to cs
If WebAddress <> "" Then
Set OBJWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colPings = OBJWMIService.ExecQuery("Select * From Win32_PingStatus Where Address = '" &WebAddress& "'")
For Each OBJStatus in colPings
If IsNull(OBJStatus.StatusCode) Or OBJStatus.StatusCode <> 0 Then
pExcel.worksheets ("sheet1").Cells(i, 1).VAlue = "Off Line"
pExcel.worksheets ("sheet1").Cells(i, 5).VAlue = now
wscript.sleep yanshi2
Else

IP=WebAddress
bytebig=OBJStatus.BufferSize
delay=OBJStatus.ResponseTime
TTL=OBJStatus.ResponseTimeToLive
pExcel.worksheets ("sheet1").Cells(i, 1).VAlue = IP
pExcel.worksheets ("sheet1").Cells(i, 2).VAlue = bytebig
pExcel.worksheets ("sheet1").Cells(i, 3).VAlue = delay
pExcel.worksheets ("sheet1").Cells(i, 4).VAlue = TTL
pExcel.worksheets ("sheet1").Cells(i, 5).VAlue = now
wscript.sleep yanshi2

end if
next
End If
next
pExcel.ActiveWorkbook.Save()
pExcel.Workbooks.Close()
pExcel.Quit()
msgbox ("It's OK")
取消 评论
sub createExcel(Xpath,Xname)  '定义一个生成excel文件的子过程,Xpath为你要的指定路径,Xname为excel文件想要的名字
dim excel
set excel = createobject("excel.application")
excel.Workbooks.Add()
excel.ActiveWorkbook.SaveAs Xpath & Xname & ".xls"
excel.Quit
Set excel=Nothing
end Sub
Xpath=InputBox("请输入excel文件保存地址以\结束,例如:E:\文档\","提示")
Xname=InputBox("请输入excel文件名称,例如:资源明细","提示")
createExcel Xpath,Xname '这里是调用子过程生成指定路径下指定名字的excel文件
取消 评论
ZOL问答 > 我需要一个vbs新建一个空白的excel表格到指定路径的代码,但不知道怎么写,期望谢谢

举报

感谢您为社区的和谐贡献力量请选择举报类型

举报成功

经过核实后将会做出处理
感谢您为社区和谐做出贡献

扫码参与新品0元试用
晒单、顶楼豪礼等你拿

扫一扫,关注我们
提示

确定要取消此次报名,退出该活动?