Вывод в excel / WinForms, .Net Framework

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Вывод в excel

21 сообщений из 21, страница 1 из 1

Вывод в excel

#39455439

fantanol

Гость

Здравствуйте. У меня есть такой код на вывод:

Ну и сам результат на скрине. Не подскажите,как можно это все в рамки добавить,заголовок больше сделать и т.д. Если простыми словами,сделать чтобы все смотрелось красиво)
И как можно выделить все записи,либо одно определенную? (ибо выводится только последняя в таблице)
Спасибо

p.s под ## показывается дата,если растянуть столбец.

Код: vbnet

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Ex.Visible = True
        BookEx = Ex.Workbooks.Add
        PageEx = BookEx.Worksheets(1)
        PageEx.Activate()
        PageEx.Range("a1:d1").MergeCells = True
        PageEx.Range("a1:d1").Value = "Личная карточка сотрудника"
        PageEx.Range("a1:d1").HorizontalAlignment = XlHAlign.xlHAlignCenter
        PageEx.Range("a2").Value = "Общие сведения"
        PageEx.Range("a6").Value = "Фамилия"
        PageEx.Range("a7").Value = "Имя"
        PageEx.Range("a8").Value = "Отчество"
        PageEx.Range("a9").Value = "Пол"
        PageEx.Range("a10").Value = "Дата рождения"
        PageEx.Range("a11").Value = "Место рождения"
        PageEx.Range("a12").Value = "Семейное положение"
        PageEx.Range("a13").Value = "Домашний адрес"
        PageEx.Range("a14").Value = "Мобильный телефон"
        PageEx.Range("a15").Value = "Дата приёма"
        PageEx.Range("a17").Value = "Сведения о воинском учете"
        PageEx.Range("a19").Value = "Группа учета"
        PageEx.Range("a20").Value = "Категория учета"
        PageEx.Range("a21").Value = "Состав"
        PageEx.Range("a22").Value = "Годность"
        PageEx.Range("a23").Value = "Название военкомата"
        PageEx.Range("a25").Value = "Сведения об образовании"
        PageEx.Range("a27").Value = "Вид образования"
        PageEx.Range("a28").Value = "Вид обучения"
        PageEx.Range("a30").Value = "Сведения об образовании"
        PageEx.Range("a32").Value = "Номер"
        PageEx.Range("a33").Value = "Кем выдан"
        PageEx.Range("a34").Value = "Дата выдачи"

        cmd.Connection = cn
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "SELECT * FROM karta"

        cn.Open()
        dr = cmd.ExecuteReader()

        Dim i As Integer
        i = 5
        While dr.Read
            PageEx.Cells(6, i) = dr("Фамилия")
            PageEx.Cells(7, i) = dr("Имя")
            PageEx.Cells(8, i) = dr("Отчество")
            PageEx.Cells(9, i) = dr("Пол")
            PageEx.Cells(10, i) = dr("Дата_рождения")
            PageEx.Cells(11, i) = dr("Место_рождения")
            PageEx.Cells(12, i) = dr("Семейное_положение")
            PageEx.Cells(13, i) = dr("Домашний_адрес")
            PageEx.Cells(14, i) = dr("Мобильный_телефон")
            PageEx.Cells(15, i) = dr("Дата_приема")
            PageEx.Cells(19, i) = dr("Группа_учета")
            PageEx.Cells(20, i) = dr("Категория_учета")
            PageEx.Cells(21, i) = dr("Состав")
            PageEx.Cells(22, i) = dr("Годность")
            PageEx.Cells(23, i) = dr("Название_военкомата")
            PageEx.Cells(27, i) = dr("Вид_образования")
            PageEx.Cells(28, i) = dr("Вид_обучения")
            PageEx.Cells(32, i) = dr("Номер")
            PageEx.Cells(33, i) = dr("Кем_выдан")
            PageEx.Cells(34, i) = dr("Дата_выдачи")
        End While
        cn.Close()
    End Sub
End Class

...

Рейтинг:

0 / 0

18.05.2017, 14:46

| Ответить | Цитировать | Написать

Вывод в excel

#39455444

Roman Mejtes

Участник

Откуда: г. Пермь

Сообщения: 4 264

Рейтинг: 0 / 0

это EPPlus? код не информативен, типы явно ни где не указаны, мы должны догадаться об этом?
какой библиотеку вы используйте для работы с Excel?

...

Рейтинг:

0 / 0

18.05.2017, 14:49

| Ответить | Цитировать | Написать

Вывод в excel

#39455452

fantanol

Гость

Roman Mejtes,

Еще это прописываю в самом верху:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.

Imports Microsoft.Office.Interop.Excel
Imports System.Data
Imports System.Data.SqlClient
Public Class Form4
    Dim Ex As New Application
    Dim BookEx As Workbook
    Dim PageEx As Worksheet

Вот что подключаю(скрин)
Excel стандартный
Больше ничего нет.

...

Рейтинг:

0 / 0

18.05.2017, 14:58

| Ответить | Цитировать | Написать

Вывод в excel

#39455491

fantanol

Гость

Для примера

...

Рейтинг:

0 / 0

18.05.2017, 15:54

| Ответить | Цитировать | Написать

Вывод в excel

#39455508

refreg

Участник

Откуда: Саратов

Сообщения: 743

Рейтинг: 0 / 0

fantanol,

Включаешь макрос на запись, редактируешь лист.
Останавливаешь. Анализируешь полученный макрос.

...

Рейтинг:

0 / 0

18.05.2017, 16:16

| Ответить | Цитировать | Написать

Вывод в excel

#39455533

fantanol

Гость

refregfantanol,

Включаешь макрос на запись, редактируешь лист.
Останавливаешь. Анализируешь полученный макрос.
Можно пожалуйста подробнее,как всё это сделать?

...

Рейтинг:

0 / 0

18.05.2017, 16:43

| Ответить | Цитировать | Написать

Вывод в excel

#39455610

fantanol

Гость

Вроде получилось получить код.

Можете помочь убрать ошибки?

Код: vbnet

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.
224.
225.
226.
227.
228.
229.
230.
231.
232.
233.
234.
235.
236.
237.
238.
239.
240.
241.
242.
243.
244.
245.
246.
247.
248.
249.
250.
251.
252.
253.
254.
255.
256.
257.
258.
259.
260.
261.
262.
263.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
277.
278.
279.
280.
281.
282.
283.
284.
285.
286.
287.
288.
289.
290.
291.
292.
293.
294.
295.
296.
297.
298.
299.
300.
301.
302.
303.
304.
305.
306.
307.
308.
309.
310.
311.
312.
313.
314.
315.
316.
317.
318.
319.
320.
321.
322.
323.
324.

Range("A1:F35").Select
    Range("F35").Activate
    With Selection.Font
        .Name = "Times New Roman"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Range("A1:E1").Select
    Range("E1").Activate
    With Selection.Font
        .Name = "Times New Roman"
        .Size = 15
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Selection.UnMerge
    Range("A1:E1").Select
    Range("E1").Activate
    With Selection.Font
        .Name = "Times New Roman"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Selection.Font.Italic = True
    Selection.Font.Bold = True
    Range("A2:E2").Select
    Range("E2").Activate
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Selection.Font.Bold = True
    With Selection.Font
        .Name = "Times New Roman"
        .Size = 13
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Range("A6:E15").Select
    Range("E15").Activate
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("A19:E23").Select
    Range("E23").Activate
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("A27:E28").Select
    Range("E28").Activate
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("A32:E34").Select
    Range("E34").Activate
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("A30:E30").Select
    Range("E30").Activate
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Selection.Font.Italic = True
    Selection.Font.Bold = True
    With Selection.Font
        .Name = "Times New Roman"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Range("A25:E25").Select
    Range("E25").Activate
    With Selection.Font
        .Name = "Times New Roman"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Selection.Font.Bold = True
    Selection.Font.Italic = True
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Range("A17:E17").Select
    Range("E17").Activate
    With Selection.Font
        .Name = "Times New Roman"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Selection.Font.Italic = True
    Selection.Font.Bold = True
    Range("I16").Select

...

Рейтинг:

0 / 0

18.05.2017, 18:23

| Ответить | Цитировать | Написать

Вывод в excel

#39455658

refreg

Участник

Откуда: Саратов

Сообщения: 743

Рейтинг: 0 / 0

fantanol,

fantanolМожете помочь убрать ошибки?Идентификаторы типа xlXXXXX - это числовые константы. Можно прямо в коде их значения посмотреть.
Может, где и есть список констант, но я этим не интересовался.

...

Рейтинг:

0 / 0

18.05.2017, 20:23

| Ответить | Цитировать | Написать

Вывод в excel

#39455808

Barkan

Участник

Откуда: Дремучее заМКАДье

Сообщения: 508

Рейтинг: 0 / 0

fantanol,

Как вариант - сперва нарисуй требуемого вида таблицу, сохрани и используй как шаблон для заполнения.

...

Рейтинг:

0 / 0

19.05.2017, 08:52

| Ответить | Цитировать | Написать

Вывод в excel

#39455892

fantanol

Гость

Barkanfantanol,

Как вариант - сперва нарисуй требуемого вида таблицу, сохрани и используй как шаблон для заполнения.
Идея хорошая,а как прописать путь чтобы мой файл выбирался?

...

Рейтинг:

0 / 0

19.05.2017, 10:32

| Ответить | Цитировать | Написать

Вывод в excel

#39455970

Barkan

Участник

Откуда: Дремучее заМКАДье

Сообщения: 508

Рейтинг: 0 / 0

fantanol,

Вообще то я такой способ заполнения XLS не практикую,
но думаю должно быть что-то типа Workbooks.Open("путь_к_файлу_шаблона").

...

Рейтинг:

0 / 0

19.05.2017, 11:29

| Ответить | Цитировать | Написать

Вывод в excel

#39456632

Dim2000

Участник

Откуда: Москва

Сообщения: 5 439

Рейтинг: 0 / 0

19.05.2017 11:29, Barkan пишет:

> но думаю должно быть что-то типа Workbooks.Open("путь_к_файлу_шаблона").

Именно так.
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

20.05.2017, 15:04

| Ответить | Цитировать | Написать

Вывод в excel

#39456740

fantanol

Гость

Dim200019.05.2017 11:29, Barkan пишет:

> но думаю должно быть что-то типа Workbooks.Open("путь_к_файлу_шаблона").

Именно так.

...

Рейтинг:

0 / 0

20.05.2017, 23:46

| Ответить | Цитировать | Написать

Вывод в excel

#39456742

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Ииии? Что непонятно в русском сообщении об ошибке?

Далее - Workbooks.Open возвращает книгу (WorkBook), а не Excel.Application
Далее - Workbooks.Add уже не нужен, ты ведь открываешь книгу с диска.

...

Рейтинг:

0 / 0

21.05.2017, 00:00

| Ответить | Цитировать | Написать

Вывод в excel

#39456750

fantanol

Гость

Shocker.ProИиии? Что непонятно в русском сообщении об ошибке?

Далее - Workbooks.Open возвращает книгу (WorkBook), а не Excel.Application
Далее - Workbooks.Add уже не нужен, ты ведь открываешь книгу с диска.
Вы про это?

...

Рейтинг:

0 / 0

21.05.2017, 00:38

| Ответить | Цитировать | Написать

Вывод в excel

#39456753

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

fantanol

Код: vbnet

1.
2.

    Dim Ex As New Application
    Dim BookEx As Workbook

У WorkBook нет свойства Workbooks. Да и сам BookEx скорее всего равен Null, о чем опять же по-русски сообщает студия.

...

Рейтинг:

0 / 0

21.05.2017, 00:49

| Ответить | Цитировать | Написать

Вывод в excel

#39456756

fantanol

Гость

Shocker.Profantanol

Код: vbnet

1.
2.

    Dim Ex As New Application
    Dim BookEx As Workbook

У WorkBook нет свойства Workbooks. Да и сам BookEx скорее всего равен Null, о чем опять же по-русски сообщает студия.
Так что же мне делать то?(

...

Рейтинг:

0 / 0

21.05.2017, 01:04

| Ответить | Цитировать | Написать

Вывод в excel

#39456799

Dim2000

Участник

Откуда: Москва

Сообщения: 5 439

Рейтинг: 0 / 0

21.05.2017 1:04, fantanol пишет:

> Так что же мне делать то?(

Включить мозги.
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

21.05.2017, 10:35

| Ответить | Цитировать | Написать

Вывод в excel

#39456814

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Еще раз.
У тебя есть экземпляр экселяfantanol

Код: vbnet

 Dim Ex As New Application

...

Рейтинг:

0 / 0

21.05.2017, 11:30

| Ответить | Цитировать | Написать

Вывод в excel

#39456944

fantanol

Гость

Shocker.ProЕще раз.
У тебя есть экземпляр экселяfantanol

Код: vbnet

 Dim Ex As New Application

У него есть свойство Workbooks, ты же его использовал до этого, почему ты переключился на экземпляр книги-то? Сам метод возвращает книгу, так зачем же ты пытаешься присвоить книгу переменной типа Excel.Application?
Или ты тупо копипастишь чей-то чужой код? Ну так надо в нем разобраться сначала, а не методом тыка искать решение. Тебе дают подсказки, весь код за тебя писать никто не будет.
У меня был код из лабораторных. Сейчас решил его улучшить. Сомневаюсь,что для открытия готового файла нужно написать кучу кода.
Вывод из грида то у меня уже есть.

...

Рейтинг:

0 / 0

21.05.2017, 21:16

| Ответить | Цитировать | Написать

Вывод в excel

#39457049

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

fantanolУ меня был код из лабораторных. Сейчас решил его улучшить.Пропустил один пункт. Сначала нужно его понять, а потом улучшать.

...

Рейтинг:

0 / 0

22.05.2017, 08:36

| Ответить | Цитировать | Написать

21 сообщений из 21, страница 1 из 1

Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Вывод в excel

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=20&msg=39455892&tid=1399894]:	0ms
get settings:	9ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	157ms
get topic data:	10ms
get forum data:	3ms
get page messages:	56ms
get tp. blocked users:	1ms
others:	14ms

total:	271ms