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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Formatar Coluna EXCEL - URGENTE
Juliana T.
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 22/09/2008 16:04 hs         
Oiii Pessoal!!!
 
Eu estou tentando exportar um número do VB pro excel... Mas, esse número é um codiogo de barras...E ele é muito grande... Quando eu manda para o excel... Ele muda.
Ex: 
Número que quero exportar: 7894478003334
Número no excel: 7,89448E+12
 
Alguem sabe algum formato q eu possa usar? Pq ele esta exportando o número certo...
 
Eu já tentei de tudo...
exclsheet.Cells(Z, 4).Value = Format(rs(2), "#############")
ou
exclsheet.Cells(Z, 4).Value = Format(rs(2), "0000000000000")
 
Mas não vai...POR FAVOR ME AJUDEM...É URGENTE!
   
Treze
não registrado
ENUNCIADA !
Postada em 22/09/2008 19:52 hs   
tenta isto na hora de exportar
 
exclsheet.Range("Z4").Select
exclsheet.Selection.NumberFormat = "0000000000000"
 
   
   
Treze
não registrado
ENUNCIADA !
Postada em 22/09/2008 19:57 hs   
Dica sempre que tiver alguma duvida quanto a vba, por exemplo o excel faça o seguinte
 
abra a planilha do excel clique em FERRAMENTAS / MACRO e GRAVAR NOVA MACRO e faça diretamente na planilha o que deseja no seu caso era formatar a cellula, para a macro va novamente em MACRO selecione a macro que você criou e clique em editar pronto você terá seu código para adapatar no vb6.
 
   
Juliana T.
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 23/09/2008 08:52 hs         
Não deu certo!!! Eu tentei colocar do jeito que vc falou e tentei alterar tbm para ver se dava certo...Mas não vai... Deu o seguinte erro: "object doesn´t support  this property or method"
Vou colocar o meu código aqui, para ver se tem alguma noção do q eu possa estar fazendo errado...
 
       If rs.EOF = False Then
                Set exclApp = CreateObject("Excel.Application")
                Set exclsheet = CreateObject("Excel.Sheet")
                Set exclBook = exclApp.Workbooks.Add
                Set exclsheet = exclBook.Worksheets(1)
               
                exclsheet.Rows(1).Font.Bold = True
               
               
                exclsheet.Cells(1, 1).Value = "FORNECEDOR"
                exclsheet.Cells(1, 2).Value = "GRUPO"
                exclsheet.Cells(1, 3).Value = "ITEM"
                exclsheet.Cells(1, 4).Value = "COD_BARRA"
                exclsheet.Cells(1, 5).Value = "DESCRIÇÃO"
                exclsheet.Cells(1, 6).Value = "REF_FORNECEDOR"
                exclsheet.Cells(1, 7).Value = "FISICO"
                exclsheet.Cells(1, 8).Value = "PESO"
                exclsheet.Cells(1, 9).Value = "LARGURA_DEP"
                exclsheet.Cells(1, 10).Value = "ALTURA_DEP"
                exclsheet.Cells(1, 11).Value = "COMPRIMENTO_DEP"
                exclsheet.Cells(1, 12).Value = "LARGURA_LOG"
                exclsheet.Cells(1, 13).Value = "ALTURA_LOG"
                exclsheet.Cells(1, 14).Value = "COMPRIMENTO_LOG"
                exclsheet.Cells(1, 15).Value = "SITUAÇÃO"
                                             
                    Do
                        exclsheet.Cells(Z, 1).Value = rs(0)
                        exclsheet.Cells(Z, 2).Value = rs(16)
                        exclsheet.Cells(Z, 3).Value = rs(1)
                        exclsheet.Range("Z4").Select
                        exclsheet.Selection.NumberFormat = "0000000000000"
                        exclsheet.Cells(Z, 4).Value = rs(2)
                        exclsheet.Cells(Z, 5).Value = rs(3)
                        exclsheet.Cells(Z, 6).Value = rs(4)
                        exclsheet.Cells(Z, 7).Value = rs(5)
                        exclsheet.Cells(Z, 8).Value = rs(6)
                        exclsheet.Cells(Z, 9).Value = rs(7)
                        exclsheet.Cells(Z, 10).Value = rs(8)
                        exclsheet.Cells(Z, 11).Value = rs(9)
                        exclsheet.Cells(Z, 12).Value = rs(10)
                        exclsheet.Cells(Z, 13).Value = rs(11)
                        exclsheet.Cells(Z, 14).Value = rs(12)
                        exclsheet.Cells(Z, 15).Value = rs(15)
                        Z = Z + 1
                        rs.MoveNext
                    Loop Until rs.EOF = True
                    rs.Close
 
 
Mas desde já valeu pela ajuda!!!
   
Juliana T.
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 23/09/2008 08:52 hs         
Não deu certo!!! Eu tentei colocar do jeito que vc falou e tentei alterar tbm para ver se dava certo...Mas não vai... Deu o seguinte erro: "object doesn´t support  this property or method"
Vou colocar o meu código aqui, para ver se tem alguma noção do q eu possa estar fazendo errado...
 
       If rs.EOF = False Then
                Set exclApp = CreateObject("Excel.Application")
                Set exclsheet = CreateObject("Excel.Sheet")
                Set exclBook = exclApp.Workbooks.Add
                Set exclsheet = exclBook.Worksheets(1)
               
                exclsheet.Rows(1).Font.Bold = True
               
               
                exclsheet.Cells(1, 1).Value = "FORNECEDOR"
                exclsheet.Cells(1, 2).Value = "GRUPO"
                exclsheet.Cells(1, 3).Value = "ITEM"
                exclsheet.Cells(1, 4).Value = "COD_BARRA"
                exclsheet.Cells(1, 5).Value = "DESCRIÇÃO"
                exclsheet.Cells(1, 6).Value = "REF_FORNECEDOR"
                exclsheet.Cells(1, 7).Value = "FISICO"
                exclsheet.Cells(1, 8).Value = "PESO"
                exclsheet.Cells(1, 9).Value = "LARGURA_DEP"
                exclsheet.Cells(1, 10).Value = "ALTURA_DEP"
                exclsheet.Cells(1, 11).Value = "COMPRIMENTO_DEP"
                exclsheet.Cells(1, 12).Value = "LARGURA_LOG"
                exclsheet.Cells(1, 13).Value = "ALTURA_LOG"
                exclsheet.Cells(1, 14).Value = "COMPRIMENTO_LOG"
                exclsheet.Cells(1, 15).Value = "SITUAÇÃO"
                                             
                    Do
                        exclsheet.Cells(Z, 1).Value = rs(0)
                        exclsheet.Cells(Z, 2).Value = rs(16)
                        exclsheet.Cells(Z, 3).Value = rs(1)
                        exclsheet.Range("Z4").Select
                        exclsheet.Selection.NumberFormat = "0000000000000"
                        exclsheet.Cells(Z, 4).Value = rs(2)
                        exclsheet.Cells(Z, 5).Value = rs(3)
                        exclsheet.Cells(Z, 6).Value = rs(4)
                        exclsheet.Cells(Z, 7).Value = rs(5)
                        exclsheet.Cells(Z, 8).Value = rs(6)
                        exclsheet.Cells(Z, 9).Value = rs(7)
                        exclsheet.Cells(Z, 10).Value = rs(8)
                        exclsheet.Cells(Z, 11).Value = rs(9)
                        exclsheet.Cells(Z, 12).Value = rs(10)
                        exclsheet.Cells(Z, 13).Value = rs(11)
                        exclsheet.Cells(Z, 14).Value = rs(12)
                        exclsheet.Cells(Z, 15).Value = rs(15)
                        Z = Z + 1
                        rs.MoveNext
                    Loop Until rs.EOF = True
                    rs.Close
 
 
Mas desde já valeu pela ajuda!!!
   
Treze
não registrado
ENUNCIADA !
Postada em 23/09/2008 09:19 hs   
Juliana tenta assim
 
If rs.EOF = False Then
                Set exclApp = CreateObject("Excel.Application")
                Set exclsheet = CreateObject("Excel.Sheet")
                Set exclBook = exclApp.Workbooks.Add
                Set exclsheet = exclBook.Worksheets(1)
               
                exclsheet.Rows(1).Font.Bold = True
               
               
                exclsheet.Cells(1, 1).Value = "FORNECEDOR"
                exclsheet.Cells(1, 2).Value = "GRUPO"
                exclsheet.Cells(1, 3).Value = "ITEM"
                exclsheet.Cells(1, 4).Value = "COD_BARRA"
                exclsheet.Cells(1, 5).Value = "DESCRIÇÃO"
                exclsheet.Cells(1, 6).Value = "REF_FORNECEDOR"
                exclsheet.Cells(1, 7).Value = "FISICO"
                exclsheet.Cells(1, 8).Value = "PESO"
                exclsheet.Cells(1, 9).Value = "LARGURA_DEP"
                exclsheet.Cells(1, 10).Value = "ALTURA_DEP"
                exclsheet.Cells(1, 11).Value = "COMPRIMENTO_DEP"
                exclsheet.Cells(1, 12).Value = "LARGURA_LOG"
                exclsheet.Cells(1, 13).Value = "ALTURA_LOG"
                exclsheet.Cells(1, 14).Value = "COMPRIMENTO_LOG"
                exclsheet.Cells(1, 15).Value = "SITUAÇÃO"
                                             
                    Do
                        exclsheet.Cells(Z, 1).Value = rs(0)
                        exclsheet.Cells(Z, 2).Value = rs(16)
                        exclsheet.Cells(Z, 3).Value = rs(1)
                        exclsheet.Cells(Z, 4).Value = rs(2)
                        exclsheet.Cells(Z, 5).Value = rs(3)
                        exclsheet.Cells(Z, 6).Value = rs(4)
                        exclsheet.Cells(Z, 7).Value = rs(5)
                        exclsheet.Cells(Z, 8).Value = rs(6)
                        exclsheet.Cells(Z, 9).Value = rs(7)
                        exclsheet.Cells(Z, 10).Value = rs(8)
                        exclsheet.Cells(Z, 11).Value = rs(9)
                        exclsheet.Cells(Z, 12).Value = rs(10)
                        exclsheet.Cells(Z, 13).Value = rs(11)
                        exclsheet.Cells(Z, 14).Value = rs(12)
                        exclsheet.Cells(Z, 15).Value = rs(15)
                        Z = Z + 1
                        rs.MoveNext
                    Loop Until rs.EOF = True
                     exclsheet.Range("Z4").Select
                     exclsheet.Selection.NumberFormat = "0000000000000"
                     rs.Close
 
veja se assim resolve
   
Página(s): 1/4      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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