结合前两篇高手代码,拼出以下代码:
Public Sub WriteCSV() Dim sheet_name, bookPath, fileName As String Dim sheet_count,i As Integer sheet_count = Sheets.Count bookPath = ThisWorkbook.Path bookPath = bookPath + "\TEMP\" '判断文件目录是否存在 If Dir(bookPath, 16) = Empty Then MkDir bookPath Else Kill bookPath & "\*.*" End If For i = 1 To sheet_count sheet_name = Sheets(i).Name Sheets(sheet_name).Select '设置活动窗口为当前 Set wkb = ActiveSheet fileName = bookPath + sheet_name + ".csv" On Error GoTo eh Const adTypeText = 2 Const adSaveCreateOverWrite = 2 Dim BinaryStream Set BinaryStream = CreateObject("ADODB.Stream") BinaryStream.Charset = "UTF-8" BinaryStream.Type = adTypeText BinaryStream.Open For r = 1 To wkb.UsedRange.Rows.Count s = "" c = 1 While c <= wkb.UsedRange.Columns.Count If c < wkb.UsedRange.Columns.Count Then s = s & wkb.Cells(r, c).Value & "," Else s = s & wkb.Cells(r, c).Value End if c = c + 1 Wend BinaryStream.WriteText s, 1 Next r BinaryStream.SaveToFile fileName, adSaveCreateOverWrite BinaryStream.Close eh: Next Sheets(1).Select MsgBox "CSV generated successfully" End Sub
完美运行
相关推荐
VBA一键sheet页另存为Excel,批量拆分Excel sheet页为单个文档。
指定excel的sheet另存为excel输出到指定的文件夹。 可以快速按固定的模版格式产生独立数据的报表。
excel中的多个sheet自动另存为以sheet名称命名的excel文件,用delphi开发,含源码。
excel中的多个sheet自动另存为以sheet名称命名的excel文件,用delphi开发,含源码。
java读取Excel文件中多个sheet,生成xml格式的文件
NULL 博文链接:https://leng.iteye.com/blog/355585
将一个工作簿里面的所有sheet,另存为单独的工作簿。
java导出数据时,如果对数据格式没有特殊要求,为了提高效率可以导出CSV格式的文件,导出CSV文件不支持多个sheet页。
该文档主要介绍java如何操作csv文件,在这里介绍了一个工具包的使用,也黏贴了java对于读取csv文件和写入csv文件时,对于大数据量的处理和安排,有效的解决了处理大数据是内存溢出问题
可以将Excel文件按Sheet拆分成多个,支持批量拆分Excel文件,需要安装jre支持;适合批量拆分Excel需求;
vue实现多sheet页导出所需文件Export2Excel.js
Python 解决pandas.to_excel()函数覆盖原有Sheet页的问题 Python源码Python 解决pandas.to_excel()函数覆盖原有Sheet页的问题 Python源码Python 解决pandas.to_excel()函数覆盖原有Sheet页的问题 Python源码Python ...
C#将Excel表格中的多个Sheet页进行合并
matlab将多个excel读取并存到一个excel的不同sheet中
C# Excel导入导出多sheet页
EXCEL VBA合并sheet文件代码
// "#"表示本文档 "明细页面"表示sheet页名称 "A10"表示第几列第几行 hyperlink.setAddress("#明细页面!A10"); likeCell.setHyperlink(hyperlink); // 点击进行跳转 likeCell.setCellValue("1"); /* ...
用poi读取excel多个sheet内容,用流的方式判断excel的版本,2003,还是2007版本,并附带所需jar包,文件下载后解压,直接导入eclipse中即可使用
python:如何将excel文件转化成CSV格式 import pandas as pd data = pd.read_excel('123.xls','Sheet1',index_col=0) data.to_csv('data.csv',encoding='utf-8') 将Excel文件转为csv文件的python脚本 #!/usr/bin/...
纯JavaScript实现json格式数据导出到Excel文件,支持多个Sheet页导出