- '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 编辑 ] |