еще реализовал такой способо:
========================================================
Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\MAINCOMP\Exel\ADO_work.xlsm;Extended Properties=Excel 12.0;"
Dim rs As New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "MyTable", conn
testNum = Rnd * 100
Cells(1, 1) = testNum
rs.Fields(0) = testNum
rs.Update
========================================================
данные передаются в отличии от метода с связыванием таблиц, но я не вижу изменений в режими on-line, но закрыв файл и открыв его снова я вижу изменения. в каком направлении двигаться дальше?
========================================================
Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\MAINCOMP\Exel\ADO_work.xlsm;Extended Properties=Excel 12.0;"
Dim rs As New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "MyTable", conn
testNum = Rnd * 100
Cells(1, 1) = testNum
rs.Fields(0) = testNum
rs.Update
========================================================
данные передаются в отличии от метода с связыванием таблиц, но я не вижу изменений в режими on-line, но закрыв файл и открыв его снова я вижу изменения. в каком направлении двигаться дальше?