关于将中Cell(x,y)中X,Y变量化的办法?请高手指点!

liangjing

   
    Set xlApp = CreateObject("Excel.Application")
    Set xlApp = New Excel.Application
    xlApp.Visible = True
    Set xlBook = xlApp.Workbooks.Open(ReportName)
    Set xlSheet = xlBook.Worksheets(1)
   
    strSql = "select sum(差额（美元）) As 合计    from    "
   
    Set Zf = CurrentDb.OpenRecordset(strSql)
        
    xlSheet.Cells(5, 4) = Zf("合计")


    '以上只更改了一个单元格内的数据，可根据需要无限次加入
    xlBook.Save
    xlSheet.PrintPreview    '如果是要打印，只要把 PrintPreview 改为 PrintOut
    xlBook.Close
    xlApp.Quit


上面是对一个EXCEL表写数据的语句, 我想将其中红颜色的那一句中Cell(5,4)中的5和4这两个参数改为变量来执行

这样我可以用循环语句来处理填写数据, 不知如何实现, 请高手指教!!

sgrshh29

xlSheet.Cells(i,j) = Zf("合计") ，难道不行？

[此贴子已经被作者于2006-5-30 15:50:22编辑过]