Hi Experts,
I have a problem so far, I tried to export my code to PDF format,
the situation is runtime error 1004
what i did so far is that .
with this path work just fine
Filename:="https://d.docs.live.net/FBC3F27912XYZ123/Homeandcare work/Invoice Record History/" & "61_" & bil_id & "_" & bildate & "_" & comname & ".pdf", _
the code exported to pdf to "Invoice Record History" folder properly
however, after i add another subfolder
Filename:="https://d.docs.live.net/FBC3F27912XYZ123/Homeandcare work/Invoice Record History/BillingReport/" & "61_" & bil_id & "_" & bildate & "_" & comname & ".pdf", _
turn out this comes with runtime error and export is unsuccessful
if any of you guys have familiar with this problem before please help
--------------------------------------------------------------------------------------------------------------
Sub Billing_saveas()
Dim bil_id As String
bil_id = Format(Range("L6"), "00000")
'Range("T2").Value = bil_id
Dim bildate As String
bildate = Format(Range("L7"), "yyyy_mm_dd")
Dim comname As String
comname = Range("L5")
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="https://d.docs.live.net/FBC3F27912XYZ123/Homeandcare work/Invoice Record History/BillingReport/" & "61_" & bil_id & "_" & bildate & "_" & comname & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
----------------------------------------------------------------------------------------------------------------------------------
I have a problem so far, I tried to export my code to PDF format,
the situation is runtime error 1004
what i did so far is that .
with this path work just fine
Filename:="https://d.docs.live.net/FBC3F27912XYZ123/Homeandcare work/Invoice Record History/" & "61_" & bil_id & "_" & bildate & "_" & comname & ".pdf", _
the code exported to pdf to "Invoice Record History" folder properly
however, after i add another subfolder
Filename:="https://d.docs.live.net/FBC3F27912XYZ123/Homeandcare work/Invoice Record History/BillingReport/" & "61_" & bil_id & "_" & bildate & "_" & comname & ".pdf", _
turn out this comes with runtime error and export is unsuccessful
if any of you guys have familiar with this problem before please help
--------------------------------------------------------------------------------------------------------------
Sub Billing_saveas()
Dim bil_id As String
bil_id = Format(Range("L6"), "00000")
'Range("T2").Value = bil_id
Dim bildate As String
bildate = Format(Range("L7"), "yyyy_mm_dd")
Dim comname As String
comname = Range("L5")
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="https://d.docs.live.net/FBC3F27912XYZ123/Homeandcare work/Invoice Record History/BillingReport/" & "61_" & bil_id & "_" & bildate & "_" & comname & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
----------------------------------------------------------------------------------------------------------------------------------