jyswjjgdwtdtj

方案1
用回2000或xp 有系统自带的com组件
方案2
用vbs调用vba（极其复杂）
方案3
在js里加判断循环
方案5
用vbs调用ie

<input type=file accept=".xls"/>
复制代码

方案4
用ps .net库里没有我倒立吃屎
总之不用bat咋都方便

jyswjjgdwtdtj

嗯 突然想起来之前做过一个

//jscript or javascript
//ie

function getvbsfilepath(){
return new ActiveXObject("excel.application").GetOpenFileName("VBScript Files (*.vbs *.vbe),*.vbs;*.vbe",1,"打开VBScript脚本文件")
}
function savevbsfilepath(filename){
return new ActiveXObject("excel.application").GetSaveAsFilename(filename,"VBScript Files (*.vbs *.vbe),*.vbs;*.vbe",1,"另存为VBScript脚本文件")
}
复制代码

调用excel的原生方法 即vba里的application对象
所以不用安装vba 有wps或office就行

@ECHO OFF
setlocal enabledelayedexpansion
call :File_Input "files" "输入文件"&& echo 输入文件=!输入文件!
echo Files=%files%
echo 调试结束&&pause&&exit


goto :eof

::**************************************************************
::       输入文件名称
::**************************************************************
:File_Input
Title ★★★★★ %~n0 %~2 ★★★★★
if "%2" NEQ "" set %~2=No
for /f "delims=" %%a in ('mshta "about:<script>new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(new ActiveXObject('excel.application').GetOpenFileName('VBScript Files (*.vbs *.vbe),*.vbs;*.vbe',1,'打开VBScript脚本文件'));close();</script>"') do set %~1="%%a"
if "%~1" NEQ "" if "%2" NEQ "" set %~2=Yes
Title ★★★★★ %~n0  ★★★★★
goto :eof
复制代码

jyswjjgdwtdtj

回复 8# y6383289


    我这里不会呀 不过之前也遇到这个问题 不知道怎么解决

jyswjjgdwtdtj

再给你个最好的（或许吧） 你可以改成保存文件对话框

<script>window.resizeTo(0,0);window.onload=function(){try{new ActiveXObject('scripting.filesystemobject').GetStandardStream(1).Write(document.getElementById('hdh').object.openfiledlg('','','Text Files (*.txt)|*.txt|','select files'))}catch(err){};window.close()}</script><hta:application caption=no showintaskbar=no /><object id=hdh classid=CLSID:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object>
复制代码

在hta里能成功执行而且不会报错窗口一定能关的上