关于将数据写入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)
我是不是错了! 望请指教! $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 你没安装excel?还是你没有vba环境?不会是你用wps吧? 从打开到写入到关闭文件都在这了
kevinch 发表于 2012-7-28 13:45 http://www.autoitx.com/images/common/back.gif
$wb = $excel.workbooks.open(@ScriptDir & "\et.xls") 引用你的代码(加了一句代码调试语句可查看路径)
#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)
高手真多啊 @scriptdir到底有什么悬机呢?我之前用的au3版本需要加后面的"\",现在的版本不用加,标准不统一? 谢谢大家了!!! 有没有就是不打开,就直接写到指定单元格啊! 有没有就是不打开,就直接写到指定单元格啊! 有没有就是不打开,就直接写到指定单元格啊! 有没有就是不打开,就直接写到指定单元格啊! 有没有就是不用打开,就直接写入到单元格啊! 有没有就是不用打开,就直接写入到单元格啊!
页:
[1]
2