Problema al Exportar a excel - VB-MUNDO

jimcov · #1 (**permalink**) 21-02-2006, 01:04:39

Hola a todos

El siguiente codigo funciona bien sin Option Explicit, pero con Option Explicit me acusa error en variable y selecciona
Excel =
aqui va codigo
On Error GoTo err:
Set Excel = GetObject(, "Excel.Application") ' Create Excel Object.
'aqui creo las hojas
err:
Set Excel = CreateObject("Excel.Application") 'Create Excel Object.

Set ExcelWBk = Excel.Workbooks.Add 'Add this Workbook to Excel.
Set ExcelWS = ExcelWBk.Worksheets(1) ' Add this sheet to this Workbook

'aqui escribo en celdas
ExcelWS.Range("C1") = "CALCULO DEL MUEBLE"
ExcelWS.Cells(2, 1) = "Codigo"
ExcelWS.Cells(2, 2) = "Cantidad"
ExcelWS.Cells(2, 3) = "Ancho"
ExcelWS.Cells(2, 4) = "Largo"
ExcelWS.Cells(2, 5) = "NºMaterial"
ExcelWS.Cells(2, 6) = "Descripcion"
ExcelWS.Cells(2, 7) = "Tipo Material"
ExcelWS.Cells(2, 8) = "Mts. 2"

'aqui le damos un poco de estilo a las celdas
ExcelWS.Range("A2", "h2").Borders.LineStyle = xlContinuous
ExcelWS.Range("A2", "h2").Borders.Weight = 2
ExcelWS.Range("C1").Borders.LineStyle = xlContinuous
ExcelWS.Range("C1").Borders.ColorIndex = 9
ExcelWS.Range("C1:e1").Borders.Weight = 4
ExcelWS.Range("A2", "h2").Font.Bold = True
ExcelWS.Range("A2", "h2").Font.Size = 10
ExcelWS.Range("A2", "h2").Font.ColorIndex = 5
ExcelWS.Range("c1").Font.Bold = 14
ExcelWS.Range("c1").Font.Size = 14
ExcelWS.Range("c1").Font.ColorIndex = 5
ExcelWS.Columns("f:f").EntireColumn.AutoFit
ExcelWS.Columns("G:G").EntireColumn.AutoFit 'columna se agranda segun largo palabras
Excel.Visible = True

Como debo declararlas para poner Option Explicit
ya que al cambiar de modulo no me acepta la instrucciones al excel
ayuda por favor

jimcov

acalanto · #2 (**permalink**) 21-02-2006, 05:45:31

Option Explicit obliga al compilador a verificar todas y cada una de las variables y objetos utilizados, y no permite nombres que no estén previamente declarados.

Es aconsejable el uso de esta directiva del compilador pues sin ella el siguiente código funcionaría sin problemas, no así los resultados obtenidos.

pepe = 10
juan = pepo + 5

el valor de juan será 5 (pepo no se ha iniciado con ningún valor) cuando todos esperamos que sea 15 ??

Al inicio del módulo debes poner las declaraciones. Algo parecido al siguiente código y poniendo los nombres que tú necesites.

Código:

Option Explicit

    Dim xcl As New Workbook
    Dim xlApp As Excel.Application
    Dim xlbook As Excel.Workbook
    Dim xlsheet As Excel.Worksheet

jimcov · #3 (**permalink**) 05-03-2006, 18:36:07

Gracias acalanto
ahora funciona perfecto
muchas gracias
jimcov