RE:Importar o Exportar datos
Hola:
si necesitas importar de Excel a SQL Server
puede que te sirva
obiviamente el codigo es para ADO, ya que es "FORO - Visual Basic ADO"
dim cnn as ADODB.Connection
dim NumeroRegistros as long
dim sSQL as string
'Abrimos una conexion con el libro de Excel
Set cnn = New Adodb.connect
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectiogString="Data Source=C:\Mis Documentos\Libro1.xls"
.Properties("Extended Properties")="Excel 8.0"
.Open
End With
'Importamos utilizando una Cadena ODBC
sSql="SELECT * INTO [ODBC; Driver={SQL Server};" & _
"Server=Nombre_Servidor_Sql; Database=Pubs;" & _
"UID=Nombre_Usuario;PWD=Contraseña].TablaExcel " & _
"FROM [RANGO1]"
'Ejecutamos la Consulta
cnn.Execute sSql, NumeroRegistros, adExecuteNoRecords
MsgBox "Números De Registros Importados : " & NumeroRegistros
'Cerramos la Conexión y Liberamos la memoria
cnn.Close.
Set cnn=Nothing
'---- Espero que esto te sirva ------
para la Exportación a Excel, debe ser algo similar, pero con esto
ya tienes la clave para lo que necesitas.
Saludos...