求代码

ykcbf1100

kyxfyzg 发表于 2024-8-7 15:44
不好意思，上个传错了，这个模版文件里有。我试过了，你看看吧

可以运行，但是另存的代码有点问题，只有xlsx文件后面的格式数字才能省略，你另存为xls文件，后面的格式是不能省略的，不然，结果就是打开这个文件时会出现错误提示，说文件格式不匹配。
改一下吧：wb.SaveAs ThisWorkbook.Path & "\" & wbnm, FileFormat:=56

kyxfyzg

ykcbf1100 发表于 2024-8-7 15:51
可以运行，但是另存的代码有点问题，只有xlsx文件后面的格式数字才能省略，你另存为xls文件，后面的格式 ...

已经修改完了，希望符合你的要求

ykcbf1100

kyxfyzg 发表于 2024-8-7 16:21
已经修改完了，希望符合你的要求

你是帮楼主，不是帮我。
我只是希望你也能提高一下。

kyxfyzg

ykcbf1100 发表于 2024-8-7 16:35
你是帮楼主，不是帮我。
我只是希望你也能提高一下。

就是个人爱好，工作之余锻炼一下自己，打发一下时间

施学明

谢谢二位高人相助，不过问题还是没解决，我将转换后的工作表导入时出现如附图所示错误，望看看到时底哪不对

zpy2

施学明 发表于 2024-8-8 13:23
谢谢二位高人相助，不过问题还是没解决，我将转换后的工作表导入时出现如附图所示错误，望看看到时底哪不对

这个java的库只认 2003班的.xls
        Wb.SaveAs fileName:=saveFilePathStr, FileFormat:=xlExcel8