|
|
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. |
|
|
|
|
|
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!!! |
|
|
|
|
|
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 |
|
|
|
|
