ник: Bellerofont
Например, в черновом виде так (предполагается, что таблица с соответствующими полями уже существует в mdb):
Sub Export(strXlWorkbookFullName As String, _
strMDBFile As String, _
strTableName As String, _
strXlSheetName As String)
Dim con As Object
Dim strConnectionString As String
Dim strSQL As String
Set con = CreateObject("ADODB.Connection")
strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";" _
& "Data Source=" & strXlWorkbookFullName
strSQL = "INSERT INTO " & strTableName & " IN '" & strMDBFile & "' SELECT * FROM [" & strXlSheetName & "$]"
con.open strConnectionString
con.execute strSQL
con.Close
Set con = Nothing
End Sub
|