excel中固定的几组单元格数据使用VBA插入指定数据表中对应的字段

请在strsql = strsql &.... 前面（既for 语句后面）加入一条语句 strsql = ""

你如果不清空的话，strsql语句会把每次允许的结果都组成一个字符串

一般根据提示错误，说明sql语句有错误，你可以用设置一个断点或者在视图-本地窗口看一下strsql语句是什么内容

增加字段名:

select 2 as 新字段名 from 表1

select 已有字段名+1 as 新字段名 from 表1

字段是否存在:

dim Fix as boolean

fix=false

for i = 1 to 字段最大数

if currentdb.表名.fields(i)=目标字段名 then

fix=true

end if

next

if fix=true then

msgbox "目标字段名已存在"

else

msgbox "目标字段名不存在"

end if

---