VBA 如何调用VBS

notepad;123.txt"：Shell ":\.exe C如;
*

wscript.exe

或者 cscript.exe

修改如下：<br>sub exceldata2fmldata()<br>'将excel工作表数据写入fmldata文件<br>dim sht, fmldatapath, filename<br><br>dim i, filenumber<br>dim dzhrq, value   'dzh时间,指标值(vba的long,single为32位)<br>dim dt,fso<br>dim xlapp<br>dim xlbook<br>set xlapp = createobject("excel.application")<br>xlapp.displayalerts = true    '不显示对话框false<br>set xlbook = xlapp.workbooks.open("e:\cpx-st\fmldata\电子调试.xls")<br>set sht = xlbook.worksheets("sheet1") '假设要写入的数据在sheet1<br>fmldatapath = "e:\cpx-st\fmldata\" 'fmldata所在路径<br>filename = "581.12345.day" '文件名<br>set fso=wscript.createobject("scripting.filesystemobject")<br>if fso.fileexists(filename) then kill filename<br>set fso = fso.createtextfile(filename, true)<br>i = 2 '设数据从第二行开始;第1列为日期，第2列为指标值<br>dt = sht.cells(i, 1) '取出日期<br>do while isdate(dt) and dt <> timeserial(0, 0, 0)<br>    dzhrq = datediff("s", dateserial(1970, 1, 1), dt) '转为dzh日期：与1970.1.1间隔秒数<br>  fso.write dzhrq    '写入数据' <br>    value = sht.cells(i, 2) '取出指标值<br>    fso.write value<br>    i = i + 1<br>    dt = sht.cells(i, 1) '取出日期<br>loop<br>  fso.close  '关闭文件<br>    xlbook.close (true)    '关闭工作簿 这里的true表示退出时保存修改<br>    xlapp.quit    '结束excel对象<br>    set xlapp = nothing    '释放xlapp对象<br>end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！