Hola a todos, existe alguna manera de agregar registros a una tabla de access
desde un área de excel???, actualmente hago varias "maromas" para conseguirlo
pero creo que debe haber una manera mas sencilla de hacerlo.
Les comento lo que hago:
1.- Guardo el área que quiero a un archivo de paso aparte
2.- En Access tengo un Table Link a ese archivo de paso
3.- Hago el insert de la Table Link de paso a la buena
con el siguiente código:
Sub AVC_CreaPasoVentas(para As String)
Range("a1").CurrentRegion.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.DisplayAlerts = False
If Dir("c:\VentasTemporal.xls") <> "" Then Kill "c:\VentasTemporal.xls"
Application.DisplayAlerts = True
ActiveWorkbook.SaveAs Filename:="c:\VentasTemporal.xls"
ActiveWorkbook.Close
Dim miBD As Database
Dim strInstrucciónSQL As String
Set miBD = OpenDatabase("c:\Precios.mdb")
strInstrucciónSQL = "INSERT INTO Ventas SELECT VentasTemporal.* FROM
VentasTemporal"
miBD.Execute (strInstrucciónSQL)
Set miBD = Nothing
End Sub
Les agradezco de antemano sus comentarios, saludos
Alejandro Villarreal
Últimos mensajes - Powered by IBM
Palabras claves
Hacer una pregunta
Siga el debate
Tengo una respuesta
Jueves 18 de abril - 04:11
Registrar
Leer las respuestas