Dim xlApp
        Dim xlBook
        Dim xlSheet
        Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象

        Set xlBook = xlApp.Workbooks.Open("c:\test.xls") '打开已经存在的EXCEL工件簿文件

        xlApp.Visible = True '设置EXCEL对象可见（或不可见）

        Set xlSheet = xlBook.Worksheets("sheet1") '设置活动工作表
  xlsRowCount = xlSheet.UsedRange.Rows.Count

        xlsColumnCount = xlSheet.UsedRange.Columns.Count

 
   For i=xlsRowCount+1  to 100
    For j=0   to 100
                      xlSheet.Cells(i, j) =200 '给单元格（row,col）赋值
    Next
 Next
       

        xlBook.Close (True) '关闭工作簿

        xlApp.Quit '结束EXCEL对象

        Set xlApp = Nothing '释放xlApp对象

 

'MODULE DEscrīptION:
'USER:
'GOLBAL FUNCTIONS AND VARIABLES DEFINED IN THIS MODULE:
'
'Date        Who      Rev             Comment
'-----------------------------------------------------------------
'
'
'******************************************************************
 Set excelapp=createobject("excel.application")
 Set excelbook=excelapp.workbooks.open("c:\test.xls")
 Set excelsheet=excelbook.worksheets("sheet1")
For i=1 to 4
 For j=1 to 2
 testno1=cstr(excelsheet.cells(i,j))
 msgbox (testno1)
 Next
Next

不为别的,只是因为最近准备要换工作了,要把工作中遇到备忘录记下来