|
Excel 中有三行数据,如图一所示:
我写了一段代码想把每一行都设值为90,代码如下:
Dim ExcelApp,ExcelWorkBook,ExcelSheet
Dim Row
Row=1
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Workbooks.Add
ExcelApp.Visible = True
Set ExcelWorkBook = ExcelApp.Workbooks.Open("C:\test.xls")
Set ExcelSheet=ExcelWorkBook.Worksheets(1)
While ExcelSheet.Cells(Row,1).Value <> Null
ExcelSheet.Cells(Row,1).Value=90 //此语句现在没起作用
Row=Row+1
Wend
MsgBox (Row)
ExcelSheet.Cells(Row,1).Value=90 //现在是因为这个语句,才把第一行设为90的
ExcelWorkBook.Save
ExcelWorkBook.Close(True)
ExcelApp.Application.Quit
Set ExcelSheet=Nothing
Set ExcelWorkBook=Nothing
Set ExcelApp=Nothing
编译运行后发现只是第一行的值变成了90了,Row 每次也只是1.
烦请大家帮忙看看while那段语句是否有什么问题?因为好像while那几个句子没有运行。
多谢大家了!
[ 本帖最后由 topor 于 2009-7-31 10:30 编辑 ] |
|