NOME PLANILHA EXCEL

        [ô]Exporta os dados da tela para o excel
      Dim excelApp As New Excel.Application [ô]Inicia o Excel e cria um novo workbook/worksheet
      Dim excelBook As Excel.Workbook = excelApp.Workbooks.Add
      Dim excelWorksheet As Excel.Worksheet = CType(excelBook.Worksheets(1), Excel.Worksheet)
      Dim Cont As Int16 [ô]Contador dos controles
      Dim PosLinha As Byte = 1 [ô]Contador das linhas

      excelApp.Visible = False [ô]Torna o Excel invisível ao usuário até que a planilha seja preenchida
      With excelWorksheet
         [ô]Define configurações da planilha
         excelApp.ActiveWindow.DisplayGridlines = False [ô]Oculta as linhas da grade
         [ô].Name = txtDP_RazaoSocial.Text
         .Range([Ô]A1[Ô]).Value = [Ô]PEDIDO DE MERCADORIAS[Ô]
         .Range([Ô]A1[Ô]).Font.Bold = True
         .Range([Ô]A1[Ô], [Ô]F1[Ô]).Merge()
         .Range([Ô]A1[Ô], [Ô]F1[Ô]).Borders.LineStyle = 7


         .Range([Ô]A3[Ô]).Value = [Ô]PEDIDO N°[Ô]
         .Range([Ô]B3[Ô]).Value = txtNumero.Text

         .Range([Ô]A4[Ô]).Value = [Ô]CLIENTE[Ô]
         .Range([Ô]B4[Ô]).Value = lblCliente.Text

         .Range([Ô]A5[Ô]).Value = [Ô]DATA DO PEDIDO[Ô]
         .Range([Ô]B5[Ô]).Value = cboDataPedido.Text

         .Range([Ô]A6[Ô]).Value = [Ô]PREVISÃO PARA ENTREGA[Ô]
         .Range([Ô]B6[Ô]).Value = cboDataPrevisaoEntrega.Text

         .Range([Ô]A7[Ô]).Value = [Ô]OBSERVAÇÕES[Ô]
         .Range([Ô]B7[Ô]).Value = txtObservacao.Text

         [ô]Produtos
         .Range([Ô]A9[Ô]).Value = [Ô]PRODUTOS[Ô]
         .Range([Ô]A9[Ô]).Font.Bold = True
         .Range([Ô]A9[Ô], [Ô]F9[Ô]).Merge()
         .Range([Ô]A9[Ô], [Ô]F9[Ô]).Borders.LineStyle = 7

         .Range([Ô]A10[Ô]).RowHeight = 5

         .Range([Ô]A11[Ô]).Value = [Ô]PRODUTO[Ô]
         .Range([Ô]A11[Ô]).Font.Bold = True
         .Range([Ô]B11[Ô]).Value = [Ô]VALOR[Ô]
         .Range([Ô]B11[Ô]).Font.Bold = True
         .Range([Ô]C11[Ô]).Value = [Ô]QUANTIDADE[Ô]
         .Range([Ô]C11[Ô]).Font.Bold = True
         .Range([Ô]D11[Ô]).Value = [Ô]% COMISSÃO[Ô]
         .Range([Ô]D11[Ô]).Font.Bold = True
         .Range([Ô]E11[Ô]).Value = [Ô]$ COMISSÃO[Ô]
         .Range([Ô]E11[Ô]).Font.Bold = True
         .Range([Ô]F11[Ô]).Value = [Ô]OBSERVAÇÃO[Ô]
         .Range([Ô]F11[Ô]).Font.Bold = True

         .Range([Ô]A12[Ô]).RowHeight = 5

         For Cont = 0 To dgvProdutos.RowCount - 1
            .Range([Ô]A[Ô] & Cont + 13).Value = dgvProdutos.Rows(Cont).Cells(Colunas.Produto).Value
            .Range([Ô]B[Ô] & Cont + 13).Value = Convert.ToDecimal(dgvProdutos.Rows(Cont).Cells(Colunas.ValorProduto).Value)
            [ô].Range([Ô]B[Ô] & Cont + 13).Style = [Ô]Decimal[Ô]
            .Range([Ô]C[Ô] & Cont + 13).Value = dgvProdutos.Rows(Cont).Cells(Colunas.Quantidade).Value
            .Range([Ô]D[Ô] & Cont + 13).Value = Convert.ToDecimal(dgvProdutos.Rows(Cont).Cells(Colunas.PorcentComissao).Value)
            [ô].Range([Ô]D[Ô] & Cont + 13).Style = [Ô]Percent[Ô]
            .Range([Ô]E[Ô] & Cont + 13).Value = Convert.ToDecimal(dgvProdutos.Rows(Cont).Cells(Colunas.ValorComissao).Value)
            [ô].Range([Ô]E[Ô] & Cont + 13).Style = [Ô]Currency[Ô]
            .Range([Ô]F[Ô] & Cont + 13).Value = dgvProdutos.Rows(Cont).Cells(Colunas.Observacao).Value
         Next

         .Range([Ô]A1[Ô]).ColumnWidth = 25
         .Range([Ô]B1[Ô]).ColumnWidth = 10
         .Range([Ô]C1[Ô]).ColumnWidth = 13
         .Range([Ô]D1[Ô]).ColumnWidth = 12
         .Range([Ô]E1[Ô]).ColumnWidth = 12
         .Range([Ô]F1[Ô]).ColumnWidth = 25
      End With
      excelApp.Visible = True