1. package require tcom 
  2. set pfile "d:/上海市、上海/123.csv" 
  3. set excel [::tcom::ref createobject "excel.application"] 
  4. set workbooks [$excel Workbooks] 
  5. set workbook [$workbooks add] 
  6. set worksheets [$workbook Worksheets] 
  7. set worksheet [$worksheets Item "Sheet1"] 
  8.  
  9. $workbook SaveAs $pfile 
  10. $excel Quit 

 

出错信息:

 
  
  1. 0x800a03ec {Microsoft Office Excel 不能访问文件“D:\//ad/上海市、上海/0C45CE30” 
  2. 。 可能的原因有: 
  3.  
  4. ? 文件名称或路径不存在。 
  5. ? 文件正被其他程序使用。 
  6. ? 您正要保存的工作簿与当前打开的工作簿同名。} 

解决方法:

 

 
  
  1. regsub -all {\/} $pfile {\\} pfile