51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

查看: 4418|回复: 1

[原创] use TestComplete :chang Excel to CSV

[复制链接]

该用户从未签到

发表于 2013-4-3 23:31:16 | 显示全部楼层 |阅读模式
在这里介绍了一下怎么把.xlsx 转成.csv文件


/* 4.3.2013
   shanshan xu
   XLSX2CSV*/

function Xls2Csv()
{
  var Excel = Sys.OleObject("Excel.Application");
  Excel.Workbooks.Open("C:\\Planar_UI_ComponentIDs.xlsx");//The Excel file path
  var fso = new ActiveXObject("Scripting.FileSystemObject");
  var cntSheets = Excel.ActiveWorkbook.Sheets.count;
  for ( si = 1; si <= cntSheets; si++)//read every sheet
  {
    var sheetname = Excel.ActiveWorkbook.Sheets(si).name;//get the name from sheet
    var fname="C:\\res\\"+sheetname+".csv";//the target folder to Storing files
    var f1 = fso.createtextfile(fname);//create the same name for every sheet
    var RowCount = Excel.ActiveWorkbook.Sheets(si).usedRange.Rows.Count;
    var ColumnCount = Excel.ActiveWorkbook.Sheets(si).usedRange.Columns.Count;
    for (var i = 1; i <= RowCount; i++)
    {
      var s = "";
      for (var j = 1; j <= ColumnCount; j++)
      {
        s=VarToString(Excel.ActiveWorkbook.sheets(si).Cells(i, j));
        if (j != ColumnCount)
        {
          f1.Write("\""+s+"\"");
          f1.Write(",")
        }
        else
        {
          f1.WriteLine("\""+s+"\"");
        }
      }
    }
    f1.close();
  }
  //f1.close();
  Excel.Quit();  
}
回复

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-3-29 15:59 , Processed in 0.071452 second(s), 29 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表