funddd
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub КнопкаУх_Click()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.Open "Driver={Microsoft Excel Driver (*.xls)};DBQ=Мойэксельныйфайл.xls"
rs.Open "select * from [Лист]", cnn
Set rs.ActiveConnection = CurrentProject.Connection
...
Set rs = Nothing
И вот на этом ругаисся, что, дескать, объект закрыт.
Вообще-то задача стоит так:
эксельный файл открыть, прочитать, сохранить в базу.
не знаю, почему, но TransferSpreadSheet отказывается видеть файл по тому пути, по которому он находится. Пошел вкружным путем, до конца не уверен, что он правильный, одно радует — коннекшн открываетс, рекордсет заполняется.
А вот что дальше, черт его знает.
Сам не пробовал. Но вдруг?
попробуй
после
Set cnn = New ADODB.Connection
сказать
1) cnn.cursorLocation= adUseClient
после
rs.Open "select * from [Лист]", cnn
сказать
set rs.ActiveConnection=Nothing
а потом
сказать
Set rs.ActiveConnection = CurrentProject.Connection
при этом у тебя должна быть табла [Лист]
а потом нужно что-то типа UpdateBatch сказать
все это может не сработать, т.к. статусы у читанных записей локальных не изменились.
Так что (может оказаться) либо сначала модифицировать в цикле, а потом апдейтбатч., либо попытаться задействовать стрим - типа отперсистить первоначальный рекордсет в стрим, а в новый , открытый на
CurrentProject.Connection добавить из этого стрима.
