VBA Excel到PDF不工作在循环

我试图创建一个宏，它将识别和PDF个人银行家的投资组合。宏将过滤银行家的姓名（只显示他们的投资组合），并将PDF和银行家的姓名放在PDF文件中。宏运行没有任何错误。它能够识别银行家，增加收藏，并通过所有银行家进行筛选。但是，它不包含任何东西。我一直无法确定问题。请帮忙！VBA Excel到PDF不工作在循环

我的代码：

Sub CreatePDFs() 
' 
' CreatePDFs Macro 
' 

' Identify distinct banker names in Column E and store in a collection 
Dim BankerCollection As Collection 

Dim Banker As Variant 
Dim Rng As Range 
Dim Cell As Range 

Set Rng = Range("E5", Range("E5").End(xlDown)) 
Set BankerCollection = New Collection 

On Error Resume Next 
For Each Cell In Rng.Cells 
BankerCollection.Add Cell.Value, CStr(Cell.Value) 
Next Cell 

' Loop through each banker name in the collection 

For Each Banker In BankerCollection 

' Copy each banker name to cell B1 
Range("B1").Value = Banker 
Range("B1").Font.Bold = True 

' filter on the banker name, and PDF with banker name in document title 
Range("E4", Range("E4").End(xlDown)).AutoFilter Field:=1, Criteria1:=Banker, VisibleDropDown:=False 

ThisFile = Banker + " Portfolio" 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisFile, OpenAfterPublish:=True 

Next Banker 

End Sub

来源

2017-10-12 LearningVBA

“宏运行时没有任何错误。”当你用'On Error Resume Next'语句屏蔽错误时，你怎么知道它没有错误？注释掉线并查看是否发生错误。 – YowE3K

您可以评论除Activesheet.ExportAs以外的所有其他行，并尝试在错误中归零。 –

您是否在创建PDF时打开PDF？也许您在创建PDF文件后没有找到正确的文件夹。 – Jeeped

-1

更改这行代码的

ThisFile = Banker + " Portfolio"

与此

ThisFile = Banker & " Portfolio"

PS事实证明，你没有让这个改变你的代码运行良好，没有改变。

来源

2017-10-12 18:43:04

DV有两个原因。 1）用户在问题中没有这样的代码行。 2）'ThisFile = Banker +'Portfolio''这一行是完全有效的。 –

@ScottHoltzman感谢您的纠正。我弄错了，当我第一次运行它时，它给了我错误的线路。 –

Dim ThisFile as String at top？运行，如果我在 – QHarr

VBA Excel到PDF不工作在循环

回答

相关问题