VBA实用技巧-导入excel-Allen Lee
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


VBA实用技巧-导入excel

发表时间:2015/11/24 0:13:04 评论(2) 浏览(7007)  评论 | 加入收藏 | 复制
   
摘 要:导入excel
正 文:
Sub Button1_Click()
    Application.ScreenUpdating = False
     Application.Calculation = xlCalculationManual
    
    '引用Microsoft ActiveX Data Objects 2.x Library
    '引用Microsoft AD0 Ext 2.8 for DDL and Security
    Dim cnn As New ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim Cat As New ADOX.Catalog
    Dim myPath As String
    Dim p
    Dim sh As Worksheet
    Dim SQL As String
    Dim F As Boolean
    Dim wk As Workbook
    
    myPath = ThisWorkbook.Path & "\"
    myData = ThisWorkbook.Path & "\data.accdb"
    p = Dir(myPath & "A list *.xls?")
    Set wk = Workbooks.Open(ThisWorkbook.Path & "\" & p)
    If Not wk Is Nothing Then
        If Dir(myData) = "" Then
            Cat.Create "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & myData
            Set Cat = Nothing
            F = True '数据库文件不存在标志
        End If
        
        cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & myData
        For Each sh In Worksheets
            If Not F Then '数据库文件已经存在,先判断同名数据表是否存在,如果存在就删除它
                Set rs = cnn.OpenSchema(adSchemaTables, Array(Empty, Empty, sh.Name, Empty))
                If Not rs.EOF Then
                    SQL = "Drop TABLE " & sh.Name
                    cnn.Execute SQL
                End If
            End If
            SQL = "Select * INTO " & sh.Name & " FROM [Excel 12.0;Database=" & wk.FullName _
                & ";].[sheet1$" & Range("a1").CurrentRegion.Address(0, 0) & "]"
            cnn.Execute SQL
            
        Next
        MsgBox " 成功导入 ", vbInformation, " 导入数据库 "
        cnn.Close
        Application.ScreenUpdating = True
        Application.Calculation = xlCalculationAutomatic
        Set cnn = Nothing
    Else
        MsgBox "无须更新"
    End If
End Sub

Access软件网交流QQ群(群号:198465573)
 
 相关文章
【access小品】选择字段导入Excel表  【todaynew  2010/7/31】
【access通用工具源码】通用Excel数据导入模块  【红尘如烟  2011/5/9】
【access源码示例】导入导出系列——Excel数据高效导入示例  【红尘如烟  2011/5/24】
列表框选择字段设置条件查询导出excel\word  【林岚  2011/10/22】
【Access小品】通用选择字段导出示例  【煮江品茶  2013/7/19】
选择字段导出数据源码示例  【竹笛  2014/10/29】
 
 访客评论
2016/11/13李志能
这个是EXCEL里面的VBA,不是ACCESS的

2016/10/1小城
请问执行的时候第一句就报错“方法和数据成员未找到”,怎么回事?

总记录:2篇  页次:1/1 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

Allen Lee

文章分类

文章存档

友情链接