USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Exportar para Excel
ATS
OURINHOS
SP - BRASIL
ENUNCIADA !
Postada em 23/03/2006 14:11 hs            
Usei a seguinte função para exportar os registros de uma tabela para um arquivo Excel.
 
 
Alguém sabe me dizer em que versão do Excel a função acima cria o arquivo?
   
Geronimo
Pontos: 2843
JOINVILLE
SC - BRASIL
ENUNCIADA !
Postada em 23/03/2006 17:58 hs            
Tenta esta funciona em todas versões do office :
Utiliza o metodo creatobjeto para lançar dados das tabelas do Acess atraves do vb para ogeral relatorios no excel:
Set BancoDeDados = OpenDatabase(App.Path & "Tiroalvo.MDB", False)
    Set TBSúmula = BancoDeDados.OpenRecordset("Súmula", dbOpenSnapshot)
    Set TBSúmula = BancoDeDados.OpenRecordset("Select * from súmula Where [Local Competição] = '" & DBCLocal & "'and Categoria = '" & DBCCategoria & "' and [Data Competição] = #" & Format(DBCData, "mm/dd/yy") & "#  order by [Total Pontos] Desc,sociedade desc,[1tiro]desc,[2tiro]desc,[3tiro]desc,[4tiro]desc,[5tiro]desc,[6tiro]desc,[nome]desc")
  

If TBSúmula.EOF Then 'Não retornou nenhum registro
        MsgBox "Não há Dados para Visualizar Nesta:" & Chr(13) & "Categoria, Data e Local de Competição", 48, "Tiro Alvo Seta"
    Else
        X = 2 ‘ determina a linha e coluna aonde serão começa a ser lançados os dados
        Screen.MousePointer = 11
        
        Set oleexcel = CreateObject("excel.application")
        Set oleworkbook = oleexcel.Workbooks.Open(App.Path & "súmula.xls") ‘ o nome e caminho da sua planilha
        Set oleworksheet = oleexcel.Worksheets("Dados") ‘ determinha  que plan sera lançados os dados
        

DoEvents
oleworksheet.Range("a2:p1000").ClearContents ‘ limpa as colunas apartir da A2 ate P1000

‘ começa a baixar os dados da tabela
Do While Not TBSúmula.EOF
    For Y = 1 To TBSúmula.Fields.Count
        oleworksheet.Cells(X, Y) = TBSúmula.Fields(Y - 1)
    Next Y
    ‘ira deixar a primeira coluna em negrito
With oleworksheet.Range("A" & X)
    .Value = TBSúmula.Fields(0)
    .Font.Bold = True
End With

X = X + 1

TBSúmula.MoveNext
Loop

DoEvents

        TBSúmula.Close
        Screen.MousePointer = 0
        oleexcel.Visible = True
        Set TBSúmula = Nothing
        Set oleexcel = Nothing
        Set oleworkbook = Nothing
        Set oleworksheet = Nothing

    End If


"O pior inimigo que você poderá encontrar será sempre você mesmo."
   
kerplunk
Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 24/03/2006 09:54 hs         
Será criado o arquivo equivalente a versão do excel que vc tiver instalado na máquina. Isso pq, é uma simples chamada api
 
   
ATS
OURINHOS
SP - BRASIL
ENUNCIADA !
Postada em 24/03/2006 15:19 hs            
Beleza, obrigado a todos...
   
ATS
OURINHOS
SP - BRASIL
ENUNCIADA !
Postada em 02/04/2006 11:11 hs            
Ops, o código que eu mencionei acima esta criando o arquivo Excel na versão 2.1 tem como eu modificar este código para criar o arquivo Excel em uma versão superior, alguém sabe como fazer?
   
Tiagoski
FRANCA
SP - BRASIL
ENUNCIADA !
Postada em 08/05/2008 20:09 hs            
também estou querendo exportar uma tabela para o excel, mas não entendi direito esse código ai em cima, se alguém puder me esclarecer, fico agradecido.
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página