Excel与vb.net和access方面的问题
Excel与vb.net和access方面的问题各位大侠：
现在遇到一个问题
在自己用vb.net做的一个软件中
要实现导入Excel数据，并能检测Excel中的数据格式是否正确，检测正确后保存到Access中
例如：在科研评分系统中
菜单中有"导入Excel"的选项，点击此选项，就能浏览电脑里的所有文件，并能选中电脑中任意位置的Excel文件
确定后，先进行导入Excel文件的测试，并显示相关的检测信息，不成功时提示出错的地方，检测成功后，将Excel文件的
sheet1.sheet2,sheet3数据自动保存到相应的Access（科研评分数据库.db）的不同表（table1,table2,table3）中,根据
excel的列名对应到access列中.请问该怎么实现？
--------------------编程问答-------------------- 搜索oledb读取excel 好像在cnblogs上有一个操作excel文件系列 --------------------编程问答-------------------- 1.导入Excel这个，你用Openfiledialog就行了。
2.你运气不错，我刚刚也用到了读EXCEL到datatable，自写了一个类，你可以直接用了。
Public Class OptExcel
Private filename As String
Public Sub New(ByVal ExcelFileName As String)
filename = ExcelFileName
End Sub
''' <summary>
''' 读取Excel文件到Datatable
''' </summary>
''' <param name="SheetName">Sheet名称</param>
''' <returns>数据表</returns>
''' <remarks></remarks>
Public Function ReadExcelToDataTable(ByVal SheetName As String) As Data.DataTable
Dim xlsconn1 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filename & " ;Extended Properties=Excel 8.0;")
Dim cmd1 As OleDb.OleDbCommand = New OleDb.OleDbCommand("", xlsconn1)
Dim mda1 As OleDb.OleDbDataAdapter
xlsconn1.Open()
mda1 = New OleDb.OleDbDataAdapter("select * from [" & SheetName & "$]", xlsconn1)
ReadExcelToDataTable = New DataTable
mda1.Fill(ReadExcelToDataTable)
xlsconn1.Close()
End Function
End Class
--------------------编程问答-------------------- 谢谢,
只是根据
excel的列名对应到access列中
其中access中的一个表是由两个excel表组成其中第一表中的两列和第二个表中的两列,怎么能对应的放在access表中呢? --------------------编程问答--------------------
不好意思，没明白你的意思…… --------------------编程问答-------------------- 就是access中的表a1包含excel中的sheet1中的序号、姓名、职务；同时也包含另一个excel表sheet1的科目、单位、项目名称等列。
这样导入acess中的表a1应该怎么处理？
非常感谢！ --------------------编程问答-------------------- 持续学习中 --------------------编程问答-------------------- 昨天 终于解决了,谢谢大家!
补充：.NET技术 , VB.NET
