Object Library. " Clique em " OK".
4 Clique duas vezes no formulário para criar o procedimento " Form1_Load " . Digite o código a seguir para adicionar dados para o controle de exibição de grade de dados : . . .
Com DataGridView1
RowHeadersVisible = False
Colunas (0) Nome = " ExcelValue "
End With
Dim crescer como string () = { "1" }
Dim gRow2 As String () = { "2" }
Com Me.DataGridView1.Rows
. Add ( Grow)
. Add ( gRow2 )
End With
5
clique duas vezes em "Button1 "para criar um procedimento de evento Click do botão. Digite o seguinte código na primeira linha do módulo para importar o namespace Microsoft Office :
Imports Microsoft.Office.Interop
6
Digite o seguinte código abaixo " Button1_Click " para criar as variáveis utilizadas para abrir o Excel :
Dim excelApp as New Excel.Application
Dim xCntr as Integer = 1
ExcelApp.Visible = True
Dim ExcelWks Como Excel.Workbooks = ExcelApp.Workbooks
Dim ExcelWk Como Excel.Workbook = ExcelWks.Add
Dim ExcelShts Como Excel.Sheets = ExcelWk.Worksheets
Dim ExcelSht Como Excel.Worksheet = ExcelShts ( "Sheet1" )
7
Adicione o seguinte código para percorrer as linhas e adicionar dados de células para um novo livro do Excel :
para cada linha Como DataGridViewRow em DataGridView1.Rows
ExcelSht.Range ("A" & xCntr ) . Valor = row.Cells.Item ( " ExcelValue " ) . Valor
xCntr + = 1
Próxima
8
Guarde o livro , adicionando o seguinte código:
ExcelSht.SaveAs ("C: \\ ExcelFile.xlsx " )
9
Pressione " F5" para executar o programa . Clique em " Button1 " para adicionar os dados para o Excel.
