Modificar Excel desde Access

1 post / 0 nuevos
Ribos_C
Imagen de Ribos_C
Offline
última acción: Hace 6 meses 1 semana
alta: 29/01/2022 - 17:09
Puntos: 25
Modificar Excel desde Access

Hola a Todos:

Tengo una duda como lo puedo hacer para dada una planilla excel que yo selecciono desde un formulario de access, agregar un valor en la octava columna de dicha planilla.

Ejemplo práctico; la cantidad de filas con registros pueden ser 10 como a veces pueden ser 100 filas. La primera fila siempre contiene los nombres de los campos, y, lo que siempre es fijo es la cantidad de columnas, 7.

Lo que quiero hacer es dada una condición por ejemplo si el valor de la celda B2 es falsa o verdadera, colocar en la celda H2 Falso o Veradero, según sea el rersulatado de la condición. Y así recorrer toda la columna hasta la celda final B10 ó B100.

La condición específica sería;  es si el valor de la celda B2 se encuentra en la tabla de access (Nombre Tabla, INFC, Campo, IND)  agregue en la celda H2 un indicador, y así sucesivamente hasta la última Fila del excel.

Hasta el momento se me ocurre ocupar directamente desde código VBA Access DLookup, pero eso solo me sirve para un solo registro

Lo que tengo es lo siguiente. Abro díalogo para abrir archivo excel

Set OpenDialog = Application.FileDialog(3)
OpenDialog.AllowMultiSelect = False
OpenDialog.Title = "SELECCIONE ARCHIVO DE EXCEL..."
OpenDialog.Filters.Clear
OpenDialog.Filters.Add "EXCEL Files", "*.xlsx;*.xls;*.xlsm"
OpenDialog.Filters.Add "All Files", "*.*"
OpenDialog.Show

En este momento es dónde quiero leer y modificar el Excel solo en la última columna. En pocas palabras agregar una nota de resultado en la columna H según condición.

Luego hago un traspaso a una tabla temporal de Access.

DoCmd.SetWarnings False
DoCmd.TransferSpreadsheet acImport, , "TMP_CRG", Path, True
DoCmd.SetWarnings False

Ojalá me puedan ayudar.

AdjuntoTamaño
File type.xlsx14.98 KB

Etiquetas: