这里有段代码，可参考一下

PrivateSubcommand3_Click()

DimiAsInteger

DimjAsInteger

DimxlAppAsExcel.Application

DimxlBookAsExcel.Workbook

DimxlSheetAsExcel.Worksheet


SetxlApp=CreateObject("Excel.Application")

xlApp.Visible=True

SetxlBook=xlApp.Workbooks.Add

OnErrorResumeNext

Set xlBook=xlApp.Workbooks.AddOpen("d:\text2.xls")

Set xlSheet=xlBook.Worksheets(1)

xlSheet.Cells(6,1)="i"

Fori=0Togridrow

grid1.Row=i

Forj=0To6

Grid1.Col=j


If IsNull(Grid1.Text)=FalseThen

xlSheet.Cells(i+5,j+1)=Grid1.Text

EndIf

Nextj

Nexti

ExitSub

up

up up 完全正确。

看看 MSDN 还可画出网格线。

请问ybcaa，Gridrow是行数吗？？

答案在这里：

http://www.5ivb.net/club/dispbbs.asp?boardID=1&ID=11813