EXCEL使用ADO方式连接access问题

qwasd3

.Range("A1").Resize(1, rs01.Fields.Count).Value = rs01.Fields.Name

我想获取记录集的字段名称，但是这个 Fields 属性没有 Name，编译时就提示错误。
把这段代码去掉，可以正确获取到记录，但是字段名无法获取，不知是哪里问题？还请高手指导下。。

ww87725244

试试fields(1).name

qwasd3

ww87725244 发表于 2024-5-30 16:26
试试fields(1).name

这样可以运行不报错了，但是A行获取的字段名都是同一个字段名了。

tanglf188

楼上的，或则 rs01(i).Name，i为列号

tanglf188

qwasd3 发表于 2024-5-30 16:49
这样可以运行不报错了，但是A行获取的字段名都是同一个字段名了。

多列需要用循环的
redim brr(1 to  rs01.Fields.Count)
for i =1 to ubound(brr)
    brr(i)=rs01(i).Name
next
.Range("A1").Resize(1, rs01.Fields.Count).Value = brr

qwasd3

tanglf188 发表于 2024-5-30 16:49
楼上的，或则 rs01(i).Name，i为列号

        For i01 = 1 To rs01.Fields.Count
          这里怎么写？我想写到A行  =rs01.Fields(i01).Name
        Next i01

qwasd3

tanglf188 发表于 2024-5-30 16:52
多列需要用循环的
redim brr(1 to  rs01.Fields.Count)
for i =0 to ubound(brr)

代入您的代码后运行报错，下标越界

tanglf188

qwasd3 发表于 2024-5-30 16:58
代入您的代码后运行报错，下标越界

0改为1，rs01(i-1),没注意

qwasd3

tanglf188 发表于 2024-5-30 16:59
0改为1，rs01(i-1),没注意

可以，谢谢！