border
VB 6
 
 
  #1 (permalink)  
Antiguo 16-11-2005, 08:25:22
Buena Participación en el Foro
 
Registrado: nov 2005
Ubicación: Reinosa-Cantabria
Posts: 85
Créditos: 1.743
Manolillo Valoración +2
Predeterminado Modificar Excel

Sabe alguien si es posible mostrar los datos desde vb6 en una excel, pero que esta excel salga con unos tamaños de celda, bordes, justificacion,etc... determinados?
Si es posible, me podeis decir como??
Gracias
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2 (permalink)  
Antiguo 16-11-2005, 09:12:44
Avatar de Alella
Moderador
 
Registrado: mar 2004
Ubicación: BARCELONA - ESPAÑA
Posts: 1.481
Créditos: 28.328
Alella Valoración +2
Predeterminado

Hola, que tal.

Te pongo un poco de código para que veas ejemplos:

Código:
 
    Dim H As Long 'Horizontal
    Dim V As Long 'Vertical
    Dim MiBase As Database
    Dim MiTabla As Recordset
  
    
    On Error GoTo ErrorExcel
    
    Dim objExcel As Excel.Application
    
    Set MiBase = OpenDatabase(CurDir() & "\db1.mdb")
    Set MiTabla = MiBase.OpenRecordset("SELECT * FROM Tabla1 ORDER BY Maquina ASC , Registro ASC", dbOpenDynaset)

    If MiTabla.RecordCount = 0 Then
        MsgBox "La base de datos esta vacia"
        Exit Sub
    End If
    
    Set objExcel = New Excel.Application
    objExcel.Visible = True
    'determina el numero de hojas que se mostrara en el Excel
    objExcel.SheetsInNewWorkbook = 1
    'Crea el Libro
    objExcel.Workbooks.Add

    With objExcel.ActiveSheet
        .Range(.Cells(1, 1), .Cells(1, 7)).Borders.LineStyle = xlContinuous
        .Cells(3, 1) = "MAQUINA"
        .Cells(3, 2) = "REGISTRO"
        .Cells(3, 3) = "TIEMPO"
        .Cells(3, 4) = "CANTIDAD"
        .Cells(3, 5) = "CODIGO"
        .Cells(3, 7) = "CLIENTE"
        .Range(.Cells(3, 1), .Cells(3, 7)).Font.Bold = True
        
        .Columns("A").HorizontalAlignment = xlHAlignRight
        .Columns("B").HorizontalAlignment = xlHAlignRight
        .Columns("C").HorizontalAlignment = xlHAlignRight
        .Columns("D").HorizontalAlignment = xlHAlignRight
        .Columns("E").HorizontalAlignment = xlHAlignRight
        .Columns("G").HorizontalAlignment = xlHAlignRight
        .Columns("F").HorizontalAlignment = xlHAlignCenter
       
        .Columns("A").ColumnWidth = 15
        .Columns("B").ColumnWidth = 10
        .Columns("C").ColumnWidth = 10
        .Columns("D").ColumnWidth = 10
        .Columns("E").ColumnWidth = 10
        .Columns("F").ColumnWidth = 40
        .Columns("G").ColumnWidth = 25
    End With
    
    objExcel.ActiveSheet.Cells(1, 1) = "PARTE DE TRABAJO"
    objExcel.ActiveSheet.Cells(1, 6) = operario
    DATO = CDate(Text1.Text)
    objExcel.ActiveSheet.Cells(1, 7) = DATO
    objExcel.ActiveSheet.Range(objExcel.ActiveSheet.Cells(1, 1), objExcel.ActiveSheet.Cells(1, 7)).HorizontalAlignment = xlHAlignCenterAcrossSelection
    
    With objExcel.ActiveSheet.Cells(1, 1).Font
        .Color = vbRed
        .Size = 14
        .Bold = True
    End With
    
    With objExcel.ActiveSheet.Cells(1, 6).Font
        .Color = vbBlack
        .Size = 14
        .Bold = True
    End With
    With objExcel.ActiveSheet.Cells(1, 7).Font
        .Color = vbBlack
        .Size = 16
        .Bold = True
    End With
    
    V = 4
    H = 1
Puedes hacer más cosas:

Código:

objExcel.ActiveSheet.Cells(V + 1, H + 2) = tiempototal

inicio = "=SUM(C5"
final = "C" & Val(V)
total = inicio & ":" & final & ")"

objExcel.ActiveSheet.Cells(V + 1, H + 2) = total
Y por último:

Código:
With objExcel.ActiveSheet.Cells(V, 2).Font
        .Color = vbBlack
        .Size = 16
        .Bold = True
    End With
    
    For j = 5 To V - 4
    objExcel.Range(objExcel.Cells(j, 1), objExcel.Cells(j, 7)).Borders.LineStyle = xlContinuous
    Next j
    
    
    objExcel.Range(objExcel.Cells(V, 1), objExcel.Cells(V, 7)).Borders.LineStyle = xlContinuous
    objExcel.ActiveSheet.Range(objExcel.ActiveSheet.Cells(V, 1), objExcel.ActiveSheet.Cells(V, 7)).HorizontalAlignment = xlHAlignCenterAcrossSelection
Espero que te sirvan estos ejemplos.
__________________
Un saludo.

Alfredo
Barcelona-España
_________________
Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion
Normas del Foro
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #3 (permalink)  
Antiguo 16-11-2005, 09:23:14
Buena Participación en el Foro
 
Registrado: nov 2005
Ubicación: Reinosa-Cantabria
Posts: 85
Créditos: 1.743
Manolillo Valoración +2
Predeterminado

Es perfecto, es lo que necesitaba y no encontraba, muchas gracias de nuevo Alella.
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado


Temas Similares
Tema Autor Foro Respuestas Último Mensaje
Modificar archivo .txt galaico5 Visual Basic.NET 2 12-03-2008 18:24:13
Modificar la hora del sis.. mabopas Visual Basic 6.00 2 30-07-2007 18:27:20
Modificar instalacion VB sinhue Visual Basic 6.00 2 21-06-2007 21:07:48
Como puedo modificar un archivo Excel... ikki_26 Visual Basic 6.00 3 07-12-2005 19:04:07
Modificar un registro d@mi@n Visual Basic 6.00 1 13-10-2005 17:11:38


La franja horaria es GMT. Ahora son las 11:56:28.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios
© VB-MUNDO CO. Todos los derechos reservados
Tutoriales Premium | Juegos Online 


right

Programacion, vb 6, visual basic, foro programacion

Inactive Reminders By Icora Web Design