txbihai 发表于 2011-10-21 10:19:29

求助EXCEL表写入内容后再打印出来

各大侠：
下面的例子是打印工作表，当前表的内容。
如何改为先把变量写到工作表２再打印工作表２$o_Workbook=objget("d:\dbd\gbb.xls")
    $o_Workbook.activesheet.printout
$o_Workbook.close(false)

xianhou 发表于 2011-10-21 19:02:33

没看明白。

kevinch 发表于 2011-10-21 19:57:36

$o_Workbook=objget("d:\dbd\gbb.xls")
    $i=100
    with $o_Workbook.worksheets("工作表二")
      .range("B2")=$i
      .printout
    endwith
$o_Workbook.close(false)这样试下

lynfr8 发表于 2011-10-22 18:01:39

#include <Excel.au3>.
_ExcelWriteArray 数组元素值写入指定 Excel 对象活动表上的行或列.
_ExcelWriteCell 将信息写入指定 Excel 对象的活动工作表单元格.

也可以先用Excel.UDF写入数据后再调用楼主的打印代码

txbihai 发表于 2011-10-25 10:44:34

谢谢！
我试过打印不出来：
+>10:45:12 AU3Check 完成:0
>运行:(3.3.6.1):D:\autoit3\autoit3.exe "D:\autoit3\Examples\Helpfile\GUICtrlCreateButton.au3"   
D:\autoit3\Examples\Helpfile\GUICtrlCreateButton.au3 (4) : ==> ??????(?????).:
.range("B2")=$i
.range("B2")=$i^ ERROR
->10:45:14 AutoIT3.exe 完成::1

txbihai 发表于 2011-10-25 16:08:25

就这句行动时出问题：
.range("B2")=$i
改为：.cells(2,2)=$i
运行通过，但内容没保存，还要请教如何保存？

zhuxxpt 发表于 2011-11-1 11:41:03

好源码，谢谢楼主提供

devil3380 发表于 2011-11-1 12:06:00

_ExcelBookSave($oExcel [, $fAlerts = 0])保存

_ExcelBookSaveAs($oExcel, @ScriptDir & "\SaveAsExample", "xls")另存

打印看这个
http://www.autoitx.com/forum.php?mod=viewthread&tid=8447

kevinch 发表于 2011-11-1 21:55:21

$o_Workbook=objget("d:\dbd\gbb.xls")
    $i=100
    with $o_Workbook.worksheets("工作表二")
      .cells(2,2)=$i
      .printout
    endwith
$o_Workbook.close(true)保存
页: [1]
查看完整版本: 求助EXCEL表写入内容后再打印出来