20161208xlVBA工作表数据导入Access

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了20161208xlVBA工作表数据导入Access，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1782字，纯文字阅读大概需要3分钟。

内容图文

Sub InsertToDataBase()

    Dim DataPath As String
    Dim SQL As String
    Const DataName As String = "yunying.mdb"
    Const TableName As String = "关键词效果分析"

    DataPath = ThisWorkbook.Path & "\" & DataName

    Dim Rng As Range
    Dim Arr As Variant
    Dim EndRow As Long
    Dim Fileds As String
    Dim Values As String
    
    With ThisWorkbook.Worksheets(1)
        EndRow = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
        Set Rng = .Range("A1:R" & EndRow)
        Arr = Rng.Value

        For i = 2 To Rng.Rows.Count
            Fileds = ""
            Values = ""
            For j = 1 To 6
                Fileds = Fileds & Arr(1, j) & ","
                Values = Values & "‘" & Arr(i, j) & "‘," ‘数值转为文本
            Next j

            For j = 7 To Rng.Columns.Count
                Fileds = Fileds & Arr(1, j) & ","
                Values = Values & Arr(i, j) & ","
            Next j

            Fileds = Left(Fileds, Len(Fileds) - 1)
            Values = Left(Values, Len(Values) - 1)

            SQL = "INSERT INTO " & TableName & " (" & Fileds & ") VALUES(" & Values & ")"

            Debug.Print SQL
            CnnRunSQL DataPath, SQL

            ‘If i = 2 Then Exit Sub
        Next i
    End With
    Set Rng = Nothing
End Sub
Sub CnnRunSQL(ByVal DataPath As String, ByVal SQL As String)
‘对象变量声明
    Dim CNN As Object
    Dim RS As Object
    ‘数据库引擎——Excel作为数据源
    Const DATA_ENGINE As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
    ‘创建ADO Connection 连接器 实例
    Set CNN = CreateObject("ADODB.Connection")
    ‘ On Error Resume Next
    ‘创建 ADO RecordSet  记录集 实例
    ‘Set RS = CreateObject("ADODB.RecordSet")
    ‘连接数据源
    CNN.Open DATA_ENGINE & DataPath
    ‘执行查询 返回记录集
    
     CNN.Execute (SQL)
    ‘RS.Open SQL, CNN, 1, 1
    ‘关闭记录集
    ‘RS.Close
    ‘关闭连接器
    CNN.Close
    ‘释放对象
    Set RS = Nothing
    Set CNN = Nothing
End Sub

　　

20161208xlVBA工作表数据导入Access

标签：表数   vba   查询   pat   cell   value   row   关闭   数据源   

本文系统来源：http://www.cnblogs.com/nextseven/p/7133808.html

内容总结

以上是互联网集市为您收集整理的20161208xlVBA工作表数据导入Access全部内容，希望文章能够帮你解决20161208xlVBA工作表数据导入Access所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---