Question

vba中excel的单元格用cells(1,1),cells(1,2),cells(2,1),cells(2,2),cells(i,j)表示，在vba中access对应的

Answer 1

Dim MyExcel As New Excel.Application
MyExcel.Workbooks.Add \'新建excel文档
\'MyExcel.Workbooks.Open (App.Path & "\test.xls") \'打开现有文档
MyExcel.Visible = True

\'添加边框
MyExcel.Range("A1", "C3").Borders.LineStyle = 1
MyExcel.Range("A1", "C3").Borders.Color = RGB(255, 0, 0)

\'合并单元格
MyExcel.Range("A1", "A3").Select \'选择
MyExcel.Selection.Merge \'合并
MyExcel.Range("b2", "c2").Select
MyExcel.Selection.Merge \'合并

\'写入文字
MyExcel.Cells(1, 1) = "测试"
MyExcel.Cells(1, 2) = "测试1"
MyExcel.Cells(1, 3) = "测试2"
MyExcel.Cells(2, 2) = "测试3"
MyExcel.Cells(3, 2) = "测试4"
MyExcel.Cells(3, 3) = "测试5"

\'设置格式
MyExcel.Range("a1", "c3").Font.Color = RGB(0, 0, 255) \'颜色
MyExcel.Range("a1", "c3").Font.Name = "宋体" \'字体
MyExcel.Range("a1", "c3").HorizontalAlignment = xlCenter \'水平居中
MyExcel.Range("a1", "c3").VerticalAlignment = xlCenter \'竖直居中

\'\'\'\'
MyExcel.Worksheets(2).Cells(1, 1) = "测试二"
MyExcel.Worksheets(3).Cells(1, 1) = "测试三"

MyExcel.ActiveWorkbook.SaveAs App.Path & "\test.xls"\'另存为
\'MyExcel.ActiveWorkbook.Save\'直接保存
MyExcel.Workbooks.Close \'关闭文档
myExcel.Quit\'退出excel程序

Answer 2

假设 rs是RECORDSET 记录集 CN 是连接
RS.OPEN “SELECT * FROM 表",CN
rs.movefirst 移动到第一行记录
rs(0) 就相当于CELLS(1,1) rs(1)相当于 CELLS(1,2)
rs.movenext 往下再移动一行
rs(0) 就相当于CELLS(2,1) rs(1)相当于 CELLS(2,2)

Answer 3

大概这样
strsql = select * from mytable
rs.open(strsql)
rs.字段

Answer 4

请补全问题。

追问

vba中excel的单元格用cells(1,1),cells(1,2),cells(2,1),cells(2,2),cells(i,j)表示，在vba中access对应的单元格如何表示这些？