标题: [文本处理] 对指定的EXCEL表的非空单元格的内容改为"内容" [打印本页]
作者: wmg3721 时间: 2010-12-24 14:59 标题: 对指定的EXCEL表的非空单元格的内容改为"内容"
如何实现
对指定的某个EXCEL表将其非空单元格的内容改为"内容"
作者: broly 时间: 2010-12-24 21:27
- 'VBS操作Excel
- 'CODE BY Broly
- Dim objXl,objWork
- Str="内容" '此处为你的内容
- Set objXl=CreateObject("Excel.Application")
- '下面的 d:\test.xls 替换为你的Excel地址
- Set objWork=objXl.Workbooks.Open("d:\test.xls",3,False)
- objWork.Worksheets("Sheet1").Activate
- For ag=1 To 2
- For i=1 To objWork.ActiveSheet.UsedRange.Rows.count
- For j=1 To objWork.ActiveSheet.UsedRange.Columns.count
- If not IsEmpty(objWork.ActiveSheet.Cells(i,j).Value) Then
- objWork.ActiveSheet.Cells(i,j).Value=Str
- End if
- Next
- Next
- Next
- objXl.Workbooks(1).Save
- objWork.Close
- msgbox "完成！ "
- Set objXl=Nothing:Set objWork=Nothing
[ 本帖最后由 broly 于 2010-12-24 21:40 编辑 ]
| 欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |