Office中国论坛/Access中国论坛

标题: 关于将中Cell(x,y)中X,Y变量化的办法?请高手指点! [打印本页]

作者: liangjing 时间: 2006-5-30 23:03
标题: 关于将中Cell(x,y)中X,Y变量化的办法?请高手指点!

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 时间: 2006-5-30 23:46
xlSheet.Cells(i,j) = Zf("合计") ，难道不行？[attach]18141[/attach]

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)