RE:exportar de excel a una tabla mysql
Algo tarde pero talvez sirva para alguien que tiene la misma inquietud.
//conecta el objeto en este caso excel
OLEObject MyOLEObject
MyOLEObject = Create OLEObject
MyOLEObject.ConnectToObject(path del archivo de excel entre " ")
MyOLEObject.worksheets(nombre de la hoja de excel entre " ").Activate
//abre o no el objeto excel
MyOLEObject.application.visible =false
//aqui va el rango de las celdas a importar a la base
MyOLEObject.Worksheets(nombre de la hoja de excel entre " ").Range("B5:K10000").
Copy //reset clipboard
//reseta a la datawindow
dw_1.reset()
//copia el rango q seleccionastes de excel a la datawindow creada
dw_nombre de la datawindow.importclipboard(1)
-------------------------------------------------------------------------------
//en la variables se deposita lo que trae la datawindow
Val1 = dw_1.GetItemString(numero de fila donde empieza,entre comillas titulo que lleva la columna)
Val2 = dw_1.GetItemString(3,"Telefono_origen")
//luego tu variable captura el dato de la datawindow y de alli haces el insert en tu DB