Excel与vb.net和access方面的问题

[lwt1982ll]

Excel与vb.net和access方面的问题
各位大侠：


现在遇到一个问题

在自己用vb.net做的一个软件中

要实现导入Excel数据，并能检测Excel中的数据格式是否正确，检测正确后保存到Access中

例如：在科研评分系统中

菜单中有"导入Excel"的选项，点击此选项，就能浏览电脑里的所有文件，并能选中电脑中任意位置的Excel文件

确定后，先进行导入Excel文件的测试，并显示相关的检测信息，不成功时提示出错的地方，检测成功后，将Excel文件的

sheet1.sheet2,sheet3数据自动保存到相应的Access（科研评分数据库.db）的不同表（table1,table2,table3）中,根据

excel的列名对应到access列中.请问该怎么实现？

[破咖啡罐子]

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

[peterb]

搜索oledb读取excel 好像在cnblogs上有一个操作excel文件系列

[lwt1982ll]

就是access中的表a1包含excel中的sheet1中的序号、姓名、职务；同时也包含另一个excel表sheet1的科目、单位、项目名称等列。
这样导入acess中的表a1应该怎么处理？

非常感谢！

[chutou]

持续学习中

[lwt1982ll]

谢谢,
只是根据

excel的列名对应到access列中

其中access中的一个表是由两个excel表组成其中第一表中的两列和第二个表中的两列,怎么能对应的放在access表中呢?

[破咖啡罐子]

[Quote=引用 3 楼 lwt1982ll 的回复:]
谢谢,
只是根据

excel的列名对应到access列中

其中access中的一个表是由两个excel表组成其中第一表中的两列和第二个表中的两列,怎么能对应的放在access表中呢?
[/Quote]

不好意思，没明白你的意思……

[lwt1982ll]

昨天 终于解决了,谢谢大家!