TRUCO PARA APRENDER A USAR EXCEL Y VB!!!!!!!!

sdemingo
30 de Octubre del 2003
Hola a [email protected] [email protected] compis del foro,

He visto que la gente escribe cantidad de post con dudas sobre cómo hacer esto y lo otro a la hora de interactuar con Excel y VB o Word y VB.

Lo principal es crearse un objeto del tipo de aplicación que queremos utilizar.

Dim obj As Object
Set obj = CreateObject("Word.Application")
o
Set obj = CreateObject("Excel.Application")

Con este objeto podremos realiar cuantos operaciones nos parezcan oportunas en un docuemtno de Word o en un libro de Excel.

El truquito (que realmente es una chorrada y seguro que casi todos lo conocéis) no es más que abrir un documento de Word o un libro de Excel. Acceder al menú Herramientas - Macro - Grabar nueva macro

A partir de ese momento, todo lo que hagáis en Word o Excel, quedará grabado en una Macro automáticamente. De ese modo, podréis comprobar a posteriori cual es el código que necesitáis para lo que queréis hacer.

No se si me he explicado bien, pero no tenéis más que probarlo.

Por ejemplo, lo acabo de hacer y manualmente he creado una tabla en Word de 2 filas y 5 columnas. También he escrito un texto en algunas de sus celdas. Pues bien, al parar la grabación, Word me había escrito esto en un módulo de macro:

Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 15/10/2003 por Indra
'
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
Selection.TypeText Text:="Celda 1"
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="Celda 2"
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="Celda 3"
Selection.MoveRight Unit:=wdCell
Selection.TypeText Text:="Celda 4"
End Sub

De ese modo, si no supiera como crear tablas por código VB, tan solo tendría que hacer esta operación para ver cómo se hace.

Esto es igual para Excel.

Espero que este pequeño truco sirva para ayudaros a muchos.

Un saludo
sdemingo

sdemingo
30 de Octubre del 2003
Lo refresco para llevarlo a la primera página para aquellos que no leyeron y aun tienen dudas.

Un saludo
sdemingo