Excel宏读取单元格值

Question

我希望简单地整理一个程序

它读取excel A1中的一行：E1

如果A1有一个值，如果B1有一个值则移动到B1等

然后它在具有值的最后一个单元格上停止。

然后它根据单元格值保存文件。

我最终得到了这段代码。

Sub NamePDF()
    Dim fp As String
    Dim wb As Workbook

    fp = "C:\Users\mdowney\Desktop\TestFolder\" & Cells(1, Columns.Count).End(xlToLeft)
    Set wb = ActiveWorkbook

    wb.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fp, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Answer 1

尝试类似

的内容

activeworkbook.saveas "C:\temp\" & cells(1,columns.count).end(xltoleft) & ".xlsx"

这不会保存带有工作簿的宏。