Question

我尝试设置一个代码，将Excel工作簿中的Excel工作表保存为PDF，并将提取另一个工作表，并在同一位置以不同的名称保存该工作表。 atm我的代码工作，除了它保存文件的部分并不总是在正确的位置。

我使用excel公式在单元格“Dimensionering！I8”中获取正确的文件路径。我将工作表保存在工作簿已全部保存的相同位置。

在代码的第二部分中，我将工作表复制到新工作簿，因此我将工作表'dimensionering'中的文件路径链接到工作表'offertetekst'。

Sub SAVE()


    Dim filename As String
    Dim filename1 As String

    filename = Range("Dimensionering!C8")

    Sheets("offerte stuklijst").Select
    ActiveSheet.Range("$A$18:$A$1731").AutoFilter Field:=1, Criteria1:="1"
    ActiveWindow.SmallScroll Down:=6
    Chdir Range("Dimensionering!I8")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=filename & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

    filename1 = Range("Offerte_tekst!E1491")

    Sheets("Offerte_tekst").Select
    Sheets("Offerte_tekst").Copy
    Chdir Range("Offerte_tekst!E1492")
    ActiveWorkbook.SaveAs filename:=filename1 & ".xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

End Sub

Answer 1

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    filename:=Sheets("Dimensionering").Range("I8").Value & "\" & filename & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True


ActiveWorkbook.SaveAs filename:=Sheets("Offerte_tekst").Range("E1492").Value & "\" & filename1 & ".xlsx" _
    , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

这假设您在路径单元Dimensionering!I8

中没有反斜杠

如何根据单元格值将新的Excel工作表保存到变量位置

1 个答案: