smartacm

Hola! Esto es un tanto más complicado, pero les será fácil entender la idea!!! Este ejemplo crea un menú inicial (MiMenuExcel) en cual tiene 2 opciones 1. Actualizar módulos - Dependiendo de los datos que se anexen en la Hoja1 en la columna A genera una macro para cada opción 2. Actualiza Menú - Esta lo que hace es crearte un botón en el menú por cada celda con datos en la columna A Lo importante de este ejemplo es que se agregan procedimientos y opciones en el menú dependiendo de las celdas con datos en la Hoja1 Algo importante, para poder ejecutar la primer opción en la seguridad de las macros en excel debe estar habilitada la opción de Acceso a Proyecto de VB ya que la macro lo que hace es escribir en un módulo independiente los procesos de cada botón del menú. A demás si lo quieren usar en un libro nuevo (Con su código Propio) deben agregar la referencia "Microsoft Visual Basic for Applications Extensibility X.X" Nota: primero hay que darle a la opción 1 y luego a la 2 Salu2! Creas Prodedimientos con Código.zip

Hola! Les dejo un aporte para importar datos de Access a Excel! Primedo deben de agregar la referencia "Microsoft ActiveX Data Object 2.8 Library" Esto es en la opción Referencias del menú Herramientas en VB. Sub importarDeAccess() 'Variables de la conección Dim miConn As ADODB.Connection Dim miRset As ADODB.Recordset Dim miBase, miSQL As String Dim miTabla As String Dim misCampos As Long Dim i As Long 'Colocar la ruta del archivo, en este caso la base 'Esta en la carpeta donde esta el archivo miBase = ThisWorkbook.Path & "\" & "db.mdb" 'Nombre de la tabla del archivo Access miTabla = "salarios_2003" 'Se crea y abre la conección Set miConn = New ADODB.Connection Set miRset = New ADODB.Recordset miConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source =" & miBase & ";" 'Se genera Consulta SQL miSQL = "SELECT * FROM " & strTabla & "" miRset.Open miSQL, miConn 'Se copian datos a la hoja ActiveSheet.Cells(2, 1).CopyFromRecordset miRset 'Se copian los títulos de las Columnas misCampos = miRset.Fields.Count For i = 0 To misCampos - 1 ActiveSheet.Cells(1, i + 1).Value = miRset.Fields(i).Name Next 'desconectar miRset.Close: Set miRset = Nothing miConn.Close: Set miConn = Nothing End Sub [/CODE] En realidad es bastante fácil una vez que se entiende cómo accede a los datos de acuerdo a las sentencias SQL que se realicen La próxima subiré un ejemplo de lo que se puede hacer con ello! Salu2!

Hola! Yo uso la referencia "Microsoft Scripting Runtime", ésta la agrego a mi proyecto y puedo trabajar de este modo: Private Sub Archivos(Directorio As String) 'Variable de tipo FILE y FOLDER para listar los archivos de un path Dim misArchivos As File Dim miDirectorio As Folder Dim fso As FileSystemObject 'Nuevo objeto FileSystemObject Set fso = New FileSystemObject ' Obtiene el directorio Set miDirectorio = fso.GetFolder(Directorio) ' Lista los ficheros de esta carpeta For Each misArchivos In miDirectorio.Files ActiveCell = misArchivos.Name ActiveCell.Offset(0, 1) = misArchivos.Path ActiveCell.Offset(0, 2) = misArchivos.DateCreated ActiveCell.Offset(1, 0).Activate Next misArchivos End Sub[/CODE] Salu2!

Hola! Les dejo un aporte que puede que les interese. Cuantas veces no he querido colocar en mi macro un formulario parametrizable por el usuario si que él pudiera ver dónde se guarda esa información, después de pensar un poco me dí cuenta que no era tan difícil. Este método sólo funcionaría si se guarda el libro como un complemento (xla), tal como el ejemplo que les anexo! La idea es guardar el parámetro en el complemento, en una hoja del mismo! En el ejemplo hay 2 macros que pueden ejecutarlas con Alt+F8 Configurar: Abre el Form para configuración generaRepeticiones: Genera las repeticiones en el libro abierto Lo que hace es generar repeticiones de una palabra de acuerdo a la configuración dada el el formulario. Si alguién se le ocurrió una forma distinta sería bueno ver más opciones Salu2! ConfiguraciondeMacros.zip