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

【问题标题】：How to save a new excel worksheet to variable location based on a cell value如何根据单元格值将新的 Excel 工作表保存到可变位置
【发布时间】：2023-03-28 13:12:01
【问题描述】：

我尝试设置一个代码，将工作簿中的 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

【问题讨论】：

标签： vba excel

【解决方案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

【讨论】：