writing to excel file from outlook

  • Thread starter Thread starter pete the greek
  • Start date Start date
P

pete the greek

hi im trying to us excel to log whick folders i access within my email and am
struggling with the automation between outloook and excel

i appear to be able to do this by creating a new excel object and then
opening the excel file writing the info and then closing it again see code
below.

what i would like to do is leave the escel file open as i assume this would
be quicker but if i do this creatobject opens the file as read only in the
background

i think i need to use getobject to pick up the open file but cant get it to
work any pointers

code:

Sub log()

Set MyApp = CreateObject("excel.application")



Set objNS = Application.GetNamespace("MAPI")
Set thisfolder = Application.ActiveExplorer.CurrentFolder

MyApp.workbooks.Open "C:\Documents and Settings\Peter\My
Documents\test.xls", ReadOnly:="false"
MyApp.workbooks("test.xls").worksheets(1).Range("A1").Select
MyApp.Selection.entirerow.Insert
MyApp.workbooks("test.xls").worksheets(1).Range("A1").Value = thisfolder.Name



MyApp.workbooks("test.xls").Close (True)



End Sub
 
Pete,

The focus of this newsgroup is on macros in Access, the database program.
You will have a better chance of getting good help if you can re-post to an
Outlook newsgroup/forum.
 
Back
Top