|
|
Postada em 17/06/2008 17:29 hs
Ahh, também tentei oWrks.Range("c1:c20").Select 'Selecionando a Range
Selection.NumberFormat = "dd/mm/yyyy" 'Formatando Data
oWrks.Cells(1, 4).Value = "10/02/2004"
|
|
|
|
|
|
|
|
Postada em 17/06/2008 17:53 hs
Juliana, verifique no seu painel de controle qual é o esqueda de data que o Windows está utilizando para abreviação de data, tem que estar DD/MM/YYYY. Caso não dê certo tente passar com um esp não aço no começo e/ou no final da data, talvez ele entenda como sendo um campo texto não fazendo a regra que o Excel utiliza para validação de data! |
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 18/06/2008 15:13 hs
tentou assim Selection.NumberFormat = "dd/mm/yyyy;@" |
|
|
|
|
|
Postada em 18/06/2008 15:21 hs
Pessoal...Obrigada pela ajuda... Eu consegui fazer e vou colocar aqui para caso alguem precise. Eu fiz um IF na coluna data, que no caso era a minha coluna 3 If CoLuNa = 3 Then
teste = CDate(lv.ListItems(LiNha).SubItems(CoLuNa - 1))
oWrks.cells(LiNha + 1, CoLuNa).Value = teste |
|
|
|
Ama
|
UBERLÂNDIA
MG - BRASIL
|
|
Postada em 20/06/2008 00:57 hs
deixe as células no excel no formato geral dai faça oWrks.rows("c1:c20").value=cstr(rs("campo")) eu costumo criar uma matriz dai no final passo a matriz para excell dim myMatrix myMatrix(linha,1)=cstr(rs("campo1") myMatrix(linha,2)=cstr(rs("campo2") myMatrix(linha,3)=cstr(rs("campo3") MyPlan.Range("A1:C23") = MyMatrix |
|
|
|
|
|
Postada em 25/06/2008 12:30 hs
como você faz para redimencionar a coluna de acordo com o tamanho do mair item escrito?
|
|
|
|
