再请教部分导入excel表

嗯这种方法可行，对于字段名称有规律的很精悍，已经过验证，修改了一个错别字并插入几个必要的空格后代码如下;

（但我还是不理解为什么在ACCESS数据表仅有字段4～字段13这几个字段的情况下也需要把字段名称一一列举，excel表的字段是比ACCESS多的。）

dim ssql as string

dim strfld as string

dim i as long

strfld=""

for i=4 to 13

   strfld=strfld & "字段" & i & ","

next

strfld=left(strfld,len(strfld)-1)

ssql="insert into tbname ( " & strfld & " ) "

ssql=ssql & "select " & srefld

ssql=ssql & " from [Excel 8.0;DATABASE=c;\表1.xls].[Sheet1$]"

docmd.runsql ssql

我实际工作中的ACCESS表及EXCEL表字段名都是没规律的，ACCESS表的字段数有十几个，是EXCEL表字段的一部分，而且要定期更新很多张表，一一列举字段名比较麻烦，能否引入时查询语句或函数获取字段名以便简化？

-------------------------------------

本站中搜索到有个案例可以取得数据表的全部字段名，如果能结合的话可能就更简洁些，但我不知道怎么正确使用，我把这个模块引入后在上面案例的过程中直接 插入strfld=uf_GetfldName(表1)想获取字段名试验是不行的。

Public Function uf_GetfldName(strSourceTable As String) As String
Dim rst As DAO.Recordset
Dim fldName As String

Set rst = CurrentDb.OpenRecordset(strSourceTable)

Dim i As Integer
For i = 0 To rst.Fields.Count - 1
fldName = fldName & rst.Fields(i).Name & ";"
Next
uf_GetfldName = Left(fldName, Len(fldName) - 1)
End Function