xls文件批量转csv文件(当前目录下) --VBA
Option ExplicitSub hj()Dim cFile$, cPath$, Sh As Worksheet, nRow%Dim fullfile$On Error GoTo errorApplication.ScreenUpdating = FalseApplication.EnableEvents = False cPath = ThisWorkbook.Pa...
原创
2018-11-20 11:38:53 ·
961 阅读 ·
0 评论