Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > .NET для новичков > Как импортировать данные из Excel


Автор: Experimenter 24.11.2007, 10:22
Код

using System;
using System.Data;
using System.Data.OleDb;
using System.Drawing;
using System.Windows.Forms;
using System.Xml;

namespace VingradSamples
{
    class DataFromExcel : Form
    {
        DataGridView dgv;

        [STAThread]
        static void Main()
        {
            Application.Run(new DataFromExcel());
        }

        public DataFromExcel()
        {
            this.Text = "Взаимодействие с Excel";

            //Добавляем DataGridView на форму
            dgv = new DataGridView();
            dgv.Dock = DockStyle.Fill;
            this.Controls.Add(dgv);

            //Добавляем Меню
            MenuStrip ms = new MenuStrip();
            ms.Dock = DockStyle.Top;

            ToolStripMenuItem tsmi = new ToolStripMenuItem("Файл");
            ToolStripMenuItem child =
                new ToolStripMenuItem("Открыть...",
                                      null,
                                      menuOpenFile_Click,
                                      Keys.Control | Keys.O);
            tsmi.DropDownItems.Add(child);

            child = new ToolStripMenuItem("Выход",
                                          null,
                                          delegate { Close(); },
                                          Keys.Alt | Keys.F4);
            tsmi.DropDownItems.Add(child);
            ms.Items.Add(tsmi);
            this.Controls.Add(ms);
        }

        private void menuOpenFile_Click(object obj, EventArgs ea)
        {
            OpenFileDialog ofd = new OpenFileDialog();
            ofd.CheckPathExists = true;
            ofd.Multiselect = false;
            ofd.Filter = "Файлы Excel|*.xls";

            try
            {
                if (ofd.ShowDialog() == DialogResult.OK)
                {
                    OleDbConnection oleConn = new OleDbConnection();

                    //HDR = Yes/No использовать или нет первую строку в качестве заголовка столбцов
                    //IMEX = 1 - все данные будут импортированы как текст
                    //за подробностями сюда: http://support.microsoft.com/kb/194124/EN-US/
                    oleConn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; " +
                                               "Data Source = '" + ofd.FileName + "'; " +
                                               "Extended Properties = 'Excel 8.0; HDR = Yes; IMEX = 1'";

                    //Вместо 'Лист1' проставить имя нужного листа в выбранном файле
                    string strSQL = "SELECT * FROM [Лист1$]";

                    oleConn.Open(); 
                    OleDbCommand oleCom = new OleDbCommand(strSQL, oleConn);
                    OleDbDataAdapter oleDA = new OleDbDataAdapter(oleCom);
                    DataSet ds = new DataSet();
                    oleDA.Fill(ds, "xlTable");
                    oleDA.FillSchema(ds, SchemaType.Source, "xlTable");
                    oleConn.Close();
                    dgv.DataSource = ds.Tables["xlTable"];
                }
            }
            catch (Exception ex)
            {
                MessageBox.Show(ex.Message);
            }
        }
    }
}

Автор: thomas 24.11.2007, 19:21
Добавлю свои пять копеек.
Цитата

 //Вместо 'Лист1' проставить имя нужного листа в выбранном файле
                    string strSQL = "SELECT * FROM [Лист1$]";


Функция для получения массива типа string с именами листов в Excel файле.
Код

Public Function GetExcelSheetNames() As String()
        Dim dt As DataTable
        Try
            con.Open()
            dt = con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
            If dt Is Nothing Then
                Return Nothing
            End If
            Dim excelSheet() As String
            Dim size As Integer = dt.Rows.Count - 1
            excelSheet = New String(size) {}
            Dim i As Int16 = 0
            For Each row As DataRow In dt.Rows
                Dim strSheetTableName As String = row("TABLE_NAME").ToString()
                excelSheet(i) = strSheetTableName.Substring(0, strSheetTableName.Length - 1)
                i += 1
            Next
            Return excelSheet
        Catch ex As Exception
            Throw New Exception(ex.Message)
        Finally
            con.Close()
        End Try
    End Function 'in orde

Код

public string[] GetExcelSheetNames()
        {
            DataTable dt;
            try
            {
                con.Open();
                dt = con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, null);
                if (dt == null) return null;
                string[] excelSheet;
                int size = dt.Rows.Count - 1;
                excelSheet = new string[size];
                int i = 0;
                foreach (DataRow row in dt.Rows)
                {
                    string strSheetTableName = row["TABLE_NAME"].ToString();
                    excelSheet[i] = strSheetTableName.Substring(0, strSheetTableName.Length - 1);
                    i++;
                }
                return excelSheet;
            }
            catch(Exception ex)
            {
                throw new Exception(ex.Message);
            }
            finally
            {
                con.Close();
            }
        }

Автор: Experimenter 24.11.2007, 21:39
thomas, отлично, спасибо!

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)