Jump to content

CarlosKurt

Members
  • Content Count

    174
  • Joined

  • Last visited

About CarlosKurt

  • Rank
    Advanced Member
  • Birthday 10/22/1986

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Hola a todos Buscando desde hace dias pude resolver el inconveniente a este tema: Dejo el codigo por si a alguien le pueda servir Sub AñadirDesdeAccess() Dim conexion As Object Dim consulta As String Dim cadenaConexion As String Dim contador As Integer Set conexion = CreateObject("ADODB.connection") cadenaConexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\Srvmultiem\mgalpon\BODEGA-DSK\A2020\INGRESOS2020.mdb" consulta = "select * from CABECERAMOVIMIENTO;" conexion.Open cadenaConexion Set Recordset = conexion.Execute(consulta) If Not (Recordset.EOF And Recordset.BOF) Then Sheets("Hoja1").Cells(1, 1).CopyFromRecordset Recordset End If Recordset.Close Set Recordset = Nothing conexion.Close Set conexion = Nothing End Sub El unico incoveniente que tengo que es tengo que usar Excel 2007, he buscando como instalar Microsoft.ACE.OLEDB.12.0 en excel 2016 pero aun no he podido resolverlo. Lei tambien sobre Microsoft Access Database Engine 2010 Redistributable que actua como compatibilidad de accesss 2007 con excel 2016. Sin embargo, no he podido aun resolver. Por si alguien tuvo un inconveniente asi y pudo resolverlo, por favor compartirlo. Saludos.
  2. Hola @ikanni Si puedo acceder, sólo cuando nadie esta utilizando el sistema. Bueno de todas maneras gracias por su tiempo 🙂. Doy por terminado el tema Saludos
  3. Hola @ikanni Informandome un poco sobre BackEnd de datos. Se podria decir que se trabaja contra un BlackEnd. Por que solo se trabaja mediante la red local de la empresa y no por via web. Desde mi Pc puedo acceder a la base de datos.MDB solo cuando ningun usuario está utilizando el sistema. Por eso la macro que aportaste de Funtion Copia me facilito mucho ya que desde una copia puedo importar la informacion de las tablas que necesito. Pero, como mencione anteriormente, me gustaría importar la informacion al excel 2016 o 2007 cuando la base de datos.MDB este en uso por los usuarios. Buscando en la web en donde explicaba el Early vs. Late Binding encontre esta macro: Dim PPApp As Object Dim PPPres As Object Dim PPSlide As Object Set PPApp = GetObject("Powerpoint.Application") Set PPPres = PPApp.Presentations.Add Set PPSlide = PPPres.Slides.Add(1, 11) '' ppLayoutTitleOnly = 11 '' Do Some Stuff Here With PPPres .SaveAs "C:\My Documents\MyPreso.ppt" .Close End With PPApp.Quit Set PPSlide = Nothing Set PPPres = Nothing Set PPApp = Nothing Esta es para conectarse a una presentación de Power Point que esta abierta, ¿Usando esta misma macro como hago para conectarme a una tabla especifica de access que estaria siendo usando (abierta)? PD: Como que el tema cambio un poco a lo que solicite en el inicio, ¿Es conveniente que lo vuelva a publicar como otro tema? Saludos.
  4. Hola @ikanni, la base de datos tiene las siguientes detalles: Se encuentra en un servidor Windows Server Enterprise Service Pack 1 Inicialmente fue desarrollada en Access 97 pero es abierta al Access 2007 con algunas limitaciones. Al abrir la base de datos aparece una ventana (imagen adjunta) en donde se le dice que "No" convierta a la version mas reciente. Para trabajar en la base de datos se realiza a través de un sistema (imagen adjunta) hecha de formularios (al menos eso es lo que veo). Es un sistema de inventario y venta. Los usuarios ingresan a través de los formularios (sistema) desde distintas PCs Mencionado lo anterior no puedo ingresar a la base de datos .mdb por que los usuarios estan usando el sistema en simultaneo. Creo que es posible ingresar a la base de datos .mdb por que si los usuarios ingresan al sistema por medio de un formulario entonces cabe la posibilidad de que se pueda acceder a la base de datos desde excel 2016 y 2007. Espero haberme hecho entender. Saludos
  5. Hola @ikanni, es interesante tu aporte me ha funcionado perfectamente. Gracias por su ayuda. Por curiosidad, en vez de copiar, pegar y luego importar algunas tablas de una base de datos de access 2007 que necesito, es posible desde excel importar tablas de access abiertas? Saludos
  6. Hola a todos, acá nuevamente solicitando su tiempo para el siguiente inconveniente que tengo 😌 La siguiente macro, encontrada en la web, me funciona a la perfección. Sin embargo, cuando el archivo esta en uso crea un nuevo archivo temporal con la extension (.ldb) y es ahi donde la macro no funciona. Como resolver este inconveniente? Sub CopiarArchivos() FileCopy "Y:\INVENT.mdb", "Y:\INVENT2.mdb" End Sub Saludos
  7. Hola @bigpetroman, muchas gracias por tu tiempo, funciona a la perfección 😀. Llegué a pensar que ya no era posible resolver mi solicitud 😬. Doy por terminado el tema. Saludos 😷
  8. Hola @avalencia, muchas gracias por su aporte. No sabia que "w" también representaría una "hoja". Doy por terminado el tema. Saludos
  9. Hola a tod@s, nuevamente solicitando su tiempo y aporte para ese nuevo tema. El siguiente codigo lo encontre en la Web. #If VBA7 And Win64 Then Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" ( _ ByVal pCaller As LongPtr, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As LongPtr, _ ByVal lpfnCB As LongPtr _ ) As Long #Else Private Declare Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" ( _ ByVal pCaller As Long, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As Long, _ ByVal lpfnCB As Long _ ) As Long #End If Sub CrearQRMasivo() Dim n&, I& LimpiarImagenes With wGenerador n = .Range("H" & Rows.Count).End(xlUp).Row For I = 2 To n CrearQRIndividual .Range("H" & I) Next End With End Sub Sub CrearQRIndividual(Valor As Range) Dim Link$, Ruta$, QR As Object Dim lado&, izqui&, nTop& 'Descargo el código QR If Valor.Value = Empty Then Exit Sub End If Link = "http://chart.apis.google.com/chart?cht=qr&chs=300x300&chl=" & Valor.Value & "&chld=H|0" Ruta = ThisWorkbook.Path & "\chart.png" URLDownloadToFile 0, Link, Ruta, 0, 0 '----------------- 'Ingreso la imagen Set QR = ActiveSheet.Pictures.Insert(Ruta) Kill Ruta With wGenerador nTop = .Range("I" & Valor.Row).Top lado = .Range("I" & Valor.Row).Width izqui = .Range("I" & Valor.Row).Left With QR .Top = nTop .Width = lado .Left = izqui End With .Range("I" & Valor.Row).RowHeight = lado End With '----------------- End Sub Sub LimpiarTodo() LimpiarImagenes wGenerador.Range("H2", "H" & Rows.Count) = Empty End Sub Sub LimpiarImagenes() Dim imagen As Picture For Each imagen In ActiveSheet.Pictures imagen.Delete Next wGenerador.Range("H2", "H" & Rows.Count).RowHeight = wGenerador.Range("H2").RowHeight End Sub Este código genera Imágenes QR; sin embargo cuando se copia la hoja completa para generar nuevas imagenes QR de otros productos; solo genera los mismo codigos de la hoja principal; se necesita que se genere imagenes QR para la nueva hoja . Espero haberme hecho entender Saludos pruebaQr.xlsm
  10. Hola @AlexanderS , muchas gracias por su tiempo y aporte; esta perfecto. Doy por terminado el tema. Saludos
  11. Hola a tod@s. Como siempre agradecido por su tiempo y aporte para este nuevo tema. Tengo la siguiente macro Sub CopyPaste() Dim xRng As Range On Error Resume Next Set xRng = Application.InputBox("Selecciones el rango:", "MS Excel", , , , , , 8).Select ' If xRng Is Nothing Then Exit Sub Selection.SpecialCells(xlCellTypeBlanks).Select Range("A1").End(xlDown).Offset(1, 0) = "=R[-1]C" Columns("A:A").SpecialCells(xlCellTypeFormulas, 23).Copy ' Range("A1").End(xlDown).Copy ActiveSheet.Paste End Sub El cual funciona bien cuando se ingresa el rango en el InputBox. El detalle esta cuando decido "Cancelar" el InputBox; la macro continua ejecutandose 😧. Cuando activo activo el "bloque sin comentarios" de la siguiente linea If xRng Is Nothing Then Exit Sub la macro no se ejecuta 😕 Saludos PruebaCopyPaste.xlsm
  12. Hola a tod@s, de antemano agradecer su tiempo para el siguiente caso. La planilla original tiene 900 filas, cada fila es un producto que tiene ingresos diarios por fechas. Se necesita visualizar el comportamiento de los ingresos a través de "flechas"; como los de la herramienta "Formato Condicional". Por ejemplo, según la imagen, el producto pan se observa que tiene insertada las "flechas verdes hacia arriba" por que es mayor al día anterior, se insertan "flechas rojas hacia abajo" cuando son números menores al día anterior y "flechas amarillas hacia la derecha" cuando los números son iguales al día anterior. Si el planteamiento que expongo fuese posible, entonces puede hacerse de manera masiva a las 900 productos? PD: La imagen que inserte fue realizada en Paint Saludos
  13. Hola @Antoni, estoy muy agradecido por tu respuesta y tiempo. Doy por terminado el tema Saludos.
  14. Hola a tod@s. Agradezco de antemano su tiempo y respuesta a los siguiente. En la hoja "RESUMEN" se encuentran los códigos de clientes y en las siguientes hojas se nombran cada código de cliente. Entonces lo que se requiere es que, por ejemplo, que en la hoja "A 030-028" se crea un hipervínculo hacia la hoja "RESUMEN", PERO con dirección hacia la celda A4 ya que es el nombre de la hoja "A 030-028". Y así sucesivamente con las demás hojas. Lo haría manualmente pero son mas de 800 hojas. Creo que esto solo se puede lograr con Macros, pero si hay la posibilidad de realizar sin ello estaría perfecto. Saludos PRUEBA.xlsx
  15. Es mi caso, mis colegas tienen nivel en negativo, no quieren aprender 😅 Saludos
×
×
  • Create New...

Important Information

Privacy Policy