Marst·Writer: 我自己也是普通场景下使用

2401_86269472: 大神，后面的代码怎么写？我是第一次写这个。

2401_86269472: Private Sub CommandButton1_Click() Windows("支付审批单清单.xls").Activate fnames = ActiveSheet.Name hh = InputBox("请输入序号：", "生成审批单") + 2 b = Worksheets(fnames).Range("b" & hh) c = Worksheets(fnames).Range("c" & hh) d = Worksheets(fnames).Range("d" & hh) For ii = 3 To 100 Step 1 Next Workbooks.Open FileName:="F:\矢量馆支付审批单程序\模板.et", AddToMru:=True Worksheets("sheet1").Range("b3") = b Worksheets("sheet1").Range("h4") = c Worksheets("sheet1").Range("b6") = d End Sub 下一步我要把打开的这个“模板.et”另存到“f:\矢量馆支付审批单程序\支付审批单”，要求一是转变成PDF，二是保存从命名为模板里面b列的数据+支付审批单

2401_86269472: Private Sub CommandButton1_Click() Windows("支付审批单清单.xls").Activate fnames = ActiveSheet.Name hh = InputBox("请输入序号：", "生成审批单") + 2 b = Worksheets(fnames).Range("b" & hh) c = Worksheets(fnames).Range("c" & hh) d = Worksheets(fnames).Range("d" & hh) For ii = 3 To 100 Step 1 Next Workbooks.Open FileName:="F:\矢量馆支付审批单程序\模板.et", AddToMru:=True Worksheets("sheet1").Range("b3") = b Worksheets("sheet1").Range("h4") = c Worksheets("sheet1").Range("b6") = d End Sub Sub ExportToPDF() Dim FilePath As String Dim FileName As String Dim ExportRange As Range FilePath = "f:\支付审批单程序\支付审批单" FileName = "ExportedPDF" Set ExportRange = Range("B1:BE38") ExportRange.ExportAsFixedFormat Type:=xlTypePDF, _ FileName:=FilePath & FileName & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub 大神，用了你的代码，转PDF，什么地方出错了？望指导。

勇敢滴勇: 写的很深入，仔细。博主的文章让我对这个主题有了全新的认识，细节描写非常到位，期待博主未来能够持续分享更多好文，同时也希望能够得到博主的指导，共同进步！同时也希望可以来我博客指导我一番