[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] 如何提高vbs内容替换效率

代码功能:查找指定EXCEL,最大行、最大列中值为空单元格,并替换为 "0"。如数据量大时,效率太点低,恳请各位老师指正。
Dim xlApp,xlSheet,xlWorkBook
Dim iRowCount,iLoop,jLoop,jColumnCount,numAdd
Set xlApp=CreateObject("Excel.Application")
xlApp.Visible=True
Set xlWorkBook=xlApp.Workbooks.Open("d:11.xls")
Set xlSheet=xlWorkBook.Sheets("Sheet1")
iRowCount=xlSheet.UsedRange.Rows.Count
jColumnCount=xlSheet.UsedRange.Columns.Count

For iLoop= 1 To iRowCount
        For jLoop= 1 To jColumnCount
                If Len(xlSheet.cells(iLoop,jLoop).value) <1 Then
                        xlSheet.cells(iLoop,jLoop).value=0
                End if
        Next
Next

xlWorkBook.Save
xlWorkBook.Close
xlApp.Quit

没辙 不如转换为csv格式直接字符串处理?

TOP

回复 2# jyswjjgdwtdtj


    感谢,已处理

TOP

返回列表