Thank you for the append information. Very helpful.
I am using Excel 2000 - Am I correct that I cannot avoid having the pop-up
box asking if I want to update each time I open a linked worksheet -- when
emailing?
Your assistance is greatly appreciated!
"Bill Manville" wrote in message
...
You will need Tools / References / Microsoft DAO Library 3.6 (or
similar)
Sub AppendSomeData()
Dim DB As DBEngine.Database
Set DB=OpenDatabase("C:\MyDir\MyDatabase")
DB.Execute "INSERT INTO MyTable (MyNumField1, MyAlphaField2) VALUES
(" & Range("A1") & ", '" & Range("B1") & "')"
End Sub
Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - respond to newsgroup
|