Solved

outlook vba opens workbook as read only

Posted on 2010-11-17
5
561 Views
Last Modified: 2012-05-10
I am trying to open an Excel workbook from outlook. However for some reason the book opens as read only. I need to be able to write to the file:-

 
Option Explicit

'outlook objects

Public oNameSpace As Outlook.NameSpace
Public oInboxItem As Variant
Public oFolder As Outlook.MAPIFolder
Public oMsg As Object


'excel objects

Public objexcel As Excel.Application
Public objWB As Excel.Workbook
Public objFSO As Scripting.FileSystemObject
Public excel_filename As String



Sub Extract_Reports()
'extracts reports for HomeExpert


Set objFSO = CreateObject("Scripting.FileSystemObject")

'opens the excel workbook

Call open_workbook

Call extract_outlook_info

Call close_workbook

End Sub


Public Sub open_workbook()
'opens the Excel workbook
Dim excel_path  As String

excel_path = "C:\01 simplyspreadsheets\63 home expert\"
excel_filename = "master file.xlsx"

MsgBox excel_path & " " & excel_filename


Set objexcel = CreateObject("excel.application")
Set objWB = objexcel.Workbooks.Open(excel_path & excel_filename, ReadOnly:=False)

objexcel.Visible = True
objWB.Activate


End Sub

Open in new window

0
Comment
Question by:Kaps_68
  • 3
  • 2
5 Comments
 
LVL 13

Expert Comment

by:gbanik
ID: 34157551
None of your code can do that (force an excel file to open read-only). Are u sure the file isnt read-only before u tried to open it thru the above code? Thats the only way it could have.
0
 
LVL 13

Expert Comment

by:gbanik
ID: 34157589
Try this code... this would change the file attributes to normal before opening it.

.....
excel_path = "C:\01 simplyspreadsheets\63 home expert\"
excel_filename = "master file.xlsx"

SetAttr excel_path & " " & excel_filename, vbNormal
MsgBox excel_path & " " & excel_filename

Set objexcel = CreateObject("excel.application")
Set objWB = objexcel.Workbooks.Open(excel_path & excel_filename, ReadOnly:=False)
.....
0
 

Author Comment

by:Kaps_68
ID: 34158101
thanks - that gives a file not found error. However the file is there. I have checked the properties of the file and  it is not read only.
0
 
LVL 13

Accepted Solution

by:
gbanik earned 250 total points
ID: 34158246
Sorry how could I miss it? There is a space in code...
use the following
SetAttr excel_path & excel_filename, vbNormal
0
 

Author Closing Comment

by:Kaps_68
ID: 34158320
thanks !!
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Find out what you should include to make the best professional email signature for your organization.
How to resolve IMCEAEX NDRs in Exchange or Exchange Online related to invalid X500 addresses.
The viewer will learn how to create two correlated normally distributed random variables in Excel, use a normal distribution to simulate the return on different levels of investment in each of the two funds over a period of ten years, and, create a …
To add imagery to an HTML email signature, you have two options available to you. You can either add a logo/image by embedding it directly into the signature or hosting it externally and linking to it. The vast majority of email clients display l…

861 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question