Importar datos
Publicado por A Edmundo (18 intervenciones) el 02/12/2020 17:08:06
Hola amigos, hice una aplicación para importar datos CSV a access, solo que el CSV tiene datos duplicados y la tabla en access no acepta duplicados, así que cada que corro el código me pregunta si deseo continuar debido a que se eliminaran los datos que no se pudieron importar, por defaut el botón sale en no y yo le tengo que picar en si para que siga corriendo el código, se supone que no es mucha molestia pero importo 150 tablas y es una rutina que se hace cada semana, lo que hace lento el proceso, se puede poner una opción para que los importe sin que me pregunte? el parametro que uso es acImportDelim, el código completo es el sig:
Agradecería su ayuda
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Import()
Dim NombreArchivo$, BaseA As Database, Reg As Recordset, NombreTabla$
Set BaseA = CurrentDb()
Set Reg = BaseA.OpenRecordset("monedas")
Reg.MoveLastReg.MoveFirstDo Until Reg.EOFNombreArchivo = "C:\medias1mAC\" & Reg!moneda & "USDT.csv"
NombreTabla = Reg!moneda
Debug.Print "Exportando datos de la tabla: " & NombreTabla
DoCmd.TransferText acImportDelim, , NombreTabla, NombreArchivo, False
Reg.MoveNextLoop
Reg.CloseBaseA.CloseSet Reg = NothingSet BaseA = NothingMsgBox "listo"End Sub
Agradecería su ayuda
Valora esta pregunta
0
