View Single Post
  #7   Report Post  
jwrnana
 
Posts: n/a
Default

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