关于将数据写入excel制定单元格的问题

那片叶子

我要将  123  写入到制定表格，如et.els 里面某个单元格，怎么写不进去啊！
#include <Excel.au3>

Local $oExcel = _ExcelBookNew()

_ExcelWriteCell($oExcel, "123", 1, 1)

MsgBox(4096, "Exiting", "Press OK to Save File and Exit")
_ExcelBookSaveAs($oExcel, @TempDir & "\Temp.xls", "xls", 0, 1)
_ExcelBookClose($oExcel)

我是不是错了！ 望请指教！

kevinch

$excel=ObjCreate("excel.application")
$excel.visible=True
$wb=$excel.workbooks.open(@ScriptDir&"et.xls")
$wb.activesheet.range("a1").value=123
$wb.close(True)
$excel.quit

从打开到写入到关闭文件都在这了

那片叶子

你这个提示$excel.visible=True
对象类型不为ObjC

kevinch

你没安装excel？还是你没有vba环境？不会是你用wps吧？

lpxx

从打开到写入到关闭文件都在这了
kevinch 发表于 2012-7-28 13:45

$wb = $excel.workbooks.open(@ScriptDir & "\et.xls")

xlj310

引用你的代码（加了一句代码调试语句可查看路径）

#include <Excel.au3>
MsgBox(0,"路径",@TempDir & "\Temp.xls")
Local $oExcel = _ExcelBookNew() 
_ExcelWriteCell($oExcel, "123", 1, 1) 
MsgBox(4096, "Exiting", "Press OK to Save File and Exit")
_ExcelBookSaveAs($oExcel, @TempDir & "\Temp.xls", "xls", 0, 1) 
_ExcelBookClose($oExcel) 

我在Win7+Office2013的环境下测试完全没问题！　我猜是不是你对这个临时文件夹路径不熟，找不到这个表格，所以~~~　建议按我的方法到临时文件夹查看，或者修改路径为：@ScriptDir & "\Temp.xls", "xls"，代码是这样的:(最后一句关闭表格被注释)

#include <Excel.au3>
MsgBox(0,"路径",@ScriptDir & "\Temp.xls")
Local $oExcel = _ExcelBookNew() 

_ExcelWriteCell($oExcel, "123", 1, 1) 

MsgBox(4096, "Exiting", "Press OK to Save File and Exit")
_ExcelBookSaveAs($oExcel,@ScriptDir & "\Temp.xls", "xls", 0, 1) 
;~ _ExcelBookClose($oExcel) 

aft52577

高手真多啊

kevinch

@scriptdir到底有什么悬机呢？我之前用的au3版本需要加后面的"\"，现在的版本不用加，标准不统一？

那片叶子

谢谢大家了！！！

那片叶子

有没有就是不打开，就直接写到指定单元格啊！

那片叶子

有没有就是不打开，就直接写到指定单元格啊！

那片叶子

有没有就是不打开，就直接写到指定单元格啊！

那片叶子

有没有就是不打开，就直接写到指定单元格啊！

那片叶子

有没有就是不用打开，就直接写入到单元格啊！

那片叶子

有没有就是不用打开，就直接写入到单元格啊！