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

2.0.52

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

Гость

Нов. | Гор. | Избр.

Действия ...

Доб. в избранное
Игнор. тему
Прикреп. тему
Пометить прочит. / непрочит.
Фильтр:
Сообщения автора темы
Сообщение содержит вложения
Сообщение содержит картинки
Сообщение содержит видеоклипы
Сообщение содержит аудиоклипы
Сообщение содержит картинки или видео 18+

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

18.05.2017, 14:46

#39455439

fantanol

Гость

Вывод в excel

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

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

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:49

#39455444

Roman Mejtes

Участник

Откуда: г. Пермь
Сообщения: 4 264
Рейтинг: 0 / 0

Вывод в excel

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

...

Рейтинг:

0 / 0

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

18.05.2017, 14:58

#39455452

fantanol

Гость

Вывод в excel

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, 15:54

#39455491

fantanol

Гость

Вывод в excel

Для примера

...

Рейтинг:

0 / 0

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

18.05.2017, 16:16

#39455508

refreg

Участник

Откуда: Саратов
Сообщения: 743
Рейтинг: 0 / 0

Вывод в excel

fantanol,

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

...

Рейтинг:

0 / 0

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

18.05.2017, 16:43

#39455533

fantanol

Гость

Вывод в excel

refregfantanol,

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

...

Рейтинг:

0 / 0

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

18.05.2017, 18:23

#39455610

fantanol

Гость

Вывод в excel

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

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

Код: 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, 20:23

#39455658

refreg

Участник

Откуда: Саратов
Сообщения: 743
Рейтинг: 0 / 0

Вывод в excel

fantanol,

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

...

Рейтинг:

0 / 0

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

19.05.2017, 08:52

#39455808

Barkan

Участник

Откуда: Дремучее заМКАДье
Сообщения: 508
Рейтинг: 0 / 0

Вывод в excel

fantanol,

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

...

Рейтинг:

0 / 0

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

19.05.2017, 10:32

#39455892

fantanol

Гость

Вывод в excel

Barkanfantanol,

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

...

Рейтинг:

0 / 0

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

19.05.2017, 11:29

#39455970

Barkan

Участник

Откуда: Дремучее заМКАДье
Сообщения: 508
Рейтинг: 0 / 0

Вывод в excel

fantanol,

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

...

Рейтинг:

0 / 0

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

20.05.2017, 15:04

#39456632

Dim2000

Участник

Откуда: Москва
Сообщения: 5 439
Рейтинг: 0 / 0

Вывод в excel

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

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

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

...

Рейтинг:

0 / 0

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

20.05.2017, 23:46

#39456740

fantanol

Гость

Вывод в excel

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

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

Именно так.

...

Рейтинг:

0 / 0

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

21.05.2017, 00:00

#39456742

Shocker.Pro

Участник

Откуда: ->|<- :адуктО
Сообщения: 23 134
Рейтинг: 0 / 0

Вывод в excel

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

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

...

Рейтинг:

0 / 0

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

21.05.2017, 00:38

#39456750

fantanol

Гость

Вывод в excel

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

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

...

Рейтинг:

0 / 0

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

21.05.2017, 00:49

#39456753

Shocker.Pro

Участник

Откуда: ->|<- :адуктО
Сообщения: 23 134
Рейтинг: 0 / 0

Вывод в excel

fantanol

Код: vbnet

1.
2.

    Dim Ex As New Application
    Dim BookEx As Workbook

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

...

Рейтинг:

0 / 0

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

21.05.2017, 01:04

#39456756

fantanol

Гость

Вывод в excel

Shocker.Profantanol

Код: vbnet

1.
2.

    Dim Ex As New Application
    Dim BookEx As Workbook

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

...

Рейтинг:

0 / 0

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

21.05.2017, 10:35

#39456799

Dim2000

Участник

Откуда: Москва
Сообщения: 5 439
Рейтинг: 0 / 0

Вывод в excel

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

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

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

...

Рейтинг:

0 / 0

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

21.05.2017, 11:30

#39456814

Shocker.Pro

Участник

Откуда: ->|<- :адуктО
Сообщения: 23 134
Рейтинг: 0 / 0

Вывод в excel

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

Код: vbnet

 Dim Ex As New Application

...

Рейтинг:

0 / 0

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

21.05.2017, 21:16

#39456944

fantanol

Гость

Вывод в excel

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

Код: vbnet

 Dim Ex As New Application

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

...

Рейтинг:

0 / 0

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

22.05.2017, 08:36

#39457049

Shocker.Pro

Участник

Откуда: ->|<- :адуктО
Сообщения: 23 134
Рейтинг: 0 / 0

Вывод в excel

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

...

Рейтинг:

0 / 0

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

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

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

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

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

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

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

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

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

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

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

total:	178ms