Форматирование ячеек в excel программно

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

Private Sub ToExcel()
        Dim xlApp As Excel.Application
        Dim xlWorkBook As Excel.Workbook
        Dim xlWorkSheet As Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value
        Dim i As Integer
        Dim j As Integer
 
        xlApp = New Excel.Application
        xlApp.Visible = True
        xlWorkBook = xlApp.Workbooks.Add(misValue)
        xlWorkSheet = xlWorkBook.Sheets("Лист1")
 
 
        For i = 0 To Grid1.RowCount - 1
            For j = 0 To Grid1.ColumnCount - 1
                For k As Integer = 1 To Grid1.Columns.Count
 
                    xlWorkSheet.Cells(1, k) = Grid1.Columns(k - 1).HeaderText
                    xlWorkSheet.Cells(i + 1, j + 1) = _
                        Grid1(j, i).Value.ToString()
                Next
            Next
        Next
 
        xlWorkSheet.Cells(i + 1, j + 1).Columns.AutoFit()
        xlWorkSheet.SaveAs("C:DM.xls")
        xlWorkBook.Close()
        xlApp.Quit()
 
        releaseObject(xlApp)
        releaseObject(xlWorkBook)
       releaseObject(xlWorkSheet)
 
        'MsgBox("Ваш файл сохранен в C:DM.xls")
    End Sub
 
    Private Sub ReleaseObject(ByVal obj As Object)
        'процедура выгрузки объектов из памяти
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
            MessageBox.Show("Exception occured while releasing object " + ex.ToString())
        Finally
            GC.Collect()
        End Try
    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
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

 Private Sub WriteToExcel(ByVal Filename As String, ByVal tbl As DataTable)
 
        Dim xlApp As Excel.Application = Nothing
        Dim xlbook As Excel.Workbook = Nothing
        Dim xlsheet As Excel.Worksheet = Nothing
        xlApp = New Excel.Application()
 
        Try
            xlApp.Visible = False
            xlbook = xlApp.Workbooks.Add(Excel.XlWBATemplate.xlWBATWorksheet)
            xlbook.Activate()
 
            xlsheet = xlbook.Sheets.Item(1)
            xlsheet.Select()
            xlsheet.Name = "Отчет"
            With xlbook.ActiveSheet
                 
                ' Пишем и форматируем названия столбцов из DataGridView
                For n As Integer = 1 To DataGridView1.Columns.Count - 1
                    .cells(1, n) = DataGridView1.Columns(n).HeaderText ' Пишем данные в ячейку
                    .cells(1, n).Select() ' Выделяем только что записанную ячейку
                    xlApp.Selection.Font.ColorIndex = 1 ' Задаём цвет текста
                    xlApp.Selection.Font.Name = "Century Gothic" ' Задаем шрифт
                    xlApp.Selection.Font.Bold = True ' Задаём жирный шрифт
                    xlApp.Selection.Font.Size = 12 ' Задаём размер текста
                    xlApp.Selection.Borders.Weight = 3 ' Задаём толщину внешних границ ячейки
                    xlApp.Selection.HorizontalAlignment = -4108 ' Задаём вырввнивание текста внутри ячейки
                Next
 
                ' Пишем и форматируем ячейки с данными из DataTable
                For i As Integer = 0 To tbl.Rows.Count - 1
                    For j As Integer = 1 To tbl.Columns.Count - 1
                        .Cells(i + 2, j) = tbl.Rows(i).Item(j)
                        .cells(i + 2, j).Select()
                        xlApp.Selection.Font.Name = "Century Gothic"
                        xlApp.Selection.Font.ColorIndex = 1
                        xlApp.Selection.Font.Size = 10
                        xlApp.Selection.Borders.LineStyle = 1
                        xlApp.Selection.HorizontalAlignment = -4152
                    Next
                Next
            End With
 
            xlsheet.UsedRange.Columns.AutoFit()
 
            xlbook.SaveAs(Filename)
            xlbook.Close()
            xlApp.Quit()
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            xlsheet = Nothing
            xlbook = Nothing
            xlApp = Nothing
            KillProc("excel")
        End Try
 
    End Sub

1

xlsheet.UsedRange.Columns.AutoFit()

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

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    DataGridView1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
    Dim eApp As New XLS.Application
    Dim eBooks As XLS.Workbooks = eApp.Workbooks
    Dim eBook As XLS.Workbook = eBooks.Add
    Dim eSheet As XLS.Worksheet = eBook.ActiveSheet
    Dim eRange As XLS.Range = eSheet.Range("C2")
    eSheet.Name = "Test"
    DataGridView1.SelectAll()
    If DataGridView1.GetCellCount(DataGridViewElementStates.Selected) > 0 Then
        Try
            Clipboard.Clear()
            Clipboard.SetDataObject(DataGridView1.GetClipboardContent(), False)
            eRange.PasteSpecial(Microsoft.Office.Interop.Excel.XlPasteType.xlPasteAll, Microsoft.Office.Interop.Excel.XlPasteSpecialOperation.xlPasteSpecialOperationAdd)
            Dim eRng As XLS.Range = eSheet.UsedRange
            eRng.AutoFormat(32)
            'добавляем недостающее
            With eRng.Borders(7) 'xlEdgeLeft = 7
                .LineStyle = 1 'xlContinuous = 1
                .Weight = 2 'xlThin = 2
                .ColorIndex = -4105 'xlAutomatic = -4105
            End With
            With eRng.Borders(10) 'xlEdgeRight = 10
                .LineStyle = 1
                .Weight = 2
                .ColorIndex = -4105
            End With
            With eRng.Borders(11) 'xlInsideVertical = 11
                .LineStyle = 1
                .Weight = 2
                .ColorIndex = -4105
            End With
            With eRng.Borders(12) 'xlInsideHorizontal = 12
                .LineStyle = 1
                .Weight = 2
                .ColorIndex = -4105
            End With
            eSheet.Range("A1").Select()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End If
    eApp.Visible = True
End Sub

1

Dim eRange As XLS.Range = eSheet.Range("C2")

1

Dim eRange As XLS.Range = eSheet.Range("A1")

1

eRng.AutoFormat(32)

1

DataGridView1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText

1

eRng.AutoFormat(32)

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

    Public Sub exportexcel(a As Integer) ' Подготовка выгрузки в эксель
        Dim b As Integer = exportindex
        Select Case a
            Case 1
                b = 2
                Exc = CreateObject("Excel.Application")
                Exc.workbooks.add
                Exc.visible = True
                Exc.sheets(1).Range("A1:" + Form1.alfavit(flagcolumn) + "1").Borders.LineStyle = True
                Exc.sheets(1).Range("A1:" + Form1.alfavit(flagcolumn) + "1").ColumnWidth = 20
                Exc.sheets(1).Range("A1:" + Form1.alfavit(flagcolumn) + "1").WrapText = True
                For i As Integer = 0 To flagcolumn
                    Exc.sheets(1).cells(1, i + 1).value = find.Columnname(i)
                Next i
                If flagselect = True Then findexport("`WHERE " + selestr, b) Else findexport("", b)
            Case 2
                b = exportindex
                If flagselect = True Then findexport("`WHERE " + selestr, b) Else findexport("", b)
            Case 3
                b = exportindex
                findexport("`WHERE id=" + """" + docs((DataGridView1.CurrentRow.Index + 1)).ToString() + """", b)
        End Select
    End Sub
    ' выгрузка в эксель
    Public Sub findexport(findstr As String, i As Integer) ' выгрузка в эксель
        Form1.Sqlcon.Open()
        Form1.cmd.CommandText = "SELECT * FROM `" + flagid.ToString() + findstr ' + "`WHERE " + findstr 'текст запрос на чтение пользователя
        Try
            Form1.reader = Form1.cmd.ExecuteReader() 'выполнить скул запрос
            While Form1.reader.Read() 'пока выполняеется запрос выполняеем
                For j As Integer = 1 To flagcolumn
                    Exc.sheets(1).cells(i, j).value = Form1.reader(Form1.alfavit(j)).ToString()
                Next j
                i = i + 1
                'End If
            End While
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString(), ex.Source.ToString(), MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        exportindex = i
        Exc.sheets(1).Range("A2:" + Form1.alfavit(flagcolumn) + (i - 1).ToString()).Borders.LineStyle = True
        Exc.sheets(1).Range("A2:" + Form1.alfavit(flagcolumn) + (i - 1).ToString()).WrapText = True
        Form1.reader.Close() 'закрыть чтение
        Form1.cmd.Parameters.Clear() 'очистить параметры
        Form1.Sqlcon.Close()
    End Sub

1

 XLS

1

Imports XLS = Microsoft.Office.Interop.Excel

1

eSheet.Columns("С").NumberFormat = "@"

1
2
3
4
5
6

'...
Dim c0 As Integer = eRange.Column + 1, cn As Integer = c0 + DataGridView1.ColumnCount - 1
Dim r0 As Integer = eRange.Row, rn As Integer = r0 + DataGridView1.RowCount - 1
Dim eRF As XLS.Range = eSheet.Range(eSheet.Cells(r0, c0), eSheet.Cells(rn, cn))
eRF.NumberFormat = "@"
'...

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

Private Sub ToExcel()
        Dim sd As New SaveFileDialog
        sd.Filter = "Документ Excel(*.xlsx)|*.xlsx"
        sd.FileName = Label1.Text
        If sd.ShowDialog = System.Windows.Forms.DialogResult.OK Then
 
            Grid1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
            Dim eApp As New Excel.Application
            Dim eBooks As Excel.Workbooks = eApp.Workbooks
            Dim eBook As Excel.Workbook = eBooks.Add
            Dim eSheet As Excel.Worksheet = eBook.ActiveSheet
            Dim eRange As Excel.Range = eSheet.Range("B2")
            eSheet.Name = "Отчёт"
 
            '====================================================
            Dim c0 As Integer = eRange.Column + 1, cn As Integer = c0 + Grid1.ColumnCount - 1
            Dim r0 As Integer = eRange.Row, rn As Integer = r0 + Grid1.RowCount - 1
            Dim eRF As Excel.Range = eSheet.Range(eSheet.Cells(r0, c0), eSheet.Cells(rn, cn))
            eRF.NumberFormat = "@"
            '====================================================
            
Grid1.SelectAll()
            If Grid1.GetCellCount(DataGridViewElementStates.Selected) > 0 Then
                Try
                    Clipboard.Clear()
                    Clipboard.SetDataObject(Grid1.GetClipboardContent(), False)
                    eRange.PasteSpecial(Microsoft.Office.Interop.Excel.XlPasteType.xlPasteAll, Microsoft.Office.Interop.Excel.XlPasteSpecialOperation.xlPasteSpecialOperationAdd)
                    Dim eRng As Excel.Range = eSheet.UsedRange
                    eRng.AutoFormat(32)
                    'добавляем недостающее
                    With eRng.Borders(7) 'xlEdgeLeft = 7
                        .LineStyle = 1 'xlContinuous = 1
                        .Weight = 2 'xlThin = 2
                        .ColorIndex = -4105 'xlAutomatic = -4105
                    End With
                    With eRng.Borders(10) 'xlEdgeRight = 10
                        .LineStyle = 1
                        .Weight = 2
                        .ColorIndex = -4105
                    End With
                    With eRng.Borders(11) 'xlInsideVertical = 11
                        .LineStyle = 1
                        .Weight = 2
                        .ColorIndex = -4105
                    End With
                    With eRng.Borders(12) 'xlInsideHorizontal = 12
                        .LineStyle = 1
                        .Weight = 2
                        .ColorIndex = -4105
                    End With
                    'eRng.Rows(1).Font.Bold = True
                    'eRng.Rows(1).Interior.Color = vbCyan
 
                    eSheet.Range("A1").Select()
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            End If
 
            eApp.Visible = False
 
            eSheet.SaveAs(sd.FileName)
 
            eBooks.Close()
            eApp.Quit()
 
            ReleaseObject(eApp)
            ReleaseObject(eBooks)
            ReleaseObject(eSheet)
        End If
 
        sd.Dispose()
    End Sub
 
Private Sub ReleaseObject(ByVal obj As Object)
        'процедура выгрузки объектов из памяти
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
            MessageBox.Show("Exception occured while releasing object " + ex.ToString())
        Finally
            GC.Collect()
        End Try
    End Sub