1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Duvida

Discussão em 'Programação' iniciada por Ruben_Barbosa, 22 de Outubro de 2008. (Respostas: 1; Visualizações: 407)

  1. Ruben_Barbosa

    Ruben_Barbosa Power Member

    eu atraves do vb2005 abro um documento em excel ja criado. Até ai Está tudo bem :).

    Agora o meu Problema é o Seguinte como é que passo os dados da minha bd para o Documento ????

    perfeitamente fazer isto mas ai é so os nomes que eu escrevo por exemplo :

    Criar uma nova instância do Excel
    Código:
            Dim objApp As Object
            objApp = CreateObject("Excel.Application")
            Dim objBook As Microsoft.Office.Interop.Excel.Workbook
    
    Try
                objApp.UserControl = True
                Dim oldCI As System.Globalization.CultureInfo = _
                System.Threading.Thread.CurrentThread.CurrentCulture
                System.Threading.Thread.CurrentThread.CurrentCulture = _
                    New System.Globalization.CultureInfo("en-US")
                objBook = objApp.Workbooks.Add
                objBook.Sheets(1).Select()
                'objApp.Columns.AutoFit()
                objApp.ActiveSheet.Cells(1, 3) = " Ficha de Identificação das Paletes de Corte Plano"
                objApp.ActiveSheet.Cells(5, 2) = "Produzida"
                objApp.ActiveSheet.Cells(5, 3) = "X"
                objApp.ActiveSheet.Cells(10, 2) = "Espécie"
                objApp.ActiveSheet.Cells(4, 6) = "Data"
                objApp.ActiveSheet.Cells(5, 6) = "Responsável"
                objApp.ActiveSheet.Cells(6, 6) = "Turno"
                objApp.ActiveSheet.Cells(22, 2) = "Comprimento"
                objApp.ActiveSheet.Cells(13, 2) = "Classificação : "
                objApp.ActiveSheet.Cells(13, 3) = "A"
                objApp.ActiveSheet.Cells(13, 5) = "B"
                objApp.ActiveSheet.Cells(13, 7) = "C"
                objApp.ActiveSheet.Cells(16, 2) = "Quantidade"
                objApp.ActiveSheet.Cells(18, 2) = "Id.Produtor() : Lam(Laminar)"
                objApp.ActiveSheet.Cells(24, 2) = "Observacoes"
                objApp.ActiveSheet.Cells(22, 8) = "CPalete"
                objApp.ActiveSheet.Cells(25, 9) = "Mod"
                objApp.Visible = True
            Catch
                MsgBox("O EXCEL não pode ser iniciado!", vbCritical)
            End Try
            objApp = Nothing
            objBook = Nothing
    
    
    Aparece uma folha nova com os campos que tem " , o QUE EU QUERO E METER LA OS DADOS DA MINHA BASE DE DADOS :D

    cumps
     
    Última edição pelo moderador: 22 de Outubro de 2008
  2. jpaulino

    jpaulino Power Member

    Tens de fazer um ciclo nos teus registos.

    Além disso esse código tem algumas incorrecções, e no exemplo que viste não deve estar assim ... digo eu :)
     

Partilhar esta Página