我要做的是将活动表格保存为PDF文件,保存在dropbox(也是文件夹)中的文件夹中。我们的想法是将名称合并到日期(包含在变量中)。我收到1004错误,它表示文件可能已经打开或保存时发生错误。如果我不尝试连接,那么它可以工作,但这对我不起作用,因为我需要每天更改日期。我尝试了很多方法,但没有一种方法可行。请帮助=(
Dim dato_fechador As Variant
Dim file_name As Variant
dato_fechador = Format(Date, "dd-mm-yyyy")
file_name = "C:\Users\Juan Pablo Zegers\Dropbox\Japanese\Práctica\" & dato_fechador & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=file_name, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
答案 0 :(得分:0)
从文件名末尾删除反斜杠,“C:\ Users \ Juan Pablo Zegers \ Dropbox \ Japanese \Práctica”