Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
"Document not saved" error after typing a line of code in Excel VB
I'm working with an Excel 2003 workbook that has lots of code in Visual
Basic. I am logged into a server domain at work, and the workbook is saved on a share drive that only I have access to. The workbook is not shared or password protected. After entering some code, I tried to save the workbook and Excel gave me the following 3 error prompts: 1st error message: "Your changes could not be saved to 'workbookname.xls' because of a sharing violation. Try saving to a different file." 2nd message: "[Drive]:\[Folder]\23d7200.xls count no be found. Check the spelling og the file name, and verify the file location is correct." 3rd message: Your changes could no be saved to 'workbook name.xls', but were saved to a temporary document named '23d7200'. Close the existing document, then open the temporary document and save it under a new name." After the messages, attempting to save the document again failed; I got the message "Document not saved." I re-opened and re-entered my code line-by-line, saving after each successfully until I entered the line: "Dim myAttachments As Outlook.Attachments" (See the full code below). The code is simple: loop through the elements of an array of file names, and add the path to an email as an attachment. I can't figure out why on this specific line Excel stops allowing me save. Can someone please help!!! Code: Sub DisplayEmail(attachmentlist As Variant) Dim myolApp As Outlook.Application Set myolApp = GetObject(, "Outlook.Application") Dim myMail As Outlook.MailItem Set myMail = myolApp.CreateItem(olMailItem) Dim myAttachments As Outlook.Attachments ' HERES THE CULPRIT Set myAttachments = myMail.Attachments For i = 0 To UBound(attachmentlist) myAttachments.Add attachmentlist(i) Next i With myMail .To = " .Body = "Attachment test" .Display End With set myAttachments = Nothing Set myMail = Nothing Set myolApp = Nothing End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
"Document Not Saved" Saving File Created from Template PLEASEHELP!!!! | Excel Discussion (Misc queries) | |||
"Document not saved" "error in loading DLL" | Excel Discussion (Misc queries) | |||
Excel "Document not saved" error | Excel Discussion (Misc queries) | |||
Typing "..." gives me a verticle line. how do i disable this? | Excel Discussion (Misc queries) | |||
Solution "Your changes could not be saved" "The document may be read-only or encrypted" | Excel Discussion (Misc queries) |