美文网首页
xls转化csv且合并 2021-06-15

xls转化csv且合并 2021-06-15

作者: 阿然学编程 | 来源:发表于2021-06-14 11:28 被阅读0次
  • xls/xlsx转化csv.bat
@echo off
set tmpVbs=nsbb.vbs
more +12 %0 >%tmpVbs%
for /f "tokens=*" %%a in (
 'dir *.xls* /a /b'
) do (
 echo ÕýÔÚת»¯ %%a
 wscript //Nologo "%tmpVbs%" "%%~dpnxa"
)
del "%tmpVbs%" /q 1>nul 2>nul
pause
Exit
Const xlCSV = 6
dim filepathname
Set objExcel = CreateObject("Excel.Application")
'Filename = objExcel.GetOpenFilename("Excel Files (*.xls*), *.xls*")
'objExcel.DisplayAlerts=FALSE
'If filename<>false Then
On Error Resume Next
Filename = WScript.Arguments.Unnamed.Item(0)
Set objWorkbook = objExcel.Workbooks.Open(Filename)
If Err.Number <> 0 Then
Err.Raise Err.Number
Return "-1"
End If
objWorkbook.SaveAs mid(Filename,1,len(Filename)-4) & "csv",xlCSV
If Err.Number <> 0 Then
Err.Raise Err.Number
Return "-1"
End If
'MsgBox objWorkbook.path
filepathname = objWorkbook.path & "\\" & mid(Filename,1,len(Filename)-4) & "csv"
objWorkbook.close false
'End If
objExcel.Quit
'MsgBox filepathname
'If filepathname>"" then
'Return filepathname
'end if

  • 合并(Csv).bat
@echo off
copy *.csv all_keywords.csv
echo @@@@@@@@@@@@@ºÏ²¢³É¹¦£¡@@@@@@@@@@@@@'
pause
*****************************

相关文章

网友评论

      本文标题:xls转化csv且合并 2021-06-15

      本文链接:https://www.haomeiwen.com/subject/ethzeltx.html