Нет, вы не совсем меня поняли...
Хранить данные в excel вообще не нужно, нужно хранить в базе access.
Смотрите что я хочу...
Есть предположим кнопочка в excel которая выполняет вот такой макрос
Sub GetMyData()
Const strDb As String = "C:\Documents and Settings\Admin\Рабочий стол\ТАНЕКО.mdb"
Const strQry As String = "SELECT * from Главная"
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strDb & ";"
Set rs = New ADODB.Recordset
With rs
Set .ActiveConnection = cn
.Open strQry
End With
Worksheets("Лист1").Range("A1").CopyFromRecordset rs
rs.Close: cn.Close
Set rs = Nothing: Set cn = Nothing
End Sub
Он выводит из базы access все данные в таблички excel, там пользователи что то изменяют или добавляют, и ЗАТЕМ МНЕ НУЖНО ЭТО ВСЕ ВЕРНУТЬ В ACCESS, как это сделать???
Хранить данные в excel вообще не нужно, нужно хранить в базе access.
Смотрите что я хочу...
Есть предположим кнопочка в excel которая выполняет вот такой макрос
Sub GetMyData()
Const strDb As String = "C:\Documents and Settings\Admin\Рабочий стол\ТАНЕКО.mdb"
Const strQry As String = "SELECT * from Главная"
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strDb & ";"
Set rs = New ADODB.Recordset
With rs
Set .ActiveConnection = cn
.Open strQry
End With
Worksheets("Лист1").Range("A1").CopyFromRecordset rs
rs.Close: cn.Close
Set rs = Nothing: Set cn = Nothing
End Sub
Он выводит из базы access все данные в таблички excel, там пользователи что то изменяют или добавляют, и ЗАТЕМ МНЕ НУЖНО ЭТО ВСЕ ВЕРНУТЬ В ACCESS, как это сделать???