小编Com*_*dal的帖子

我已经阅读了一些相关的主题,但仍然留下了这个问题.我想在Access数据库应用程序中编写一个函数,以编程方式从前两行开始导入Excel数据 - 这两行是标题和单位分隔符.

我期待完成以下事情:

• 能够动态选择我想要导入的Excel文件,可能使用对话框和文件浏览器窗口.
• 在导入时将"公共"数据插入每一行 - 例如记录器的资产编号和记录器的指定位置.
• 在第3行开始导入,而不是第1行 - 因为设备会自动将记录的标题和度量单位放在那里.
• 忽略工作表中的所有其他列 - 数据将始终存在于列A到G中,并且数据将始终在第3行开始.

这就是Excel数据的常规格式(破折号代表数据):

     Date     Time     Temp     Dew Point     Wet Bulb     GPP     RH
                       Cº       Cº            Cº           g/Kg    %
     ----     ----     ----     ----          ----         ----    ----
     ----     ----     ----     ----          ----         ----    ----

我已经试过了内置的访问"获取外部数据"功能,但不会超过跳过列#2和Excel文件中的额外的数据尝试导入时,停止在其轨道的过程中抛出一个错误.

我将是第一个承认我在使用外部文件之前从未尝试为Access编写导入功能的人,因此我有点像新手.我们将非常感谢人们可以向我展示的任何帮助,并且我可以根据需要使用尝试的代码更新此内容.感谢您的所有帮助,大家!

- 编辑于2011年1月3日上午10:41 -

在阅读了Remou提出的Excel数据线程的ADO连接之后,这里有一些我认为可以完成这项工作的代码,但我不确定.

Dim rs2 As New ADODB.Recordset
Dim cnn2 As New ADODB.Connection
Dim cmd2 As New ADODB.Command
Dim intField As Integer
Dim strFile As String

strFile = fncOpenFile
If strFile = …