mac excel vba loop：从列表中然后导出为pdf

所以我迷失了自我：我在一张表（学生名单）上有一个有160个学生号码的清单。 想要将每个学生号码粘贴到单元格A1的反馈表中，然后将其导出为PDF文件，并将学号作为文件名。 有这么远…干杯迈克

Sub Pdfexportmacro() Dim rCell As Range Dim rRng As Range Dim SNum As Integer 'Student numbers in cells A7:A160, set to A7:A9 for testing Sheets("studentlist").Activate Set rRng = Range("A7:A9") For Each rCell In rRng.Cells SNum = rCell.Value ' Write student number to cell A1 on Feedback sheet: Sheets("Feedback").Activate Range(“A1”).Activate ActiveCell.Value = SNum ' Export & save file as pdf using SNum as filename: ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "Macintosh HD:Users:Michael:Desktop:" & rCell.Value, Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False Next rCell End Sub 

Answer 1

我不是一个MAC用户，所以我可能会缺less一些我在Windows操作系统中没有的限制，但是你可能会像下面这样：

 Option Explicit Sub Pdfexportmacro() Dim rCell As Range, rRng As Range 'Student numbers in cells A7:A160 Set rRng = Worksheets("studentlist").Range("A7:A160") '<--| set your "students" range With Worksheets("Feedback") '<--| reference "Feedback" worksheet For Each rCell In rRng '<--| loop through "students" range .Range("A1").Value = rCell.Value '<--| write current student number to cell A1 on Feedback sheet ' Export & save file as pdf using SNum as filename: .ExportAsFixedFormat Type:=xlTypePDF, fileName:= _ "Macintosh HD:Users:Michael:Desktop:" & rCell.Value, Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False Next rCell End With End Sub