Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.68/34: Рейтинг темы: голосов - 34, средняя оценка - 4.68
76 / 37 / 2
Регистрация: 07.01.2012
Сообщений: 414
1

Получить доступ к листу Excel и прочитать данные

27.02.2012, 14:55. Показов 6239. Ответов 8
Метки нет (Все метки)

На форме два текстбокса один баттон и один лабел.
Как сделать так:
ввожу имя в текстбокс1, фамилию в текстбокс2 нажимаю баттон и если в excel в A1 такое имя и в Б2 такая фамилия есть то в лабел цифра один, а если нету то в лабел цифра 2 появляется.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.02.2012, 14:55
Ответы с готовыми решениями:

доступ к листу Excel
Добрый вечер ! вывожу данные в шаблон в excel в котором есть 3 листа как вывести данные на...

Как мне получить доступ к листу из другого метода класса?
Доброго времени суток! Наткнулся на такую проблему. У меня есть список, с определенным набором...

Как правильнее прочитать данные из Excel в 1с?
как правильнее передать данные из файла формата ексель в 1с? поиском пользовался, но он выдал...

Как из Delphi прочитать данные из Excel-файла?
Субж. Если можно, по подробнее.

8
Крутой форумчанин
154 / 154 / 8
Регистрация: 09.01.2011
Сообщений: 298
27.02.2012, 15:04 2
Цитата Сообщение от Spread Посмотреть сообщение
На форме два текстбокса один баттон и один лабел.
Как сделать так:
ввожу имя в текстбокс1, фамилию в текстбокс2 нажимаю баттон и если в excel в A1 такое имя и в Б2 такая фамилия есть то в лабел цифра один, а если нету то в лабел цифра 2 появляется.
Уточни пожалуйста, тебе в пределах Excel-я, т.е. Visual Studio не установлен?

А, всё, вижу в соседней теме что установлен.
Есть разные способы, первое что пришло в голову - соединение с файлом .xlsx с помощью ADO.NET
VB.NET
1
ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\myFolder\myExcel2007file.xlsx;Extended Properties="Excel 12.0 Xml;HDR=YES";"
0
76 / 37 / 2
Регистрация: 07.01.2012
Сообщений: 414
27.02.2012, 15:08  [ТС] 3
у меня только visual basic 2010 больше ничего
0
147 / 147 / 41
Регистрация: 01.12.2009
Сообщений: 275
29.02.2012, 08:52 4
Примерно так:

Добавляем к проекту ссылку на Microsoft Excel Object Library (11 или 12)
или на Microsoft.Office.Interop.Excel.dll

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Imports Microsoft.Office.Interop
 
Public Class Form1
    Dim oEx As New Excel.Application
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            oEx.Workbooks.Open("c:/fio.xls")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer = 1 'Номер строки
        Try
            Do Until oEx.Range("A" & i).Value = "" 'Цикл выполняется до тех пор, пока в столбце "А" имеется запись
                If oEx.Range("A" & i).Value = TextBox1.Text Then 'Сравниваем с текстбоксом
                    If oEx.Range("B" & i).Value = TextBox2.Text Then
                        Label1.Text = "1"
                        Exit Sub
                    End If
                End If
                i += 1
                Label1.Text = "2"
            Loop
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        oEx.Quit()
    End Sub
End Class
З.Ы. Большие и маленькие буквы при сравнении имеют значение!
0
76 / 37 / 2
Регистрация: 07.01.2012
Сообщений: 414
29.02.2012, 12:15  [ТС] 5
Desh, как добавить к проекты ссылку?
0
147 / 147 / 41
Регистрация: 01.12.2009
Сообщений: 275
29.02.2012, 13:30 6
в VS 2008: меню Проект --> Добавить ссылку или в свойствах проекта слева "Ссылки" --> Добавить. Вкладка "COM" . Всё это если Excel установлен, а если не установлен - то вкладка "Обзор" и выбираем Dllку
0
76 / 37 / 2
Регистрация: 07.01.2012
Сообщений: 414
29.02.2012, 14:06  [ТС] 7
не работает
0
Миниатюры
Получить доступ к листу Excel и прочитать данные  
145 / 113 / 9
Регистрация: 12.09.2011
Сообщений: 784
29.02.2012, 19:28 8
Spread, вот как я реализовал открытие нужного листа Excel. Рекомендую весь этот код записать в отдельный модуль, чтобы не путать с другими процедурами. У меня этот модуль называется mdlExcel:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
Module mdlExcel
    Dim SelectedSheet As String
 
    Public Sub OpenSheet(ByVal Grid As DataGridView)
        Dim OpenDialog As New OpenFileDialog, FileName As String = ""
 
        With OpenDialog
            .Title = "Открыть документ Excel"
            .Filter = "Документы Excel|*.xls;*.xlsx"
 
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                FileName = .FileName : Application.DoEvents()
            Else
                Return
            End If
        End With
 
 
        ' Подключение к Excel. 
        Dim connection As OleDb.OleDbConnection, connectionString As String
 
        Try
            'Для Excel 12.0 
            connectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + FileName + "; Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
            connection = New OleDb.OleDbConnection(connectionString)
            connection.Open()
 
        Catch ex12 As Exception
            Try
                'Для более ранних версий 
                connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + FileName + "; Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
                connection = New OleDb.OleDbConnection(connectionString)
                connection.Open()
 
            Catch ex11 As Exception
                MsgBox("Неизвестная версия Excel или файл имеет неизвестный формат!", MsgBoxStyle.Exclamation)
                Return
            End Try
        End Try
 
        'Отобразить форму выбора листов
        ShowSelectForm(GetExcelSheetNames(connection), FileName)
        If SelectedSheet Is Nothing Then Return
 
        'Выборка данных 
        Dim command As OleDb.OleDbCommand = connection.CreateCommand()
        command.CommandText = "Select * From [" & SelectedSheet & "$]"
 
        Dim Adapter As New OleDb.OleDbDataAdapter(command), Table As New DataTable
 
        Adapter.Fill(Table) : connection.Close()
 
        With Grid
            .Visible = False : .Parent.Cursor = Cursors.WaitCursor
            .DataSource = Table : SetGridSettings(Grid)
            .Visible = True : .Parent.Cursor = Cursors.Default
        End With
    End Sub
 
    Private Function GetExcelSheetNames(ByVal connection As OleDb.OleDbConnection) As String()
        Dim Table As DataTable
 
        Try
            Table = connection.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
            If Table Is Nothing Then Return Nothing
 
            With Table
                Dim i As Integer = 0, SheetsArray() As String = Nothing, s As String
 
                For n As Integer = 0 To .Rows.Count - 1
                    s = .Rows(n).Item("TABLE_NAME").ToString.Trim(New Char() {"'"})
 
                    If Strings.Right(s, 1) = "$" Then
                        ReDim Preserve SheetsArray(i)
                        SheetsArray(i) = s.Trim(New Char() {"$"})
                        i += 1
                    End If
                Next
 
                Table.Dispose() : Return SheetsArray
            End With
 
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation)
            Return Nothing
        End Try
    End Function
 
    Private Sub ShowSelectForm(ByVal Sheets() As String, ByVal FileName As String)
        If Sheets Is Nothing Then SelectedSheet = Nothing : Return
 
        Dim F As New Form, T As New TreeView, I As New ImageList, P As New Panel, B1, B2 As New Button
 
        With I
            .ColorDepth = ColorDepth.Depth32Bit
            .ImageSize = New Size(16, 16)
 
            .Images.Add("Книга", My.Resources.Images16x16.Excel)  'рисунок 16x16 px для названия файла excel
            .Images.Add("Документ", My.Resources.Images16x16.Документ)  'рисунок 16x16 px для названия листа excel
        End With
 
        With T
            .Name = "T"
            .ImageList = I : .Font = New Font("Arial", 10, FontStyle.Bold)
 
            .ShowPlusMinus = False : .ShowLines = False : .ShowRootLines = False
 
            Dim N As TreeNode = .Nodes.Add("Книга", FileIO.FileSystem.GetName(FileName), 0, 0)
            Dim nn As TreeNode
 
            For ni As Int16 = 0 To Sheets.Length - 1
                nn = N.Nodes.Add("Лист" & ni.ToString, Sheets(ni), 1, 1)
                nn.NodeFont = New Font(.Font, FontStyle.Regular)
            Next
 
            .ExpandAll()
        End With
 
        With F
            .Text = " Документ Excel"
            .ShowInTaskbar = False
            .StartPosition = FormStartPosition.CenterParent
            .FormBorderStyle = FormBorderStyle.FixedToolWindow
 
            .Height = .Height * 1.3
 
            .AcceptButton = B1 : .CancelButton = B2
 
            With P
                .Name = "P" : .Parent = F
                .Dock = DockStyle.Bottom
            End With
 
            With T
                .Parent = F
                .Dock = DockStyle.Fill
                .BringToFront()
 
                AddHandler .NodeMouseDoubleClick, AddressOf T_NodeDoubleClick
            End With
 
            With B2
                .Name = "B2"
                .Text = "Отмена"
                .Parent = P : .Top = 5
                .Left = P.Width - .Width - 5
 
                AddHandler .Click, AddressOf B2_Click
            End With
 
            With B1
                .Name = "B1"
                .Text = "Открыть"
                .Parent = P : .Top = 5
                .Left = B2.Left - .Width - 5
                .Font = New Font(.Font, FontStyle.Bold)
 
                AddHandler .Click, AddressOf B1_Click
            End With
 
            P.Height = B1.Height + 10
 
            AddHandler .Load, AddressOf F_Load
 
            .ShowDialog()
        End With
    End Sub
 
    Private Sub SetGridSettings(ByVal Grid As DataGridView)
        With Grid
            .ReadOnly = False : .MultiSelect = False
            .SelectionMode = DataGridViewSelectionMode.CellSelect
            .RowTemplate.Resizable = DataGridViewTriState.False
            .RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing
 
            For n As Integer = 0 To .ColumnCount - 1
                With .Columns(n)
                    .Resizable = DataGridViewTriState.False
                    .AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
                    .SortMode = DataGridViewColumnSortMode.NotSortable
                End With
            Next
        End With
    End Sub
 
    Private Sub F_Load(ByVal sender As Form, ByVal e As EventArgs)
        Dim T As TreeView = sender.Controls("T")
 
        With T
            .Select()
            If .Nodes(0).Nodes.Count > 0 Then .SelectedNode = .Nodes(0).Nodes(0)
        End With
 
        SelectedSheet = Nothing
    End Sub
 
    Private Sub B1_Click(ByVal sender As Button, ByVal e As EventArgs)
        Dim F As Form = sender.Parent.Parent, T As TreeView = F.Controls("T")
 
        Application.DoEvents()
 
        If Strings.Left(T.SelectedNode.Name, 4) = "Лист" Then
            F.DialogResult = DialogResult.OK
            SelectedSheet = T.SelectedNode.Text : F.Close()
        Else
            MsgBox("Необходимо выбрать лист.", MsgBoxStyle.Exclamation)
            T.Select()
        End If
    End Sub
 
    Private Sub B2_Click(ByVal sender As Button, ByVal e As EventArgs)
        Dim F As Form = sender.Parent.Parent
 
        F.DialogResult = DialogResult.Cancel
        SelectedSheet = Nothing : F.Close()
    End Sub
 
    Private Sub T_NodeDoubleClick(ByVal sender As TreeView, ByVal e As TreeNodeMouseClickEventArgs)
        If e.Node.Name = "Книга" Then sender.ExpandAll()
 
        B1_Click(sender.Parent.Controls("P").Controls("B1"), Nothing)
    End Sub
End Module
...при выполнении OpenSheet(DataGridView1) из любого места программы, сначала появится стандартный диалог открытия файла Excel, а затем после выбора такого файла появится окошко со списком листов выбранного файла Excel. После выбора нужного листа, он откроется в DataGridView1, который мы указали в качестве аргумента OpenSheet. Открытие нужного файла .xls или .xlsx произойдет даже, если Office вообще не установлен в системе (проверял на чистой Windows XP SP2 с .NET Framework, конечно). Ну с поиском по таблице, уверен, разберешься.

Добавлено через 13 секунд
Spread, вот как я реализовал открытие нужного листа Excel. Рекомендую весь этот код записать в отдельный модуль, чтобы не путать с другими процедурами. У меня этот модуль называется mdlExcel:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
Module mdlExcel
    Dim SelectedSheet As String
 
    Public Sub OpenSheet(ByVal Grid As DataGridView)
        Dim OpenDialog As New OpenFileDialog, FileName As String = ""
 
        With OpenDialog
            .Title = "Открыть документ Excel"
            .Filter = "Документы Excel|*.xls;*.xlsx"
 
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                FileName = .FileName : Application.DoEvents()
            Else
                Return
            End If
        End With
 
 
        ' Подключение к Excel. 
        Dim connection As OleDb.OleDbConnection, connectionString As String
 
        Try
            'Для Excel 12.0 
            connectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + FileName + "; Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
            connection = New OleDb.OleDbConnection(connectionString)
            connection.Open()
 
        Catch ex12 As Exception
            Try
                'Для более ранних версий 
                connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + FileName + "; Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
                connection = New OleDb.OleDbConnection(connectionString)
                connection.Open()
 
            Catch ex11 As Exception
                MsgBox("Неизвестная версия Excel или файл имеет неизвестный формат!", MsgBoxStyle.Exclamation)
                Return
            End Try
        End Try
 
        'Отобразить форму выбора листов
        ShowSelectForm(GetExcelSheetNames(connection), FileName)
        If SelectedSheet Is Nothing Then Return
 
        'Выборка данных 
        Dim command As OleDb.OleDbCommand = connection.CreateCommand()
        command.CommandText = "Select * From [" & SelectedSheet & "$]"
 
        Dim Adapter As New OleDb.OleDbDataAdapter(command), Table As New DataTable
 
        Adapter.Fill(Table) : connection.Close()
 
        With Grid
            .Visible = False : .Parent.Cursor = Cursors.WaitCursor
            .DataSource = Table : SetGridSettings(Grid)
            .Visible = True : .Parent.Cursor = Cursors.Default
        End With
    End Sub
 
    Private Function GetExcelSheetNames(ByVal connection As OleDb.OleDbConnection) As String()
        Dim Table As DataTable
 
        Try
            Table = connection.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
            If Table Is Nothing Then Return Nothing
 
            With Table
                Dim i As Integer = 0, SheetsArray() As String = Nothing, s As String
 
                For n As Integer = 0 To .Rows.Count - 1
                    s = .Rows(n).Item("TABLE_NAME").ToString.Trim(New Char() {"'"})
 
                    If Strings.Right(s, 1) = "$" Then
                        ReDim Preserve SheetsArray(i)
                        SheetsArray(i) = s.Trim(New Char() {"$"})
                        i += 1
                    End If
                Next
 
                Table.Dispose() : Return SheetsArray
            End With
 
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation)
            Return Nothing
        End Try
    End Function
 
    Private Sub ShowSelectForm(ByVal Sheets() As String, ByVal FileName As String)
        If Sheets Is Nothing Then SelectedSheet = Nothing : Return
 
        Dim F As New Form, T As New TreeView, I As New ImageList, P As New Panel, B1, B2 As New Button
 
        With I
            .ColorDepth = ColorDepth.Depth32Bit
            .ImageSize = New Size(16, 16)
 
            .Images.Add("Книга", My.Resources.Images16x16.Excel)  'рисунок 16x16 px для названия файла excel
            .Images.Add("Документ", My.Resources.Images16x16.Документ)  'рисунок 16x16 px для названия листа excel
        End With
 
        With T
            .Name = "T"
            .ImageList = I : .Font = New Font("Arial", 10, FontStyle.Bold)
 
            .ShowPlusMinus = False : .ShowLines = False : .ShowRootLines = False
 
            Dim N As TreeNode = .Nodes.Add("Книга", FileIO.FileSystem.GetName(FileName), 0, 0)
            Dim nn As TreeNode
 
            For ni As Int16 = 0 To Sheets.Length - 1
                nn = N.Nodes.Add("Лист" & ni.ToString, Sheets(ni), 1, 1)
                nn.NodeFont = New Font(.Font, FontStyle.Regular)
            Next
 
            .ExpandAll()
        End With
 
        With F
            .Text = " Документ Excel"
            .ShowInTaskbar = False
            .StartPosition = FormStartPosition.CenterParent
            .FormBorderStyle = FormBorderStyle.FixedToolWindow
 
            .Height = .Height * 1.3
 
            .AcceptButton = B1 : .CancelButton = B2
 
            With P
                .Name = "P" : .Parent = F
                .Dock = DockStyle.Bottom
            End With
 
            With T
                .Parent = F
                .Dock = DockStyle.Fill
                .BringToFront()
 
                AddHandler .NodeMouseDoubleClick, AddressOf T_NodeDoubleClick
            End With
 
            With B2
                .Name = "B2"
                .Text = "Отмена"
                .Parent = P : .Top = 5
                .Left = P.Width - .Width - 5
 
                AddHandler .Click, AddressOf B2_Click
            End With
 
            With B1
                .Name = "B1"
                .Text = "Открыть"
                .Parent = P : .Top = 5
                .Left = B2.Left - .Width - 5
                .Font = New Font(.Font, FontStyle.Bold)
 
                AddHandler .Click, AddressOf B1_Click
            End With
 
            P.Height = B1.Height + 10
 
            AddHandler .Load, AddressOf F_Load
 
            .ShowDialog()
        End With
    End Sub
 
    Private Sub SetGridSettings(ByVal Grid As DataGridView)
        With Grid
            .ReadOnly = False : .MultiSelect = False
            .SelectionMode = DataGridViewSelectionMode.CellSelect
            .RowTemplate.Resizable = DataGridViewTriState.False
            .RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing
 
            For n As Integer = 0 To .ColumnCount - 1
                With .Columns(n)
                    .Resizable = DataGridViewTriState.False
                    .AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
                    .SortMode = DataGridViewColumnSortMode.NotSortable
                End With
            Next
        End With
    End Sub
 
    Private Sub F_Load(ByVal sender As Form, ByVal e As EventArgs)
        Dim T As TreeView = sender.Controls("T")
 
        With T
            .Select()
            If .Nodes(0).Nodes.Count > 0 Then .SelectedNode = .Nodes(0).Nodes(0)
        End With
 
        SelectedSheet = Nothing
    End Sub
 
    Private Sub B1_Click(ByVal sender As Button, ByVal e As EventArgs)
        Dim F As Form = sender.Parent.Parent, T As TreeView = F.Controls("T")
 
        Application.DoEvents()
 
        If Strings.Left(T.SelectedNode.Name, 4) = "Лист" Then
            F.DialogResult = DialogResult.OK
            SelectedSheet = T.SelectedNode.Text : F.Close()
        Else
            MsgBox("Необходимо выбрать лист.", MsgBoxStyle.Exclamation)
            T.Select()
        End If
    End Sub
 
    Private Sub B2_Click(ByVal sender As Button, ByVal e As EventArgs)
        Dim F As Form = sender.Parent.Parent
 
        F.DialogResult = DialogResult.Cancel
        SelectedSheet = Nothing : F.Close()
    End Sub
 
    Private Sub T_NodeDoubleClick(ByVal sender As TreeView, ByVal e As TreeNodeMouseClickEventArgs)
        If e.Node.Name = "Книга" Then sender.ExpandAll()
 
        B1_Click(sender.Parent.Controls("P").Controls("B1"), Nothing)
    End Sub
End Module
...при выполнении OpenSheet(DataGridView1) из любого места программы, сначала появится стандартный диалог открытия файла Excel, а затем после выбора такого файла появится окошко со списком листов выбранного файла Excel. После выбора нужного листа, он откроется в DataGridView1, который мы указали в качестве аргумента OpenSheet. Открытие нужного файла .xls или .xlsx произойдет даже, если Office вообще не установлен в системе (проверял на чистой Windows XP SP2 с .NET Framework, конечно). Ну с поиском по таблице, уверен, разберешься.
0
147 / 147 / 41
Регистрация: 01.12.2009
Сообщений: 275
01.03.2012, 14:47 9
Spread
не работает
странно... тут проект VS 2008
0
Вложения
Тип файла: zip WindowsApplication3.zip (208.0 Кб, 134 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.03.2012, 14:47

Прочитать документ Excel и данные записать в структуру
Доброго времени, форумчане. Начал работать с Excel через C#. Необходимо считать документ и данные...

Как прочитать данные из двух файлов Excel?
Всем привет) Ребята, нужна ваша помощь! Есть два файла excel, у каждого файла есть две колонки мне...

Как из EXcel прочитать данные из таблицы БД MS SQL SErver?
Как из EXcel прочитать данные из таблицы БД MS SQL SErver. ВОобще такое возможно?

Прочитать данные из SQL и выгрузить их в Excel в зависимости от значений фильтров
у меня есть связанные два столбца из sql один я отображаю в excel в качестве данных, а второй...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.