Duda de Manejo de excel desde visual basic

[sirhamelef]

Hola que tal, soy nuevo y tengo una dudita, quiisera desde VB6 abrir un archivo de excel y en caso de que este no exista que me lo cree mi idea es mas o menos asi:

    Dim appexcel As New Excel.Applicat ion 'Define una aplicación de excel
    Dim uni As String
   
    uni = drive.drive
   
    If appexcel.Workb ooks.Open(uni & "\" & txtNomexcel.Te xt & ".xls") =trueT
  then
     'REPLACEo una funcion que aun no cree
        Else
            appexcel.Workb ooks.Add
            appexcel.Visib le = True 'Para que el excel se vea
            appexcel.Sheet sInNewWorkbook = 1    'El libro creado tendra 1 hoja
            With appexcel.Range("A1:IV1")
             .Font.Name = "Arial"
             .Font.Size = 8
             .Font.ColorInd ex = 0
             .Font.Bold = True
             .HorizontalAli gnment = xlCenter 'Para que me quede centrado horizontalment e
             .VerticalAlign ment = xlCenter   'Me quedara centrado verticalmente
             .Interior.Colo rIndex = 6
             End With

Mas o menos la historia viene asi pero el obvio no me funciona lo que viene despues del if.

gracias
Eze

[ranefi]

Hola sirhamelef, buen día. Mira, aquí te dejo el código:

Agrega un CommandButton e REPLACEa el siguiente código:

Código:

Private Sub Command1_Click()
'----SE ESTABLECE UNA CAPTURA DE ERROR-----
On Error GoTo CreaUnaCochinaHoja
'------------------------------------------
'-------SE DECLARAN VARIABLES----------
    Dim CochinoExcel As Object
    Dim ArchivoCochino As String
'--------------------------------------
'-----------SE ESTABLECE VALOR DE UNA VARIABLE------------
    ArchivoCochino = App.Path & "\ComeCacaConElotes.xls"
'---------------------------------------------------------
'---------------SE CREA EL OBJETO DE EXCEL------------------
    Set CochinoExcel = CreateObject("Excel.Application")
'-----------------------------------------------------------
'----------SE ESTABLECEN PROPIEDADES DEL OBJETO-----------
    CochinoExcel.Visible = True
'---------------------------------------------------------
'-----------SE ABRE EL ARCHIVO COCHINO EXISTENTE----------
    CochinoExcel.Workbooks.Open FileName:=ArchivoCochino
'---------------------------------------------------------
'---SE TERMINA EL SUB---
    Exit Sub
'-----------------------
'--------SE CAPTURA EL COCHINO ERROR-------
CreaUnaCochinaHoja:
'------------------------------------------
'--------SE CREA LA COCHINA HOJA-----------
    CochinoExcel.Workbooks.Add
'------------------------------------------
'-------SE LE AGREGAN VALORES A LA HOJA------
    With CochinoExcel.ActiveSheet
        .Range("A1").Formula = "Hola mundo"
        .Range("B2").Formula = "Te saluda"
        .Range("C3").Formula = "ranefi"
        .Range("D4").Formula = "Muerete de miedo, que voy por ti"
    End With
'--------------------------------------------
'----SE GUARDA EL ARCHIVO COCHINO EN LA RUTA DE LA APLICACIÓN----
    CochinoExcel.ActiveWorkBook.SaveAs FileName:=ArchivoCochino
'----------------------------------------------------------------
End Sub

No está de más el mencionar que buscará la hoja de Excel en la ruta de la aplicación, lo mismo hará al crearla; por ende, si la aplicación no ha sido guardada se creará o buscará la hoja de Excel en la carpeta de instalación de Visual Basic. De aquí en adelante sólo extrae el código que te sirva, y te recuerdo que en la Biblioteca de código encontrarás lo necesario para crear, abrir, modificar y cerrar hojas de cálculo de Excel. Nos vemos.

[sirhamelef]

Idolo!!! anduvo al pelo, en cuanto a lo otro sii lo vi y lo complemento con lo que se muchas gracias.