作者：乔山办公网日期：
返回目录：excel表格制作
建议你给出窗口信知息工具最后一个标签页“综合”的截图，可以道同时看到窗内口信息而非仅仅控件信息。
Local Const $ctrl = "[CLASSNN:WindowsForms10.STATIC.app.0.33c0d9d32]"
Local $var = ControlGetText("窗口标题容", "", $ctrl)
MsgBox(0, "", $var)
自己修改窗口标题字串。
$var = $oExcel.sheet(1).cells(1.1)//读取第一个单元格数据
$oExcel.sheet(1).cells(2.1) = $var //把读取的值填进excel
$rowcount = ActiveSheet.UsedRange.Rows.Count //excel的行数
$Columnscount =ActiveSheet.UsedRange.Columns.Count //excel列数
----------------------------------------
核心就是这些,先读取excel的行数,然后循环读取每个单元格的值,就可以取得一列的值,然后按你的需要再赋值就行了
----------------------------------------
例如:
$ix = ActiveSheet.UsedRange.Rows.Count //把总行数读取进$ix
//这里定义一个可变的数e799bee5baa6e4b893e5b19e331组$row[],太久没用,忘了怎么写了...
For $i = 1 To $ix Step +1
$row[$i] = $oExcel.sheet(1).cells($i.1)//逐行读取第一列数据进数组中
//循环结束后就把第一列的数据读入数组$row了
楼主该去学学autoit脚本、易语言或者vba
写个autoit脚本范例给你zd看看
;;; 请下载 autoit 3.3.6.1 或更高汉回化版本 自行编译一下源代码
;;; 编译生成的exe文件和n多个excel文件放到一起
#include <Excel.au3>
#include <File.au3>
$file = _FileListToArray(@ScriptDir, "*.xls", 1)
If @error Then Exit
For $i = 1 To $file[0]
$oExcel = _ExcelBookOpen(@ScriptDir & "\" & $file[$i], 1)
$sheet = _ExcelSheetList($oExcel)
If @error Then ContinueLoop
For $j = 1 To $sheet[0]
_ExcelSheetActivate($oExcel, $sheet[$j])
_ExcelWriteCell($oExcel, "veket的小答号", 2, 2)
Next
_ExcelBookClose($oExcel, 1)
Next
两方面: Excel的读取,可以用VBA实现； 开户系统的窗口的捕捉以及控件的识别，可以用AU3窗口信息工具尝试探测开户窗口； 第二个是重点。