works for single cell
Sub test()
strFile = "D:\1.xlsb"
Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile & _
";Extended Properties=""Excel 12.0;HDR=No;Readonly=True"""
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Open strCon
'check current value:
sqlm = "SELECT * FROM namedRange"
rs.Open sqlm, cn
m = rs.GetString
Debug.Print m
'update single cell
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandType = adCmdText
cmd.CommandText = "update namedRange set F1 = '123456789'"
cmd.Execute
End Sub
