Vb net сохранить файл excel

11 / 11 / 2

Регистрация: 17.02.2011

Сообщений: 145

Доброго времени суток.
Приведите, если не сложно, пару примеров работы с excel. Создание, открытие книги/страницы, сохрание в информации в определенную ячейку, сохранение документа.

1 / 1 / 0

Регистрация: 19.09.2011

Сообщений: 51

11 / 11 / 2

Регистрация: 17.02.2011

Сообщений: 145

Памирыч

21371 / 9105 / 1082

Регистрация: 11.04.2010

Сообщений: 11,014

11 / 11 / 2

Регистрация: 17.02.2011

Сообщений: 145

Юпатов Дмитрий

1706 / 1194 / 227

Регистрация: 23.12.2010

Сообщений: 1,526

1)Добавляем в референцы ссылку на Microsoft Excel 11 object library

далее:

1
2
3
4

Dim _excel as new microsoft.office.interop.excel.application
Dim _workbook as microsoft.office.interop.excel.workbook
_excel.visible=true'отображаем пустой эксель на экране
_workbook=excel.worcbooks.add()'cjplftv новую книгу на основе шаблона по-умолчанию. Если нужен конкретный шаблон, то в скобках указать полный путь к файлу, который будет шаблоном

итог: имеешь экземпляр экселя в переменной _excel и экземпляр книги _workbook. Делай с ними что хошь.
Активация нужного листа в книге:

1

_workbook.sheets(2).activate

активирует лист за номером 2 в книге.
Все остальное — см члены переменных _excel и _workbook. Плюс пользуйся макрорекордером, встроенным в эксель. Там синтаксис на 90% совпадет, ну разве что по мелочам поменяешь.

Еще: в самом начале мы добавили ссылку на библу экселя. Это называется «раннее связывание».
Можно было не добавлять. Тогда это позднее связывание. Тогда ситуация такая:

1
2

Dim _excel as object
Dim _workbook as object

если эксель запущен, можно подхватить активный экземпляр

1

_excel = getobject("Excel.Application")

или, если фрагмент выше в итоге останется nothing, можно создать новый

1

_excel = createobject("Excel.Application")

далее так же как и по первому примеру. Только нужно хорошо знать объектную модель экселя: члены не будут видны при написании кода.
Примерно так. За 100% корректность синтаксиса не ручаюсь — писал на коленке, но работаю с вордом и экселем часто, так что сильно не наопечатывался.

am-wrag

11 / 11 / 2

Регистрация: 17.02.2011

Сообщений: 145

Обьясни как.
Я так понял это через

1

Import ...

А здесь что именно писать?

Добавлено через 6 минут
Нашол где чо, только у меня Microsoft Excel 14 object library или здесь без разницы, прсото версия поновей?

Добавлено через 6 минут
От себя дабавлю что пример Памирыч не применим для стартового изучения, поскольку без импорта библиотеки не выскакивают подсказки с вариантами, а без этого лично мне очень тяжео разобраться.

21371 / 9105 / 1082

Регистрация: 11.04.2010

Сообщений: 11,014

Согласен, но я отказался от библ, уж больно их не охота таскать за прогой.
Насчет стартового изучения — полностью за.

am-wrag

11 / 11 / 2

Регистрация: 17.02.2011

Сообщений: 145

Обьясните плиз чем отличаются обьекты

1
2

Dim книга As Workbook, book As _Workbook
Dim лст As Worksheet, lst As _Worksheet

Допустим просто Worksheet совершенно не подходит для работы, у него совершенно отсутвуют параметры в отличие от такогоже но с _

1706 / 1194 / 227

Регистрация: 23.12.2010

Сообщений: 1,526

это у тебя просо офис поновее. Кажется 2010.

В данном случае и не надо таскать библу экселя с собой. Для этого в референцах параметр «копировать локально» ставим в false и все, библа не будет добавляться в пакет установки. А работать даже перетащенная, она без установленного экселя все равно не будет. Так что на конечной машине наличие экселя — обязательно.

Конечно, но можно пойти на хитрость:
1) в начале проектирования добавляем библу, пишем код, тестим.
2) На финише типы переменных, завязанные на эту библу, меняем на object, в референцах удаляем ссылку на библу.
Вуаля! Получаем в итоге позднее связывание с удобствами проектирования раннего.

am-wrag

11 / 11 / 2

Регистрация: 17.02.2011

Сообщений: 145

Почемуто после каждого сохраниения в процессах остается событие EXCEL.EXE, которое продолжает множится при последующих сохранениях.
В коде имеется

1

xls.ActiveWorkbook.Close() :  xls.Quit()

21371 / 9105 / 1082

Регистрация: 11.04.2010

Сообщений: 11,014

Юпатов Дмитрий

1706 / 1194 / 227

Регистрация: 23.12.2010

Сообщений: 1,526

попробуй сделать после всего

1

xls.Dispose

потому как хоть ты эксель и закрыл, но переменная осталась.
Ручаться не стану, но вполне может помочь.
Однако это не очень красиво, т.к. снова использовать объект xls ты сможешь только после рестарта программы (уничтожаем саму переменную, а не значение)

11 / 11 / 2

Регистрация: 17.02.2011

Сообщений: 145

Когда прога закрывается процессы пропадают. Заметил тут ещё такую чтуку: сохранять позволяет в эксель токлько первый раз, затем процесс сохранения не пашет…

Памирыч

21371 / 9105 / 1082

Регистрация: 11.04.2010

Сообщений: 11,014

Работа такого кода представлена на скрине, в ходе работы программы не было ни одной ошибки:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Public Class Form1
    Dim appExcel As Object
    Dim I As Integer = 0
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        appExcel = CreateObject("Excel.Application")
        appExcel.Workbooks.Open("C:1.xls")
        appExcel.Visible = False
        With appExcel.ActiveSheet
            .Range("C" & I + 1).Value = "QWERTY" & I
        End With
        appExcel.Workbooks(1).Close(True)
        appExcel.Quit()
        I += 1
    End Sub
End Class

Миниатюры

am-wrag

11 / 11 / 2

Регистрация: 17.02.2011

Сообщений: 145

Вот мои проекты, вроде отличий минимум… Код загрузки информации в лист бокс работает прекрасно(если не брать в расчет лишних процессoв). Код сохранения не сохраняет, ума не приложу почему…
Части кода отвечающие за передачу информации о контролах работают абсолютно верно, неодноркатно проверял. Проблема именно в процессе сохранения данных в эксель.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

Private Sub SaveOpt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveOpt.Click
        SaveF.Filter = "Excele 2003 файл настроек (*.xls)|*.xls"
        SaveF.FileName = "Opt_XAR" : SaveF.ShowDialog()
        xls = New Microsoft.Office.Interop.Excel.Application
        Try
            книга = xls.Workbooks.Open(SaveF.FileName) : книга.Activate() : b = 0
        Catch
            книга = xls.Workbooks.Add : книга.Activate() : b = 1
        End Try
        лст = книга.Sheets(1) : c = 1
        For n = 0 To main.TabControl1.TabPages.Count - 1
            For i = c To c - 1 + main.TabControl1.TabPages(n).Controls.Count / 2
                лст.Cells(i, 1) = main.TabControl1.TabPages(n).Controls("LB" & i).Text
                лст.Cells(i, 2) = main.TabControl1.TabPages(n).Controls("TB" & i).Text
            Next
            If n = 0 Then c += 20 Else c += 30
        Next
        лст.Cells(1, 4) = main.Find_name.Text
        If b = 0 Then xls.ActiveWorkbook.Save() Else xls.ActiveWorkbook.SaveAs(SaveF.FileName)
        книга.Close(True) : xls.Quit()
    End Sub

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

 Private Sub OpnOpt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpnOpt.Click
        table = Nothing
        table = New Data.DataTable
        table.Columns.Add("1") : table.Columns.Add("2")
        OpnF.Filter = "Файл настроек (*.xls)|*.xls"
        OpnF.FileName = "Opt_XAR"
        OpnF.ShowDialog()
        Try
            xls = New Microsoft.Office.Interop.Excel.Application
            книга = xls.Workbooks.Open(OpnF.FileName)
            лст = книга.Sheets(1)
            InX.Items.Clear() 
            For i = 1 To лст.UsedRange.Rows.Count
                InX.Items.Add(лст.Cells(i, 1).value2)
                If лст.Cells(i, 2).value2 Is Nothing Then
                Else
                    table.Rows.Add()
                    table.Rows.Item(c).Item(0) = лст.Cells(i, 1).value2
                    table.Rows.Item(c).Item(1) = лст.Cells(i, 2).value2                    
                End If
            Next
            книга.Close(True) : xls.Quit() : ind = 1            
        Catch
            ind = 0
        End Try
    End Sub

Добавлено через 1 час 48 минут
Забыл про обьявления

1
2
3
4
5
6
7
8
9

Imports System.Data
Imports System.IO
Imports Microsoft.Office.Interop.Excel
Public ind, x As Integer
    Dim xls As Application
    Dim книга As Workbook
    Dim лст As _Worksheet, c, b As Integer 
    Dim rng As Range
    Public table As Data.DataTable

ctac1412

18 / 18 / 2

Регистрация: 12.02.2013

Сообщений: 387

Памирыч, Добрый день! Очень мало инфы по exel для неопытных пользователей в интернете. Если не затрудник, не могли бы взглянуть на проблему?
с тем как записать и вывести значение + закрывание процесса я разобрался…. Но теперь не могу сдеать основное действие.
Нужно найти первую ячейку в столбике B2 по формату( любой цвет который введем, допустим черный)Найти- разукрасить в красный и выдать нам сообщение, причем ячеек может быть не 1 , что мы и спрашиваем в inputbox. В vba у меня получилось, а сюда перенести не могу….. Ошибка выскакивает на _Excel.xlFormulas, xlPart, xlByColumns..в общем уточняющих… Как верно нужно объявлять? Он пишет что они не относятся к _Excel

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

        Dim _Excel As New Application 'Приложение Excel
        Dim Книга As Workbook = _Excel.Workbooks.Open("C:UsersStanislavDesktoptest.xlsx", [ReadOnly]:=False) 'Открываем книгу
        Dim Лист As Worksheet = CType(Книга.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet) 'Первый лист книги
        Try
            _Excel.Range("B1").Select()
        With _Excel.Application.FindFormat.Font
            .Name = "Calibri"
            .FontStyle = "обычный"
            .Size = 11
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
 
            .Color = -1003520
            .TintAndShade = 0
        End With
        _Excel.Cells.Find(What:="", After:=_Excel.ActiveCell, LookIn:=_Excel.xlFormulas, LookAt:=
        _Excel.xlPart, SearchOrder:=_Excel.xlByColumns, SearchDirection:=_Excel.xlNext, MatchCase:=
        False, SearchFormat:=True).Activate()
        _Excel.ActiveCell.Value = "Привет"

Добавлено через 37 минут
Памирыч, нашел рабочий пример на англиццком, если поможете подогнать под мою задачу, было бы отлично…. как задать формат поиска, а не row искать.

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

Imports Excel = Microsoft.Office.Interop.Excel
 
Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim xlApp As New Excel.Application
        Dim xlWb As Excel.Workbook
        Dim xlsheet As Excel.Worksheet
        Dim lRow As Long = 0
 
        With xlApp
            .Visible = True
 
            '~~> Open workbook
            xlWb = .Workbooks.Open("c:Sample.xlsx")
 
            '~~> Set it to the relevant sheet
            xlsheet = xlWb.Sheets("Sheet1")
 
            With xlsheet
                '~~> Check if there is any data in the sheet
                If xlApp.WorksheetFunction.CountA(.Cells) <> 0 Then
                    lRow = .Cells.Find(What:="*", _
                                  After:=.Range("A1"), _
                                  LookAt:=Excel.XlLookAt.xlPart, _
                                  LookIn:=Excel.XlFindLookIn.xlFormulas, _
                                  SearchOrder:=Excel.XlSearchOrder.xlByRows, _
                                  SearchDirection:=Excel.XlSearchDirection.xlPrevious, _
                                  MatchCase:=False).Row
                Else
                    lRow = 1
                End If
            End With
 
            MessageBox.Show("The last row in Sheet1 which has data is " & lRow)
 
            '~~> Close workbook and quit Excel
            xlWb.Close(False)
            xlApp.Quit()
 
            '~~> Clean Up
            releaseObject(xlsheet)
            releaseObject(xlWb)
            releaseObject(xlApp)
 
        End With
    End Sub
 
    Private Sub releaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub
End Class

Автор http://www.siddharthrout.com/2… rettyPhoto

21371 / 9105 / 1082

Регистрация: 11.04.2010

Сообщений: 11,014

Sallivan_Bidl

0 / 0 / 0

Регистрация: 12.07.2015

Сообщений: 2

Этот кусок кода реально помог почистить паразитные процессы Excel, остающиеся в системе.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

'~~> Clean Up
            releaseObject(xlsheet)
            releaseObject(xlWb)
            releaseObject(xlApp)
 
        End With
    End Sub
 
    Private Sub releaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub

Только вот этого кода почему-то было недостаточно.

1
2

xlApp.Quit()
xlApp=Nothing

ctac1412, Спасибо!

174 / 64 / 13

Регистрация: 22.12.2015

Сообщений: 2,648

а это для чего?