用bat后合并excel文件后为什么生成的文件多是错误的

发布网友发布时间：2022-04-26 16:16

共3个回答

热心网友时间：2023-05-02 12:37

专业来说，批处理(bat)、dos命令只能处理ASCII码，处理其他码或是报错，或是乱码。

以ascii码为基础的有，txt、sql、csv、bat.....等等
一般来说就是txt 编辑后的文档，改后缀后可继续运行。那么这个程序，或者文件就是ascii码的。

热心网友时间：2023-05-02 12:37

COPY只能合并TXT、CSV等文本文件，XLS如果可以转成CSV文件，可以用COPY命令，否则只能另找工具了

热心网友时间：2023-05-02 12:38

sub combineworkbooks()
dim filestoopen, ft
dim x as integer
application.screenupdating = false
on error goto errhandler
filestoopen = application.getopenfilename _
(filefilter:="micrsofe excel文件(*.xlsx), *.xls", _
multiselect:=true, title:="要合并的文件")
if typename(filestoopen) = "boolean" then
msgbox "没有选定文件"
'goto errhandler
end if
x = 1
while x <= ubound(filestoopen)
set wk = workbooks.open(filename:=filestoopen(x))
wk.sheets().move after:=thisworkbook.sheets _
(thisworkbook.sheets.count)
x = x + 1
wend
msgbox "合并成功完成！"
errhandler:
' msgbox err.description
'resume errhandler
end sub