mac excel vba循环:来自列表&然后导出为pdf [英] mac excel vba loop : from list & then export as pdf
本文介绍了mac excel vba循环:来自列表&然后导出为pdf的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
因此,我迷失了自己:我在一张纸上列出了一个列表(学生列表),其中包含160个学生编号.希望将每个学生编号粘贴到反馈"表的单元格A1中,然后以pdf格式导出到以学生编号作为文件名的文件. 走了这么远... 干杯 迈克
So lost myself in this: I have a list on one sheet (studentlist) that has 160 student numbers. Would like to paste each student number in cell A1 ion the Feedback sheet and then export as pdf to a file with the student number as the filename. Got this far... Cheers Mike
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
推荐答案
我不是MAC用户,因此我可能缺少Windows OS中没有的一些限制,但是您可能会遵循以下条件: /p>
I'm not a MAC user so I may be missing some restrictions I don't have in Windows OS, but you may be after something like follows:
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
这篇关于mac excel vba循环:来自列表&然后导出为pdf的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文