• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Laginhas

[VB.NET] Como gravar resultados do Visual basic 2005 em Excel

4 mensagens neste tópico

Pessoal estou muito à rasca com este problema.

Preciso de gravar os resultados das operações feitas am VB 2005 para uma folha de excel (notepad em ultimo caso) mas não sei que função utilizar.

Po rfavor dêem-me uma ajudinha neste assunto.

Desde já obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Sub exportarDados()
        'Inicia o Excel e abre o documento que desejamos
        Dim excelApp As New Microsoft.Office.Interop.Excel.Application
        Dim excelBook As Microsoft.Office.Interop.Excel.Workbook = excelApp.Workbooks.Open(System.Windows.Forms.Application.StartupPath & "\plantilla.xls")
        Dim excelWorksheet As Microsoft.Office.Interop.Excel.Worksheet = CType(excelBook.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
        'Torna o Excel invisível ao usuário até que a planilha seja preenchida
        excelApp.Visible = False
        With excelWorksheet
            'Formata os cabeçalhos das células
            '.Range("B7").Value = "Código"
            '.Range("B7").Font.Bold = True
            '.Range("B7").ColumnWidth = 10
            '.Range("C7").Value = "Endereço"
            '.Range("C7").Font.Bold = True
            '.Range("C7").ColumnWidth = 35
            '.Range("D7").Value = "País"
            '.Range("D7").Font.Bold = True
            '.Range("D7").ColumnWidth = 15
            '.Range("E7").Value = "Data"
            '.Range("E7").Font.Bold = True
            '.Range("E7").ColumnWidth = 10

            'define o indice da célula da qual iremos extrair os dados
            Dim i As Integer = 7

            'Preenche a planilha Excel
            'agora temos que colocar só o que necessitamos
            Try
                '.Range("B" & i.ToString).Value = "1"
                '.Range("C" & i.ToString).Value = "Rua 123"
                '.Range("D" & i.ToString).Value = "Portugal"
                '.Range("E" & i.ToString).Value = "19-04-1982"

            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            'Torna o Excel visível
            'excelApp.Visible = True
            excelApp.SaveWorkspace(makeFileName())
            excelBook.Close(False)
            excelApp = Nothing
        End With
    End Sub

Vê se isto te ajuda...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Para o codigo do Zuga funcionar tens que adcionar referencias ao projecto do  EXCEL( Microsoft Excel 11.0 Object Library) versão 2003

e os seguintes imports...

Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel

a a segir ao

excelApp = Nothing 
System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora