关注
分享
KiwiInChina
1. 主要从事ETL、数据仓库及数据模型工作；
2. 精通Informataica、ODI 服务器的搭建及配置，能熟练使用Informatica、ODI 开发；
3. 掌握sql、linux、shell，熟悉Java编程；
4. 具有一定的项目管理经验和需求分析梳理经验；
5. 学习能力强，善于专研；
6. 具备良好的沟通协调能力。
展开
-
将Excel里所有的Sheet页同时另存为单独的CSV文件
Sub ExcelToCsvMain()'检查工作薄中有多少个工作表 Dim i, sheet_count, sheet_name As String sheet_count = Sheets.Count 'msgbox sheet_count For i = 1 To sheet_count sheet_name = Sheets(i)...原创 2016-10-18 11:35:41 · 3270 阅读 · 1 评论 -
将Excel里所有的Sheet页同时另存为单独的UTF8编码的CSV文件
结合前两篇高手代码，拼出以下代码：Public Sub WriteCSV()Dim sheet_name, bookPath, fileName As StringDim sheet_count,i As Integersheet_count = Sheets.CountbookPath = ThisWorkbook.Path bookPath = bookPath...原创 2016-10-18 11:37:36 · 1032 阅读 · 0 评论 -
使用ADODB将Excel中Sheet页另存为UTF8编码CSV
Public Sub WriteCSV()Set wkb = ActiveSheetDim fileName As StringDim MaxCols As IntegerfileName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")If fileName = "False" ThenE...原创 2016-10-18 11:38:13 · 414 阅读 · 0 评论