[已解决]请教一个Excel修改后另存的问题

waxy

我想请教一个关于Excel修改后另存的问题，如我们把Excel表格中的坐标为3,8位置的内容改成$i（$i是个变量）打印出来，
打印出来后并以变量$i作为文件名另存在一个指定的地方。以下代码能实现打印但另存的文档是空的没有内容，不知道怎么
回事，请高手帮我看一下，谢谢！

#RequireAdmin
#include <String.au3>
#Include <EXCEL.au3>
Local $oExcel = _ExcelBookNew(0)
$o_Workbook=objget(@ScriptDir &"\test.xls")
    $i=100
    with $o_Workbook.worksheets("Sheet1")
        .cells(3,8)=$i
        .printout
    endwith
        _ExcelBookSaveAs($oExcel, @ScriptDir & ""&$i&  ".xls" , "xls", 0, 1) 
    _ExcelBookClose($oExcel, 1, 0)
        $o_Workbook.close(false)

kevinch

修改了$o_workbook却保存的是$oExcel，楼主搞混了吧
而且objget得到的项目之前用vba测试似乎是不能修改的，只有把进程的visible设置为true才可以进行保存，如果要进行修改及保存不提倡用objget的方式，最好是objcreate创建个excel进程，你可以把visible设置为false，然后进行操作，就正常了

waxy

修改了$o_workbook却保存的是$oExcel，楼主搞混了吧
而且objget得到的项目之前用vba测试似乎是不能修改的， ...
kevinch 发表于 2012-2-28 16:09

谢谢！我是想改好之后，原表保不保存没有关系，只是想修改好的表格另存一下。所以就想到保存所有工作表即$oExcel。
      你后面说的那些我不太明白，能不能帮我改一下，谢谢！

waxy

回复 2# kevinch
其实现在这个代码打印出来的内容已正常的了（修改OK的），只是另存的表格确是个空表。

smartzbs

#Include <EXCEL.au3>
Local $oExcel = _ExcelBookOpen(@ScriptDir &"\test.xls", 0)
$i=100
with $oExcel.worksheets("Sheet1")
        .cells(3,8)=$i
        .printout
endwith
_ExcelBookSaveAs($oExcel, @ScriptDir & "\"&$i&  ".xls" , "xls", 0, 1)
_ExcelBookClose($oExcel, 1, 0)

waxy

#Include
Local $oExcel = _ExcelBookOpen(@ScriptDir &"\test.xls", 0)
$i=100
with $oExcel.workshee ...
smartzbs 发表于 2012-2-28 16:48

谢谢！太感谢了，我现在算有点是明白kevinch说的objget了，谢谢两位。

waxy

#Include
Local $oExcel = _ExcelBookOpen(@ScriptDir &"\test.xls", 0)
$i=100
with $oExcel.workshee ...
smartzbs 发表于 2012-2-28 16:48

谢谢！我想进一步问题问两个问题：
      1. 如我想把另存的文件存到另外一台电脑的E：\file中，要怎么写（比如另一台机的IP为196.168.1.100）
      2.变量$i通过ini文件来获得，ini文件也在196.168.1.100的E：\file，想知道怎么连到目标机器上并读到ini配置文件？
       非常感谢！

kevinch

试一下这样引用
\\196.168.1.100\e$\file