请教各位大哥如何将EXCEL表中的数据导入ACCESS中的表

Question

各位大哥!我在目录中做好了EXCEL表.然后每次我把数据录入保存后!我如何导入在ACCESS中的数据表呢!而每次导入后的数据是不能覆盖ACCESS中数据表内已存好的数据.谢谢各位!帮帮下!

Answer 1

我一般处理粘贴板的数据Private Sub Command5_Click()
Dim r As New ADODB.Recordset
Dim SQL As String
Dim ttxtSPLB As String
Dim Result
Dim Row_l
Dim Col_L
Dim Grid1()
Dim i As Integer
Dim t As Integer
Dim C  As IntegerDim z As Integer
Dim s As Long
If MsgBox("粘贴的数据格式为 [规格]，[单位]，[摘要]；确认没有错吗？？？", vbYesNo) = vbNo Then
    Exit Sub
End IfIf MsgBox("确认选择的商品类别［" & TreeView1.SelectedItem.FullPath & "］没有错误吗？" & vbCrLf & "如发现错误，再修改将增添巨大的工作量！", vbYesNo) = vbYes Then
    '开始批量粘贴数据
    ttxtSPLB = Mid(TreeView1.SelectedItem.Key, 2)
        Result = Clipboard.GetText
    z = 0
    s = 0
    Row_l = Split(Result, vbCrLf)
    
    For i = 0 To UBound(Row_l)
        Col_L = Split(Row_l(i), Chr(9))
        For t = 0 To UBound(Col_L)
            If z = 0 Then
                ReDim Grid1(UBound(Row_l), UBound(Col_L))
                z = 1
            End If
            Grid1(i, t) = Col_L(t)
        Next
        'Debug.Print
    Next
    For i = 0 To UBound(Grid1, 1) - 1
        SQL = "insert into s_tab_spgg(splb,size,unit,zyxx) values("
        SQL = SQL & "'" & ttxtSPLB & "',"
        SQL = SQL & "'" & Replace(Trim(CStr(Grid1(i, 0)) & " "), "'", "''") & "',"
        SQL = SQL & "'" & Replace(Trim(CStr(Grid1(i, 1)) & " "), "'", "''") & "',"
        SQL = SQL & "'" & Replace(Trim(CStr(Grid1(i, 2)) & " "), "'", "''") & "')"
       '‘ MsgBox SQL
        CN.Execute SQL
        txtZT = CStr(Grid1(i, 0)) & CStr(Grid1(i, 1)) & CStr(Grid1(i, 2))
        txtZT.Refresh
    Next
    
End If
End Sub

Answer 2

2楼的大哥，我是想直接把EXCEL的数据导入ACCESS的！

Answer 3

文件>>获取外部数据>>导入>>选择要导入的xls文件,根据提示来.冒是中间下一步的时候还有个追加的选项

Answer 4

用EXCEL里的vba编代码~网上很多这样的教程

Answer 5

文件>>获取外部数据>>导入>>选择要导入的xls文件,根据提示来.冒是中间下一步的时候还有个追加的选项这个方法比较好

Answer 6

最方便快速的方法是使用ACCESS对象来导入EXCEL.
需要预先做的事:事先建立好一个空的MDB数据库和数据表,数据表的结构要与导入的EXCEL一致.VB代码大体如下:
工程->引用ACCESS对象
...
Dim ACC As New Access.Application
...
ACC.OpenCurrentDatabase DBName'DBName就是你前面建的那个空的MDB文件(含全路径)ACC.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, TableName, ExcelName, True, SheetName'TableName就是你建立的MDB中的那个空表名称
'ExcelName就是要导入的EXCEL文件名(含全路径)
'SheetName就是指定导入哪一个工作表导入之后,就可以用OPDATABASE或者其他方法打开

Answer 7

各位大哥!我是想通过"Command"来选择我目录中的EXCEL文件,然后对其导入的!!谢谢各位大哥!!