Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA Excel Help - Filename
I am trying to do the following: I am using excel and I have a
checkbox and once that box is checked I want it to see if it has been saved if not then i want the "Save as" method to show but if the file has already been saved then I want it to just the save the changes and not show the "Save As" dialog every time the check box is checked The following is the code i am working: any ideas on what i may be doing worng??? Sub CheckBox1_Click() Dim amessage As Outlook.MailItem Dim test As String Dim filename As String If Not ActiveWorkbook.Saved Then filesavename = Excel.Application.GetSaveAsFil*ename( _ filefilter:="Excel Files (*.xls), *.xls") ThisWorkbook.SaveAs filename:=filesavename End If If ThisWorkbook.Saved = True Then test = inputbox("Please enter an email address:") Set outsess = CreateObject("outlook.Applicat*ion") Set amessage = outsess.CreateItem(olMailItem) amessage.BodyFormat = olFormatHTML amessage.To = test 'more code but didnt display it all End if |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA Excel Help - Filename
If Not ActiveWorkbook.Saved Then
If ActiveWorkbook.Path = "" Then filesavename = Excel.Application.GetSaveAsFil*ename( _ filefilter:="Excel Files (*.xls), *.xls") ThisWorkbook.SaveAs filename:=filesavename Else ActiveWorkbook.Save End If End If -- Vasant |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Cell("filename") doesn't update to new filename when do save as. | Excel Worksheet Functions | |||
set filename to <filename-date on open | Excel Worksheet Functions | |||
returning filename in excel | Excel Programming | |||
Excel Filename prgramatically | Excel Programming | |||
Saving filename same as import filename | Excel Programming |