Cari, Ummm el val no saca decimales, pone un punto de quiebre y fijate si es ahi donde te saca los decimales o es en Excel. Si queres mandame el proyecto y te lo veo. Lo siguiente que intentaria seria probar el codigo con Excel 2000. Se que la version 2003 tiene varios issues que no funcionan como 2000. Lo siguiente seria ver que global settings de Windows estas usando, por ahi tenes que ingresar un punto en lugar de coma para decimales.
Saludos Jose --- On Fri, 4/18/08, Carina V. Barca <[EMAIL PROTECTED]> wrote: > From: Carina V. Barca <[EMAIL PROTECTED]> > Subject: [vbusers] flexgrid a excel > To: "vbusers List Member" <[email protected]> > Date: Friday, April 18, 2008, 10:34 AM > Si intente y cuando uso el val() me saca los decimales y me > los transforma a entero. > > Saludos> Date: Fri, 18 Apr 2008 10:05:52 -0700> From: > [EMAIL PROTECTED]> Subject: [vbusers] flexgrid a > excel> To: [email protected]> > Carina,> algo > rapido que se me ocurre es verificar si es numero o es > texto. Intentaste la funcion VAL()??> > En mi codigo > lo hice asi y funciona> > If IsNumeric(Form1.Label1) > Then> oXLSheet.Cells(3, 2).Value = Val(Form1.Label1) > 'escribi un double en label1.caption> Else> > oXLSheet.Cells(3, 2).Value = Form1.Label1 ' escribi un > string an label1> End If> > Saludos,> Jose> > > --- On Fri, 4/18/08, Carina V. Barca > <[EMAIL PROTECTED]> wrote:> > > From: > Carina V. Barca <[EMAIL PROTECTED]>> > > Subject: [vbusers] flexgrid a excel> > To: > "vbusers List Member" > <[email protected]>> > Date: Friday, April 18, > 2008, 7:14 AM> > Jose: al ejemplo lo hace bien, pero > cuando lo aplico a mi> > codigo lo sigue dejando como > texto. Te paso mi codigo. Ahh> > utilizo office > 2003.> > > > Dim objXL As New > Excel.ApplicationDim wbXL As New> > Excel.WorkbookDim > wsXL As New Excel.WorksheetDim intRow As> > Integer > ' counterDim intCol As Integer ' counterDim> > > gridstyle As IntegerDim mivble As Doublegridstyle = > 2If Not> > IsObject(objXL) Then MsgBox "Necesita > Excel para> > usar esta funcion", _ > vbExclamation,> > "Exportar a Excel" Exit > SubEnd If> > > > On Error Resume Next> > > objXL.Visible = TrueSet wbXL = objXL.Workbooks.AddSet > wsXL> > = objXL.ActiveSheetDim WorkSheetName As > StringWorkSheetName> > = > "Listado_Personal.xls"With wsXL If Not> > > WorkSheetName = "" Then .Name => > > WorkSheetName End IfEnd With ' fill worksheetFor> > > intRow = 1 To theRows For intCol = 1 To TheCols > > > With msfPrueba If intCol >= 5 Then > > mivble > = .TextMatrix(intRow - 1, intCol - 1) > > > wsXL.Cells(intRow, intCol).Value = _ > > CDbl(mivble) > & " " Else > > wsXL.Cells(intRow, > intCol).Value = _ > > .TextMatrix(intRow - 1, intCol > - 1) & " "> > End If End With > NextNext> > For intCol = 1 To TheCols > wsXL.Columns(intCol).AutoFit > > > 'wsXL.Columns(intCol).AutoFormat (1) > > > wsXL.Range("a1",> > > Right(wsXL.Columns(TheCols).AddressLocal, _ 1)> > > & theRows).AutoFormat gridstyleNext> > End > Sub> > Gracias....> > > > Saludos> > > > > Carina> > > Date: Fri, 18 Apr 2008 > 06:52:58 -0700> From:> > > [EMAIL PROTECTED]> Subject: [vbusers] flexgrid > a> > excel> To: [email protected]> > > Carina,> abajo> > va un codigo para VB6 con Excel > 2000. Copia el valor de una> > label a Excel y lo > copia con punto decimal. Si no te> > funciona puede > que sea un problema de la version de Excel q> > > usas.> Sdos,> Jose Moreno> >> > > '===================================> Sub > Main()>> > Dim my_variable As Double> > Dim > oXLApp As> > Excel.Application> Dim oXLBook As > Excel.Workbook> Dim> > oXLSheet As > Excel.Worksheet> Load Form1>> > Form1.Show> > my_variable = Val(Form1.Label1) 'escribi> > un > double en label1.caption> 'o saca valores de tu> > > grid> > > Set oXLApp = New > Excel.Application>> > Set oXLBook = > oXLApp.Workbooks.Open(App.Path &> > > "\excelTest.xls")> Set oXLSheet => > > oXLBook.Worksheets(1)> oXLApp.Visible = True>> > > oXLSheet.Cells(3, 2).Value = my_variable> > > 'Set> > oXLSheet = Nothing> > 'oXLBook.Close> > SaveChanges:=True> 'Set > oXLBook = Nothing>> > 'oXLApp.Quit> > 'Set oXLApp = Nothing> > End> > Sub> > > > > --- On Fri, 4/18/08, Carina V. Barca> > > <[EMAIL PROTECTED]> wrote:> > > > From:> > Carina V. Barca > <[EMAIL PROTECTED]>> >> > Subject: > [vbusers] flexgrid a excel> > To:> > > "vbusers List Member"> > > <[email protected]>> > Date: Friday, April > 18,> > 2008, 5:58 AM> > Sebastian: Muchas > gracias por> > responder, ahora me fijo como> > > hacer eso.> >> > > > Saludos> > > > > > > Date: Fri,> > 18 Apr 2008 05:28:19 > -0700From:> >> > > [EMAIL PROTECTED]: [vbusers] flexgrid > a>> > > excelTo: [email protected]> > > > > >> > > > > Yo ahora no recuerdo > como lo tengo hecho,> > pero lo que tenes> > que > hacer es indicarle a la> > columna, que va a ser de > tipo> > númerico.> >> > > > > Sebastian Gambolati> > > > -----> > > Mensaje original ----De: Carina V. Barca> >> > > <[EMAIL PROTECTED]>Para: vbusers List > Member>> > > <[email protected]>Enviado: > viernes 18 de abril> > de> > 2008, > 8:35:44Asunto: [vbusers] flexgrid a> > excel> > > > > Hola a todos: hice una funcion (en> > VB 6) > que me exporta los> > datos de un flexgrid a un> > > excel. Hasta ahi todo bien. El> > problema es > que> > cuando tengo un numero con decimales me lo> > > pasa> > como texto. YA proble de transformarlo a > doble> >> > cdbl(dato) antes de ponerlo en el > excel, despues pense> > que> > serian la coma o > el punto y le hice un replace> > de esta> > > forma> > cdbl(replace(",",".")) > pero nada>> > > funciono, cuando el numero es > entero lo tranforma a> > numero> > sino me lo > deja como texto.Alguien tiene> > idea de que > puede> > ser? o como solucionarlo?.Muchas> > > gracias.... Saludos> > CarinaSigue al minuto las> > > principales noticias de tu ciudad> > MSN > Deportes>> > > > > Yahoo! EncuentrosAhora > encontrar pareja es> > mucho más> > fácil, > probá el nuevo Yahoo!> > Encuentros.Visitá> > >> > > http://yahoo.cupidovirtual.com/servlet/NewRegistration>> > > >> > > _________________________________________________________________>> > > > La vida de los famosos al desnudo en MSN> > > Entretenimiento> >> > > http://entretenimiento.es.msn.com/> > >> > > ____________________________________________________________________________________>> > > Be a better friend, newshound, and > know-it-all > with> > Yahoo! Mobile. Try it now.> > > http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ>> > > > > > _________________________________________________________________> > > La vida de los famosos al desnudo en MSN > Entretenimiento> > > http://entretenimiento.es.msn.com/> > > > ____________________________________________________________________________________> > Be a better friend, newshound, and > know-it-all with > Yahoo! Mobile. Try it now. > http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ> > > _________________________________________________________________ > Tecnología, moda, motor, viajes,…suscríbete a nuestros > boletines para estar siempre a la última > Guapos y guapas, clips musicales y estrenos de cine. ____________________________________________________________________________________ Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now. http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ
