Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

como hacer que corra codigo...

01/10/2008 - 03:04 por Isrrael | Informe spam
Ayuda Hacer una pregunta
Hola a toda la comunidad,
Pues tengo el siguiente codigo:

Sub ManifestCleanUp()
Rows("1:5").Select
Range("A5").Activate
Selection.Delete Shift:=xlUp
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:="=", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "0"
Range("B1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "[$-409]d-mmm-yy;@"
Range("A2").Select
ThisWorkbook.Close
End Sub

Y bueno en realidad tengo muchas preguntas, la primera es: como puedo hacer
que mediante un codigo esta pueda abrir una pagina de internet y ejecute
algunos reportes... para que al final un archivo del tipo csv sea exportado
y entonces se le ejecute el codigo arriba mencionado, para que
finalmente le pregunte al usuario el nombre con el que será guardado el
archivo como xls...

Si alguien tiene una idea, pls

Saludos!
Isrrael
email Siga el debateRespuesta 5 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
01/10/2008 - 06:22 | Informe spam
hola, Isrrael ! (de atras... pa'lante)

- alguna idea ?... como para que ???

- el codigo que expones (creo que) no es representativo de las preguntas que haces -?-

- serviria si comentas (enunciativamente, p.e.)
- que pagina ?
- una vez abierta, que debe hacer el codigo ? (navegar por ella ?... obtener alguna tabla ?... ???)
- los reportes "a ejecutar"... como son y/o que debe hacer el codigo con/para/... ellos ?
- por que debe "pasarse" por un archivo *.CSV y cual es el separador de listas en tu configuracion regional ?
- hay formulas que deban (o no) "conservarse" entre alguna (re)conversion *.CSV <-> *.XLS ?

(probablemente) de este lado del mensaje se tendrian mas preguntas que las tuyas -???-

saludos,
hector.

__ OP __
Hola a toda la comunidad,
Pues tengo el siguiente codigo:

Sub ManifestCleanUp()
Rows("1:5").Select
Range("A5").Activate
Selection.Delete Shift:=xlUp
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:="=", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "0"
Range("B1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "[$-409]d-mmm-yy;@"
Range("A2").Select
ThisWorkbook.Close
End Sub

Y bueno en realidad tengo muchas preguntas, la primera es:
como puedo hacer que mediante un codigo esta pueda abrir una pagina de internet y ejecute algunos reportes
... para que al final un archivo del tipo csv sea exportado y entonces se le ejecute el codigo arriba mencionado
... para que finalmente le pregunte al usuario el nombre con el que sera guardado el archivo como xls...

Si alguien tiene una idea, pls

Preguntas similares

 

Busqueda sugerida :