• 欢迎访问奇跡の海网站,本站不上传任何资源,所有资源均来自于网络,欢迎加入奇跡の海~!奇跡の海-WordPress QQ群
  • 本站下载资源为网络上收集整理而来,并且以计算机技术研究交流为目的,版权归原作者所有,仅供大家参考,学习,不存在任何商业目的与商业用途.
  • 本站系统镜像均来自于官方原版,ed2k可视为P2P下载链接。所有操作系统默认均为试用版,如有正版密钥可以有效激活,本站不提供任何激活和相关服务。

AutoIt3(au3)源码-遍历所在工作目录中的工作薄并替换指定的字符

AutoIT3 奇跡の海 2年前 (2017-09-29) 692次浏览 已收录 0个评论 扫描二维码

AutoIt3(au3)源码-遍历所在工作目录中的工作薄并替换指定的字符

简介

遍历所在工作目录中的工作薄并替换指定的字符(不是整个单元格内容)

代码

#include <Array.au3>
#include <File.au3>
#include <MsgBoxConstants.au3>
#include <Excel.au3>

    Local $aFileList = _FileListToArray(@ScriptDir, "*.xlsx")
Local $oWorkbook
    _ArrayDisplay($aFileList, "$aFileList")

Local $oExcel = _Excel_Open();静默替换,这里参数设为0或者FALSE
If @error Then Exit MsgBox(16, "", "EXCEL对象创建失败.")

For $i = 1 To $aFileList[0]
$oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "\" & $aFileList[$i])
If @error Then MsgBox($MB_SYSTEMMODAL, "", $aFileList[$i] & "文件打开失败 ")

_Excel_RangeReplace($oWorkbook, Default, Default, "工具", "yamakawa的杰作") 
;第三个参数你要替换的字符串
;第四个参数,替换后的文件


Sleep(1000)
_Excel_BookClose($oWorkbook)
Next
_Excel_Close($oExcel)
MsgBox(0,"","替换完成,请自行检查!")

版权声明:本站所有文章和资源使用CC BY-NC-SA 4.0协议授权发布 , 转载应当以相同方式注明文章来自“SeaOMC.COM->AutoIt3(au3)源码-遍历所在工作目录中的工作薄并替换指定的字符!在下边可以分享本文哦!
喜欢 (0)
[]
分享 (0)
奇跡の海
关于作者:
一个WordPress菜鸟!
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址