+ Reply to Thread
Results 1 to 5 of 5

SaveAs 1004 Error

Hybrid View

Stevo56 SaveAs 1004 Error 05-01-2014, 05:59 AM
HaHoBe Re: SaveAs 1004 Error 05-01-2014, 06:33 AM
Stevo56 Re: SaveAs 1004 Error 05-01-2014, 06:38 AM
HaHoBe Re: SaveAs 1004 Error 05-01-2014, 06:51 AM
Stevo56 Re: SaveAs 1004 Error 05-01-2014, 11:14 AM
  1. 05-01-2014, 05:59 AM #1
    Stevo56 is offline
    Registered User
    Join Date
    03-20-2014
    Location
    United Kingdom
    MS-Off Ver
    Excel 2007
    Posts
    62

    SaveAs 1004 Error

    Hi

    I'm trying to save a workbook with a name related to a cell using the following code: -

    Sub Savepath()

    Dim FPATH As String
    FPATH = "T:\PERSONAL FOLDERS\STEVO56\ILS Test Rig Phase 1\Test Spreadsheet Dump\"
    ActiveWorkbook.SaveAs FPATH & Range("R5").value & ".XLSM", FileFormat:=52

    End Sub

    When the macro runs, it saves perfectly as required, however if a file already exists with that name the excel prompt asking to overwrite Yes/No/Cancel, yes works fine but no and cancel display a Run-time error'1004': Method 'SaveAs' of object'_Workbook' failed.

    If you select No or Cancel I would just like it to exit the sub.

    Any help would be appreciated, Thanks in advance.

    Steve
    Reply With QuoteRegister To Reply
  2. 05-01-2014, 06:33 AM #2
    HaHoBe is offline
    Forum Guru HaHoBe's Avatar
    Join Date
    02-19-2005
    Location
    Hamburg, Germany
    MS-Off Ver
    work: 2016 on Win10 (notebook), private: 365 on Win11 (desktop), 2019 on Win11 (notebook)
    Posts
    8,198

    Re: SaveAs 1004 Error

    Hi, Steve,

    please wrap your procedure with code-tags as requested in Forum Rule #3.

    Ciao,
    Holger
    Use Code-Tags for showing your code: [code] Your Code here [/code]
    Please mark your question Solved if there has been offered a solution that works fine for you
    Reply With QuoteRegister To Reply
  3. 05-01-2014, 06:38 AM #3
    Stevo56 is offline
    Registered User
    Join Date
    03-20-2014
    Location
    United Kingdom
    MS-Off Ver
    Excel 2007
    Posts
    62

    Re: SaveAs 1004 Error

    Hi

    I'm trying to save a workbook with a name related to a cell using the following code: -

    Sub Savepath()

Dim FPATH As String
FPATH = "T:\PERSONAL FOLDERS\STEVO56\ILS Test Rig Phase 1\Test Spreadsheet Dump\"
ActiveWorkbook.SaveAs FPATH & Range("R5").value & ".XLSM", FileFormat:=52

End Sub
    When the macro runs, it saves perfectly as required, however if a file already exists with that name the excel prompt asking to overwrite Yes/No/Cancel, yes works fine but no and cancel display a Run-time error'1004': Method 'SaveAs' of object'_Workbook' failed.

    If you select No or Cancel I would just like it to exit the sub.

    Any help would be appreciated, Thanks in advance.

    Steve
    Reply With QuoteRegister To Reply
  4. 05-01-2014, 06:51 AM #4
    HaHoBe is offline
    Forum Guru HaHoBe's Avatar
    Join Date
    02-19-2005
    Location
    Hamburg, Germany
    MS-Off Ver
    work: 2016 on Win10 (notebook), private: 365 on Win11 (desktop), 2019 on Win11 (notebook)
    Posts
    8,198

    Re: SaveAs 1004 Error

    Hi, Steve,

    you could have edited the opening post instead of repeating the post.

    I´d go a different way:
    Sub Savepath_1()

Dim FPATH As String
FPATH = "T:\PERSONAL FOLDERS\STEVO56\ILS Test Rig Phase 1\Test Spreadsheet Dump\" & Range("R5").Value & ".XLSM"
If Len(Dir(FPATH)) > 0 Then
  If MsgBox("File already exists. Do you want to save with same name?", vbYesNo, "File exists?") = vbYes Then
    Kill FPATH
    ActiveWorkbook.SaveAs FPATH, FileFormat:=52
  End If
Else
  ActiveWorkbook.SaveAs FPATH, FileFormat:=52
End If

End Sub
Sub Savepath_2()

Dim FPATH As String
FPATH = "T:\PERSONAL FOLDERS\STEVO56\ILS Test Rig Phase 1\Test Spreadsheet Dump\" & Range("R5").Value & ".XLSM"
If Len(Dir(FPATH)) > 0 Then
  If MsgBox("File already exists. Do you want to save with same name?", vbYesNo, "File exists?") = vbYes Then
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs FPATH, FileFormat:=52
    Application.DisplayAlerts = True
  End If
Else
  ActiveWorkbook.SaveAs FPATH, FileFormat:=52
End If

End Sub
    Ciao,
    Holger
    Reply With QuoteRegister To Reply
  5. 05-01-2014, 11:14 AM #5
    Stevo56 is offline
    Registered User
    Join Date
    03-20-2014
    Location
    United Kingdom
    MS-Off Ver
    Excel 2007
    Posts
    62

    Re: SaveAs 1004 Error

    Thanks Holger, that worked brilliantly, I really appreciate your help
    Reply With QuoteRegister To Reply
+ Reply to Thread
« Previous Thread | Next Thread »

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Works in XP but not Win 7: Run-time error 1004: Method 'SaveAs' of object_Workbook failed
    By largeman8 in forum Excel Programming / VBA / Macros
    Replies: 8
    Last Post: 02-19-2014, 09:55 AM
  2. SaveAs Error 1004 when replacing
    By yawnzzzz in forum Excel Programming / VBA / Macros
    Replies: 3
    Last Post: 04-30-2013, 10:39 AM
  3. getting run time error 424 or 1004 when using Saveas method
    By Anchal in forum Excel Programming / VBA / Macros
    Replies: 2
    Last Post: 04-12-2013, 03:37 AM
  4. Run Time Error '1004': Method 'saveas' of object '_workbook' failed
    By vcuphysics in forum Excel Programming / VBA / Macros
    Replies: 0
    Last Post: 05-21-2012, 04:50 PM
  5. error 1004 Method SaveAs of Workbook failed
    By Maury Markowitz in forum Excel Programming / VBA / Macros
    Replies: 2
    Last Post: 10-25-2005, 04:05 PM

Tags for this Thread

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Forum Rules


Search Engine Friendly URLs by vBSEO 3.6.0 RC 1