RE:Importar datos excel sql
Con la siguiente función puedes llamar los datos de excel al programa de visual basic.
'*************************************************************************
' FUNCION ABRIR: Abre el archivo de excel y permite obtener los datos
' contenidos dentro de este
'*************************************************************************
Public Function Abrir(ByRef variable_value() As String)
' Define cuál archivo se va a abrir y en cuál hoja va a leer
Set ObjExcel = New Excel.Application
Set ObjBook = ObjExcel.Workbooks.Open("<ruta y nombre del archivo.xls")
Set ObjSheet = ObjBook.Worksheets.Item(1)
ReDim variable_value(n) As String ' Definir el tamaño del arreglo que recibirá los datos de excel
' Lee los datos del archivo y los lleva a las variables definidas
With ObjSheet
variable_value(0) = .Cells(1, 1)
variable_value(1) = .Cells(2, 1)
.....
variable_value(n) = .Cells(n, m)
End With
ObjExcel.Quit False
End Function