Runtime error 2147024773 8007007b

1. 11-01-2012, 09:32 AM

   
   

   #1

   

   
   Forum Contributor
   

   

   ---

   excel run-time error -2147024773 (8007007b)
   

   Hi Guys,

   I’ve got a vba code to save my current sheet as a pdf. All was working well untill i changed the formula in the cell from which the filename is pulled. Now whenever I run the code I get a «excel run-time error -2147024773 (8007007b). Document cannot be saved.». I’ve provided all the vba and formulas below. Any help would be greatly appreciated. Thanks very much

   VBA code:

   J9 formula previously (worked) =CONCATENATE(«P:Air Import Quotes»,P6,» «,P3,» «,TEXT(P7,»dd-mm-yy»))
   J9 formula now (doesn’t work) =CONCATENATE(«P:Air Import Quotes»,P6,» «,P3,» «,TEXT(P7,»dd-mm-yy»),» «,TEXT(P8,»h:mm»))

   ---

2. 11-01-2012, 09:35 AM

   
   

   #2

   Re: excel run-time error -2147024773 (8007007b)
   

   Hi,

   Filenames can’t have a : in them, so the h:mm time format is causing the error. You’ll need to change the : to something else or leave it out entirely.

   ---

3. 11-01-2012, 09:39 AM

   
   

   #3

   

   
   Forum Contributor
   

   

   ---

   Re: excel run-time error -2147024773 (8007007b)
   

   Thanks Colin,

   Knew it would be something simple/silly.

   Cheers.

   ---

4. 12-21-2017, 12:59 PM

   
   

   #4

   

   
   Registered User
   

   

   ---

   Re: excel run-time error -2147024773 (8007007b)
   

   Good day I’m having the same troubles, I understand that the format date can’t be used with range and VBA, but there is other way to use the content of the cell in that format?

   I’m using this code…

   Sub Boton1_Haga_click_en()

   nombreLibro = Range(«H4»)
   Ruta = «D:UsersMXQUEJENDesktop»

   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
   Ruta & nombreLibro & «.pdf», Quality:=xlQualityStandar, IncludeDocProperties:= _
   True, IgnorePrintAreas:=False, OpenAfterPublish:=True

   End Sub

   I want to save a PDF document with the name of the cell in this case H4 with a format in a custom format mdyyhmms… but H4 have a copy of H3 that have the formula =NOW(). And I want the name of the PDF file is the date in date format.

   ---

5. 12-21-2017, 01:00 PM

   
   

   #5

   Re: excel run-time error -2147024773 (8007007b)
   

   Unfortunately your post does not comply with Rule 2 of our Forum RULES. Do not post a question in the thread of another member — start your own thread.

   If you feel an existing thread is particularly relevant to your need, provide a

   link to the other thread in your new thread.

   Old threads are often only monitored by the original participants. New threads not only open you up to all possible participants again, they typically get faster response, too.

   Ali

   ---

   Enthusiastic self-taught user of MS Excel who’s always learning!
   Don’t forget to say «thank you» to anyone who has offered you help in your thread. You can reward them by clicking on * Add Reputation below theur user name on the left, if you wish.

   Forum Rules (updated September 2018): please read them here.
   How to use the Power Query code you’ve been given: help here. More about the Power suite here.

   ---

6. 12-21-2017, 01:03 PM

   
   

   #6

   

   
   Registered User
   

   

   ---

   Re: excel run-time error -2147024773 (8007007b)
   

   Sorry.. I’ll create a new one.

   Thanks

   ---

Zeca

As Don said, we can’t see coloured text in questions and you should put code within tags created by the CODE button (as I do below).

I can get your  error to occur by using the modified code below and putting any of the characters not allowed in path/ filenames (< > : » / | ? *) in A13 or G13 (or in I7, any except /) — this creates an illegal path and causes the error. (I used «<» in cell G13).

Please check if that is the problem in your file (and if not, read more in the Microsoft guidance here Naming Files, Paths, and Namespaces)

I got your code to work by making the changes below (in bold) so it saves the pdf to the same folder as the Excel file:

Private Sub cmdSavePDS_Click()

Dim ws1 As Worksheet

Dim docName As String

Dim Path As String

   ThisWorkbook.Save

   Set ws1 = Worksheets("Invoice")
    ' commented out (since repeated below and Path is not yet defined so "")
    'docName = Path & VBA.Format(ws1.Range("I7"), "YYYY-MM-DD") _
          & " " & ws1.Range("A13") & " " & ws1.Range("G13") & ".pdf"

   Application.DisplayAlerts = False
    'Picked local path, same as this file
    Path = ThisWorkbook.Path & ""
   'Path = "C:UserscarloOneDriveAnitaAnita Invoices"

   docName = Path & VBA.Format(ws1.Range("I7"), "YYYY-MM-DD") _
          & " " & ws1.Range("A13") & " " & ws1.Range("G13") & ".pdf"

      MsgBox "The invoice has been SAVED in .pdf"

   ws1.ExportAsFixedFormat _
         Type:=xlTypePDF, _
         Filename:=docName, _
         Quality:=xlQualityStandard, _
         IncludeDocProperties:=True, _
         IgnorePrintAreas:=False, _
         OpenAfterPublish:=True
    ' optional addition (for good practice)
    Application.DisplayAlerts = True

End Sub

Suggest you use SelectAll to copy that and paste it into your file and see if it works. If so, the problem may be with your path string (commented out above).

Hope this fixes your problem. If so, please remember to mark this Answer as Selected.