在VB中如何实现对access表的遍历和整列赋值

用记录集对象打开数据库表，对记录集遍历即可：

Do while not rs.EOF

rs.fields(i)="aa"'对当前记录某列赋值

rs.MoveNext

loop

你是不是需要提取整个工作表目录。

新建一个目录工作表，按ALT+F11,打开代码窗口，双击目录工作表，粘贴以下代码，按运行即可。

Sub 序号目录链接()

Application.ScreenUpdating = False

Dim sht As Worksheet, irow As Integer, i%

i = Cells(Rows.Count, 1).End(xlUp).Rows.Count

Range("a2:b" &i).Clear

irow = 2'在第2行写入第一条记录

For Each sht In Worksheets '遍历工作表

Cells(irow + 1, "A").Value = irow - 1 '写入序号

'写入工作表名，并建立超链接

ActiveSheet.Hyperlinks.Add Anchor:=Cells(irow, "B"), Address:="", _

SubAddress:="'" &sht.Name &"'!A1", TextToDisplay:=sht.Name

'向工作表中添加一个超链接对象(hyperlinks),其中Anchor指定建立超链接的位置,address参数者指定超链接的地址,

'subaddress参数为超链接的子地址,texttodisplay参数指定要显示的超链接的文本

irow = irow + 1 '行号加1

Next

Range("a" &i).Delete

Application.ScreenUpdating = False

End Sub

遍历的例子：

Dim i, j As Integer

For i = 0 To DataGridView1.RowCount - 1

　For j = 0 To DataGridView1.ColumnCount - 1

MsgBox(DataGridView1.Item(j, i).Value)

　 Next

Next

注意：与Excel的单元格命名规则不一样，这里的 Item(j, i) 中，列号 j 在前，行号 i 在后。

---