beilei 发表于 2017-4-11 19:04:32

将文本“2017年4月11日”批量写入与脚本同目录下的所有EXCEL文档中的A1单元格内。

如何用AU3代码实现：将文本“2017年4月11日”批量写入与脚本同目录下的所有EXCEL文档中的A1单元格内。非常感谢！还有有关EXCEL的操作函数那里有下载。安装有AU3就带有了吗？

beilei 发表于 2017-4-12 07:23:03

想不到现在的人越来越冷心肠了，悲哀啊。在线等啊，请大家伸出援手。

h20040606 发表于 2017-4-12 19:42:57

本帖最后由 h20040606 于 2017-4-18 19:29 编辑

#include <date.au3>
#include <MsgBoxConstants.au3>;lu
#include <excel.au3>
#include <file.au3>

Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_Open 示例 1", "创建 Excel 应用对象发生错误." & @CRLF & "@error = " & @error & ", @extended = " & @extended)


Local $XlsExt = ["xls", "xlsx"]
For $xls In $XlsExt
        ; 分配局部变量保存当前目录中所有文件的搜索句柄.
        Local $hSearch = FileFindFirstFile(@ScriptDir & "\*." & $xls)

        ; 检查搜索是否成功, 如果不成功则显示一条消息并返回 False.
        If $hSearch = -1 Then
                MsgBox($MB_SYSTEMMODAL, "", "错误: 没有匹配搜索模式的文件/目录.")
                Exit False
        EndIf

        Local $sFileName = ""

        While 1
                $sFileName = FileFindNextFile($hSearch)
                ; 如果搜索没有更多的匹配文件, 则退出循环.
                If @error Then ExitLoop
                $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "\" & $sFileName)
                $oWorkbook.activesheet.range("A1").value = "2017年4月11日"
                _Excel_BookClose($oWorkbook, True)
        WEnd
        ; 关闭搜索句柄.
        FileClose($hSearch)
Next
_Excel_Close($oExcel)


fenhanxue 发表于 2017-4-13 00:34:57

关键词 #include <excel.au3>

详见：UDFs3CHS.chm

fenhanxue 发表于 2017-4-13 00:36:49

_FileListToArray
获取当前目录下的所有文件列表
再判断是否excel
最后，对应的excel添加你要的数据

x122672348 发表于 2017-4-13 12:45:36

正好学习了。。。

heroxianf 发表于 2017-4-13 17:43:31

帮助里都非常详细啊~看看EXCEL部分就示例就可以满足你的需求了。

chamlien 发表于 2017-4-14 12:01:21

回复 2# beilei


    不是现在的人越来越冷心肠，而是你越来越懒。自己一点代码都不敲，别人很难给你完整的源码

dingcool 发表于 2017-4-14 21:46:10

不是现在的人越来越冷心肠，而是你越来越懒。自己一点代码都不敲，别人很难给你完整的源码

zxhou1 发表于 2017-4-25 08:20:25

f1 很强的工具

zmdzhxj 发表于 2019-10-14 16:12:19

这个不错，学习了
页: [1]
查看完整版本: 将文本“2017年4月11日”批量写入与脚本同目录下的所有EXCEL文档中的A1单元格内。