作者:乔山办公网日期:
返回目录:excel表格制作
Dim excelluj As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & (TextBox1.Text & "") & ";Extended Properties='Excel 8.0;HDR=no;IMEX=0'"
Dim comm As OleDb.OleDbConnection = New OleDb.OleDbConnection(excelluj)
comm.Open()
Dim stable As DataTable = comm.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, Nothing)
Dim xlsname As String = "Sheet1$"
xlsname = "[" & xlsname.Replace(" ' ", " ") & "]"
Dim sql As String = "select * from " & xlsname
Dim commxls As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(sql, excelluj)
Dim dos As DataSet = New DataSet()
Dim i As Integer
Dim sqleX As String = ""
Dim kkkl As Integer = 0
commxls.Fill(dos, xlsname)
comm.Close()
'以下是读取数据然后直接写e68a84e8a2ade799bee5baa6e79fa5e98193363入到CY.txt,你可以直接把数据直接写入到数据库。
Dim Sw As StreamWriter = File.CreateText("D:\My Documents\Visual Studio 2008\Projects\EXECL_TXT\EXECL_TXT\CY.txt")
For i = 0 To dos.Tables(0).Rows.Count - 1
sqleX = "" _
& "'" & dos.Tables(xlsname).Rows(i)(0).ToString & "'," _
& "'" & dos.Tables(xlsname).Rows(i)(1).ToString & "')"
FileOpen(1, "CY.TXT", OpenMode.Output)
FileClose(1)
Sw.WriteLine(sqleX)
Sw.Write("||| ")
Next
Sw.Close()
dos.Dispose()