前言:
现时我们对“java csv转换为excel”大约比较看重,你们都需要学习一些“java csv转换为excel”的相关文章。那么小编在网上网罗了一些对于“java csv转换为excel””的相关知识,希望大家能喜欢,各位老铁们快快来了解一下吧!使用vba将Excel中的内容写入文本文件,保存为txt或csv格式。
方法一:
Sub toCSV() Dim sht As Worksheet Dim i As Integer, j As Integer Dim arr() Dim line As String For Each sht In Sheets If Int(sht.Name) Mod 2 = 1 Then arr = sht.Range("a1").CurrentRegion Open "C:\Users\heju\Desktop\csv & xlsx\" & sht.Name & ".csv" For Output As #1 For i = LBound(arr) To UBound(arr) line = "" For j = LBound(arr, 2) To UBound(arr, 2) line = line & arr(i, j) & "," Next line = Left(line, Len(line) - 1) Print #1, line Next Close End If NextEnd Sub
方法二:
Sub shttobook() Dim sht As Worksheet, path As String Application.ScreenUpdating = False Application.DisplayAlerts = False path = ThisWorkbook.path & "\csv & xlsx" For Each sht In Worksheets sht.Copy ActiveWorkbook.SaveAs Filename:=path & "\" & sht.Name & ".csv", FileFormat:=xlCSV ActiveWorkbook.Close Next Application.DisplayAlerts = True Application.ScreenUpdating = TrueEnd Sub
版权声明:
本站文章均来自互联网搜集,如有侵犯您的权益,请联系我们删除,谢谢。
标签: #java csv转换为excel