ExcelBookSaveAs保存问题-『提问交流』-AUTOIT CN

gyxzhh 发表于 2014-11-17 15:19:51

_ExcelBookSaveAs保存问题

#include <Excel.au3>
#include <array.au3>
Opt("wintitlematchmode",3)
$sFilePath1 = "C:\test.xlsx" ;该文件应该已存在

$oExcel1 = _ExcelBookOpen($sFilePath1,0)
For $i = 1 To 5;循环

$sCellValue1 = _ExcelReadCell($oExcel1, $i, 3)
$sCellValue2 = _ExcelReadCell($oExcel1, $i, 4)

if $sCellValue1>0 and $sCellValue1<30 then
   $sCellValue = _ExcelReadCell($oExcel1, $i, 2)
   $sfilepath = "C:\Users\Administrator\Desktop\temp\" & $sCellValue

   ;MsgBox(0, "", $sfilepath, 2)
   $oExce2 = _ExcelBookNew(0)
   _ExcelWriteCell($oExce2,"设备名称",1,1)
   _ExcelWriteCell($oExce2,"计量单位",1,2)
   _ExcelWriteCell($oExce2,"品牌型号",1,3)
   _ExcelWriteCell($oExce2,"单价",1,4)
   _ExcelWriteCell($oExce2,"保修期",1,5)
   _ExcelWriteCell($oExce2,"使用年限",1,6)
   _ExcelWriteCell($oExce2,"供应商",1,7)
   _ExcelWriteCell($oExce2,"SN码",1,8)
   _ExcelWriteCell($oExce2,"用途",1,9)
   _ExcelWriteCell($oExce2,"备注",1,10)
   _ExcelWriteCell($oExce2,"备注1",1,11)
   for $a=1 to $sCellValue1;
   _ExcelWriteCell($oExce2,$sCellValue,$a+1,1)
   _ExcelWriteCell($oExce2,$sCellValue2,$a+1,2)
   Next
   _ExcelBookSaveAs($oExce2,$sfilepath,"xls")
   _ExcelBookClose($oExce2,1)
EndIf
Next
_ExcelBookClose($oExcel1,0) ; 关闭退出

_ExcelBookSaveAs($oExce2,$sfilepath,"xls")
当含有变量的路径时,就会出错,如$sfilepath = "C:\Users\Administrator\Desktop\temp\" & $sCellValue
当含有变量的路径时,很正常,如$sfilepath = "C:\Users\Administrator\Desktop\temp\test"

kevinch 发表于 2014-11-17 15:33:21

要看你的变量里是不是含有文件名中不允许出现的特殊字符，最好用consolewrite显示一下看看

gyxzhh 发表于 2014-11-18 10:32:38

变量里的值我是从exec上读出来的,我看了一下,没有特殊字符啊

kevinch 发表于 2014-11-19 08:14:00

文件传上来看一下

austere 发表于 2014-11-20 08:11:53

我曾经碰到过~我实现的方法为 _ExcelBookClose($oExce2,1)
这个就直接保存了，那个save就没有必要，如果你要保存到其他地方，那么就移动文件或者复制文件~

aiwen0092 发表于 2015-1-5 23:37:55

恩，来学习学习哈

h20040606 发表于 2015-1-20 05:42:34

建议采用新版，稳定版3.3.12 。0

页: [1]

AUTOIT CN's Archiver

_ExcelBookSaveAs保存问题