vb.net和C#.net读取EXCEL

读取

vb.net

Try

Dim ofDialog As New OpenFileDialog()

If (ofDialog.ShowDialog() = DialogResult.OK) Then

filePath = ofDialog.FileName

Else

Return

End If

If (Not File.Exists(filePath)) Then

Return

End If

Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0" +

"Data Source=" + filePath + "" +

"Extended Properties='Excel 8.0;HDR=NO;IMEX=1';"

Dim objConn As OleDbConnection = New OleDbConnection(strConn)

If (objConn.State <> ConnectionState.Open) Then

objConn.Open()

End If

Dim schemaTable As DataTable = objConn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, Nothing)

Dim objCmd As OleDbCommand = New OleDbCommand("", objConn)

Dim objDA As OleDbDataAdapter = Nothing

Dim objDs As DataSet = New DataSet()

For i = 0 To schemaTable.Rows.Count

objCmd.CommandText = "SELECT * FROM [" + schemaTable.Rows(i)(2).ToString() + "]"

objDA = New OleDbDataAdapter(objCmd)

Dim objDt As DataTable = New DataTable()

objDA.Fill(objDt)

objDs.Tables.Add(objDt)

Next

Catch ex As Exception

End Try

C#.net

OpenFileDialog ofDialog = new OpenFileDialog();

if (ofDialog.ShowDialog() == DialogResult.OK)

{

filePath = ofDialog.FileName;

}

else

{

return;

}

if (!File.Exists(filePath))

{

return;

}

//连接

String strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" +

"Data Source=" + filePath + ";" +

"Extended Properties='Excel 8.0;HDR=NO;IMES=1'";

try

{

OleDbConnection objConn = new OleDbConnection(strConn);

if (objConn.State != ConnectionState.Open)

{

objConn.Open();

}

DataTable schemaTable = objConn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, null);

OleDbCommand objCmd = new OleDbCommand("", objConn);

OleDbDataAdapter objDA = null;

DataSet objDs = new DataSet();

for (int i = 0; i < schemaTable.Rows.Count; i++)

{

objCmd.CommandText = "SELECT * FROM [" + schemaTable.Rows[i][2].ToString() + "]";

objDA = new OleDbDataAdapter(objCmd);

DataTable objDt = new DataTable();

objDA.Fill(objDt);

objDs.Tables.Add(objDt);

}

}

catch (Exception ex)

{

MessageBox.Show(ex.Message);

}