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

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

各大侠：
下面的例子是打印工作表，当前表的内容。
如何改为先把变量写到工作表２再打印工作表２

$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 完成[CODE]: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 完成:[CODE]: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)

保存

用户名		自动登录	找回密码
密码			加入

[GUI管理] 求助EXCEL表写入内容后再打印出来

相关帖子

评分