求助：怎么把Excel数据导入Access中

wbz2cdma

各位高手请帮忙：
要求：将Excell各Sheet中的数据导入Access中。

原始数据在一个工作簿中，有数千个Sheet，每个Sheet格式一样（数据内容不同）：


目标是Access中的一个表“目标表”：


表的字段结构已建好，且已经有部分内容：


另外，我用的ODBC中的“文件DSN”MyODBC.dsn，连同ExcelBook.xls和AccessDB.mdb都放在C:\Excel2Acces目录中：


现在打算在“个人宏工作簿.xls”中用VBA，将“ExcelBook.xls”中的内容全部附加到“AccessDB.mdb”的“目标表”中。
请问：这样的VBA语句中，怎么连接Access？SQL语句怎么写？我这里写了一个，大家帮忙看看：

1. 
   
2. Sub Excel2Access()
   
3.     Dim sName(1 To 2000) As String, sAge(1 To 2000) As String
   
4.     Dim sWork(1 To 2000) As String, sAddress(1 To 2000) As String
   
5.     Dim MyWorkBook As Workbook
   
6.    
   
7.     MyWorkBook = Application.Workbooks.Open("C:\Excel2Access\ExcelBook.xls")
   
8.     n = MyWorkBook.Sheets.Count '打开工作簿
   
9.    
   
10.     For i = 1 To n  '先用数组把几千个Sheet的内容读到数组变量中
    
11.         sName(i) = Sheets(i).Range("B1").Value
    
12.         sAge(i) = Sheets(i).Range("D1").Value
    
13.         sWork(i) = Sheets(i).Range("B1").Value
    
14.         sAddress(i) = Sheets(i).Range("B1").Value
    
15.     Next
    
16.    
    
17.     '然后连接Access数据库
    
18.     Set conn = New ADODB.Connection  '这行有问题，“用户类型未定义”
    
19.     connFile = "C:\Excel2Access\MyODBC.dsn"
    
20.     conn.Open connFile
    
21.     Set rs = New ADODB.Recordset
    
22.    
    
23.     For i = 1 To n
    
24.         strSQL = "Insert into '目标表' Name=" & sName(i) & "Age=" & sAge(i)  '这个SQL语句应该怎么写
    
25.         rs.Open strSQL, conn
    
26.     Next
    
27.    
    
28.     MsgBox "从Excell导入Access完毕！"
    
29.     rs.Close
    
30.     Set rs = Nothing
    
31.     conn.Close
    
32.     Set conn = Nothing
    
33. End Sub
    

复制代码

附件：
Excel2Access.rar (14.24 KB, 下载次数: 70)

2010-4-23 02:50 上传

点击文件名下载附件

[ 本帖最后由 wbz2cdma 于 2010-4-27 12:24 编辑 ]

wbz2cdma

附件是上面的14.24KB的那个。

wbz2cdma

请教高手帮忙。

wbz2cdma

天啊，来人啊。

secowu

这个是经典的应用,没人回复哦

lizhendongex

支持支持一下，谢谢