我是要我选择的导第几列就把数据导到数据库的某个字段来,然后再有选择的把数据库中的数据导回到EXECL中

解决方案 »

  1.   

    按向导做即可:
    文件=》获取外部数据=》导入,然后按提示从EXCEL导入。
    至于导回去更简单啦,在数据窗口选择需要导出的文件
    文件=》导出  然后选择需要导出的文件类型为EXCEL即可,然后再EXCEL中把不需要的删除。用代码当然复杂些。
      

  2.   

    Private Sub ExportExcelSheetToAccess(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
    'On Error Resume Next
    Dim db As Database
    Dim rs As Recordset
    Set db = OpenDatabase(sExcelPath, True, False, "Excel 8.0")
    Call db.Execute("Select * into [;database=" & sAccessDBPath & "]." & sAccessTable & " FROM [" & sSheetName & "$]")
    MsgBox "导入成功", vbInformation, "信息"
    End Sub
      

  3.   

    ------------------------------------------------------------------
    个人专栏:http://www.csdn.net/develop/author/netauthor/lihonggen0/
    ------------------------------------------------------------------
      

  4.   

    那请问怎么导入进SQL SERVER中去呢?