以EXCEL第二行为字段名导入

chinasa　发表于：2015-04-30 10:18:03 　

复制

我有一个EXCEL，其第一行为表名称，第二行为字段名，是否有办法导入？

必须写代码逐行读入吗？有没有简单点办法？

Top

煮江品茶发表于：2015-04-30 11:51:22

有呀。

将包含字段标题和记录的区域命名，用导入这个命名区域不就完事了。假设这个区域在Excel中命名为Data，则：

currentdb.execute "Insert INTO 阁下的表名 Select * FROM [Excel 8.0;DATABASE=文件夹地址\excel表名称.xls].[Data]"

Top

zhaoyoulong 发表于：2015-04-30 12:21:58

做了一个小工具，还没做好，不过能用了看看是否有用！希望加以完善后给大家共享！

更换电脑后要注意引用丢失

点击下载此附件

Top

chinasa 发表于：2015-04-30 13:54:05

两位老师，我先学习下再报告结果。

煮版，您的方法我要先去学习下如何命名区域，如果您能直接给指点下就更好了。

我的EXCEL由于是不断覆盖更新的，所以不能采取手工命名区域。

Top

煮江品茶发表于：2015-04-30 14:10:08

怎么不能呢？命名区域足够长，长到可能容纳下动态导入的行数即可。你总不可能超过6万行吧？

Top

chinasa 发表于：2015-04-30 14:43:49

煮版，请帮助我看看是不是方向性错误，怎么弄都不成功呢。

    Dim xlApp As Excel.Application                                  'Excel应用程序对象
    Dim xlBook As Excel.Workbook                                    'Excel工作簿对象
    Dim xlSheet As Excel.Worksheet                                  'Excel工作表对象

    Set wks = Workspaces(0)
    Set xlApp = CreateObject("Excel.Application")         '创建Excel应用程序对象

Set xlBook = xlApp.WORKBOOKS.Open("F:\CDMX.XLS")
Set xlSheet = xlBook.Worksheets(1)

MAXROW = xlSheet.UsedRange.Rows.Count
DateaA = xlSheet.Range("a2", Cells("E", MAXROW))

                   xlBook.Close
                   xlApp.Quit
                  Set xlApp = Nothing
DoEvents

CurrentDb.Execute "Insert INTO 迟到明细 Select * FROM [Excel 8.0;DATABASE=f:\cdmx.xls].DateA"

Top

煮江品茶发表于：2015-04-30 16:31:14

无需打开Excel表，只需要最后一句代码就够了。只是最后的名称要写对，并用[]号括起来。

具体处理方法参见《国中之国》一文。

Top

chinasa 发表于：2015-04-30 17:08:42

煮版，您好！

非常感谢！不知道是否可以通过代码来指定EXCEL的区域？也就是DATE1的区域。

因为我的EXCEL是不断覆盖的，如果手工指定的话需要每次导入都要手工选择区域。

Top

chinasa 发表于：2015-04-30 17:16:52

问题搞定，万分感谢！节日快乐~~

CurrentDb.Execute "Insert INTO 迟到明细 Select * FROM [Excel 8.0;DATABASE=f:\cdmx.xls].[A2:E5]"

Top

总记录：8篇页次：1/1 9 1 :

Access交流中心

以EXCEL第二行为字段名导入