OCULTAR

Las celdas las controla el objeto Range, el color de relleno el objeto
Interior, y asi

Te recomiendo nuevamente lo que dice Hector, graba una macro y leela

dorian+ wrote:

héctor:

muchas gracias !! como debería buscar en la ayuda de excel para
acceder a este tipo de propiedades ? (bordes, alineación, tamaño,
etc. de las celdas?)

dorian+

gracias julian !!

muy buena idea !

=)

hola, dorian !

si te refieres a los 'problemillas' que has estado comentando en tu mensaje de =>formatos<= ...

1.- con respecto de la instruccion 'Kill':
=> DEBIERA 'funcionar' [tal como lo menciona Fernando] 'pero...'
si el codigo 'te dice' que NO 'existe' el archivo... 'efectivamente'... NO 'existe'
una posibilidad seria que la variable [IdCreadorArchivo]... YA 'incluya' la extencion =>".xls"<
2.- con respecto del error 1004 en tiempo de ejecucion: 'Imposible asignar ... HorizontalAlignment de la clase Range'
=> si YA 'paso' el 'With Font [...] .Bold + .Name + [etc.] 'pero...'
'se detiene' [o falla] con el 'With App...(range) [...] .HorizontalAlignment = xlCenter es 'probable' que...
a) la hoja [o el libro] sean 'protegidos' [por alguna otra parte del codigo] ANTES de 'llegar' esa instruccion [???]
b) 'en el momento' de la ejecucion del codigo, el elemento 'seleccionado' [o 'referido'] NO es un objeto 'apropiado'

son [solo] algunas ideas de 'posibles' causas :((
=>ya que [al menos] 'al parecer'... estas 'cortando' el codigo que expones en tus consultas [???]

¿comentas?
saludos,
hector.

héctor

muchas gracias por tu respuesta\ el problema con kill está solucionado (lo incluí dentro de la sentencia que comprueba la existencia del archivo)\ igual no entiendo porque, si ejecuta todas las acciones que corresponden al existir el archivo, si coloco la sentencia kill fuera del if.. then me da error\ igual eso esta solucionado\ los formatos me siguen dando un poco mas de dolor de cabeza... seguí el consejo de julian y grabé una macro para ver como era el tema de los formatos que necesitaba aplicar. bueno, algunas cosas funcionan, otras no te paso todo el código que se refiere al formato:

With appExcel.sheets(1).Range(appExcel.sheets(1).cells(1, 1), appExcel.sheets(1).cells(1, xlColumna)
With .Fon
.Bold = Tru
.Name = "Arial
.Size = 1
.Color = RGB(255, 255, 255
End Wit

.Interior.Color = RGB(0, 0, 0
.HorizontalAlignment = xlCenter < esta linea provoca erro
.VerticalAlignment = xlCenter < y esta también (la anetrior y la siguiente NO
.EntireRow.RowHeight = 2

End Wit

con la siguiente sentencia me dice que me fata un objeto\ no es borders uno ? (por lo menos así lo entendí de la ayuda de excel)\ :

With appExcel.sheets(1).Range(appExcel.sheets(1).cells(fila, 1), appExcel.sheets(1).cells(fila, xlColumna)).Borders (xlEdgeBottom
.LineStyle = xlContinuou
.Weight = xlThic
.ColorIndex = xlAutomati
End Wit

appExcel.sheets(1).Columns("A:I").Autofit < SIN PROBLEMA
appExcel.sheets(1).Range("A:D").Select < selecciona el rango pero no puedo "centrar" las columnas :
With Selectio
.HorizontalAlignment = xlCente
End Wit

no tengo problemas con lo que sigue de código

appExcel.ActiveWindow.DisplayHeadings = False ' Oculta los encabezados de Fila y Column
appExcel.ActiveWindow.DisplayGridlines = False ' Oculta las lineas de divisió



.Name = "Inventario" ' <<<<<<<<<<<<<<

End Wit

rst.Clos


'Guarda los cambios realizados asignándole un nombre al libro y después lo cierr

appExcel.ActiveWorkbook.SaveAs "c:\Mis Documentos\LibroNuevo" ' <<<<<<<<<

'Otra opción sería guardar el archivo en el directorio actual de trabajo. Para ell
'activar la siguiente línea (y descativar la precedente)

'appExcel.ActiveWorkbook.SaveAs CurrentProject.Path & "\LibroNuevo

appExcel.ActiveWorkbook.Close Tru
appExcel.Qui


esta vez estuvo super completo el código aunque lleno de "horrores" supongo\ como siempre te agradezco tu paciencia y tiempo (sobretodo

saludos\ dorian+

hola, dorian !

... los formatos me siguen dando un poco mas de dolor de cabeza ... segui el consejo de julian y grabe una macro
... bueno, algunas cosas funcionan, otras no te paso todo el codigo que se refiere al formato: [...]

haciendo un 'recuento' de las partes [del codigo] que fallan ...
==> las siguientes presentan fallas de 'interpretacion' de las 'constantes' de excel =>xlCenter<> .HorizontalAlignment = xlCenter < esta linea provoca error

.VerticalAlignment = xlCenter < y esta tambien (la anterior y la siguiente NO)
... appExcel.sheets(1).Range("A:D").Select < selecciona el rango pero no puedo "centrar" las columnas :(
... With Selection
.HorizontalAlignment = xlCenter
End With

==> y la siguiente [aparentemente] 'ha perdido' un bojeto :))

... la siguiente sentencia me dice que me fata un objeto\ no es borders uno? (por lo menos así lo entendí de la ayuda de excel)\

:(

With appExcel.sheets(1).Range(appExcel.sheets(1).cells(fila, 1), appExcel.sheets(1).cells(fila, xlColumna)).Borders (xlEdgeBottom)

la/s solucion/es [probablemente] las encontraras con una [o varias] de las siguientes 'observaciones':
1.- con respecto del 'objeto perdido'...
no estoy seguro de que 'efectivamente' hubiese 'quedado' el espacio 'entre' =>.Borders<= y =>(xlEdgeBottom)< [de 'ser asi'... podria haberse perdido el 'enlace' entre el objeto 'Borders' y su indice [xlEdgeBottom]
2.- [quizas] es necesario 'establecer' una referencia a la biblioteca de objetos de excel
=>en el proyecto de macros de la aplicacion 'desde la que' esas automatizando excel< herramientas / referencias => Microsoft Excel x.x Object Library
3.- si [AUN] estableciendo la referencia a la biblioteca de objetos de excel... sigue 'fallando' la 'interpretacion' de las
constantes...
prueba a CAMBIAR [en 'esas' lineas de codigo] las constantes 'por' su valor 'real'
p.e. xlCenter [que es 'lo mismo' que 'xlHAlignCenter'] 'equivale' al valor -4108 [menos_cuatro_uno_cero_ocho]
puedes 'comprobar' sus valores =>en vba de excel<= en la ventana de 'inmediato' con la 'sentencia' =>? xlCenter<= + {Enter}
o te puedes 'bajar' un ZIP con las equivalencias de las constantes en excel de: http://www.cpearson.com/Zips/XLConsts2.ZIP

¿avisas si hay progreso? :))
saludos,
hector.