[新手求助]关于将Excel表格数据导入Access中的编码问题

mj23lk

我想在窗体中设计一个按钮控件，通过编码实现功能：将Excel的sheet1中的数据导入到窗体对应的Access中的表。条件是窗体对应的表中已经包含数据，导入仅作为添加，两者的标题栏已经完全对应。
Execl文件名：刀具信息.xls
Acess表名：刀具信息

新手，多谢指点！[:32]虚心求救

[ 本帖最后由 mj23lk 于 2008-7-1 18:43 编辑 ]

tmtony

可以通过DAO读取xls和Access中的文件表. 建立两个记录集,然后循环excel的记录集逐个写入到Access的表中

mj23lk

原帖由 tmtony 于 2008-6-30 22:09 发表
可以通过DAO读取xls和Access中的文件表. 建立两个记录集,然后循环excel的记录集逐个写入到Access的表中

对不起，能不能麻烦具体些一下啊。我对VBA还处于入门阶段，谢谢。

tz-chf

没干过这个，TransferDatabase宏里找不到excel的选项，只有写代码了，导入到一个临时表，再用追加查询到目标表。

mj23lk

有没有高手可以写一段代码发上来啊……

goto2008

[:30]  关注

wangruihongyk

关注一下

lordcatus

[:30]  同样很关注。。

明镜

看起来这个问题解决起来有点困难.

Henry D. Sy

Private Sub Command0_Click()
    Dim rs As New ADODB.Recordset
    Dim rst As New ADODB.Recordset
    Dim Conn As New ADODB.Connection
    Dim I, J As Integer
    Dim strSQL As String
    Dim strName, strSheetName As String

    On Error GoTo Command0_Click_Error

    strName = CurrentProject.Path & "\nlc1.xls"
    strSheetName = "sheet1"

    Conn.Open _
            "Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=False;Data Source=" _
          & strName & "; Extended Properties='Excel 8.0;HDR=Yes'"
    strSQL = "select *  [" & strSheetName & "$]"

    rs.Open strSQL, Conn, adOpenKeyset, adLockReadOnly

    Do While Not rs.EOF
        Select Case rs.Fields("处理2")
        Case "非发酵", "肠杆"
            J = 3
        Case "葡萄球"
            J = 2
        Case Else
            J = 1
        End Select

        rst.Open "a", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

        For I = 1 To J
            With rst
                .AddNew
                .Fields(0) = rs.Fields(0)
                .Fields(1) = rs.Fields(1)
                .Fields(2) = rs.Fields(2)
                .Fields(3) = rs.Fields(3)
                .Fields(4) = rs.Fields(4)
                .Fields(5) = rs.Fields(5)
                .Fields(6) = rs.Fields(6)
                .Fields(7) = I
            End With
        Next
        rst.UpdateBatch
        rst.Close
        rs.MoveNext
    Loop
    rs.Close
    Conn.Close
    Set Conn = Nothing
    Set rs = Nothing
    Set rst = Nothing
    Me.A_子窗体.Requery

    On Error GoTo 0
    Exit Sub

Command0_Click_Error:

    MsgBox " " & Err.Number & " (" & Err.Description & ")"
End Sub

http://www.accessbbs.cn/bbs/viewthread.php?tid=16353&extra=&highlight=%2Bmickle009&page=2


[ 本帖最后由 Henry D. Sy 于 2008-12-19 23:18 编辑 ]