vb.net和C#.net读取EXCEL

8 篇文章 0 订阅

 读取

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);
            }

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值