繁体   English   中英

在 pdf 工作表中导出

Export in pdf worksheet

提示:本站收集StackOverFlow近2千万问答,支持中英文搜索,鼠标放在语句上弹窗显示对应的参考中文或英文, 本站还提供   中文繁体   英文版本   中英对照 版本,有任何建议请联系yoyou2525@163.com。

我想以 PDF 格式导出除少数之外的所有工作表,但我的代码不起作用,它只导出 PDF 中的一个工作表(有 20 个要导出)。

我也只选择了我的文档的一部分。

你能帮我解决这个问题吗?


Dim nomfeuille As String
Dim strPath As String
Dim Selection As Range
Dim ws As Worksheet, FeuilleRef As Worksheet
strPath = "Documents" 

Sheets("Synthèse").Activate
LaDate = Range("B3").Value
NumDate = Range("D3").Value
Set FeuilleRef = ActiveSheet

' Création fichier PDF
For Each ws In ActiveWorkbook.Worksheets
    nomfeuille = ActiveSheet.Name
    If nomfeuille <> "Cond.Editeurs AVOD" Or nomfeuille <> "Données - Recettes Pub. nettes" Or nomfeuille <> "Données - Recettes par titre" Or nomfeuille <> "Synthèse" Then
        Range("A3").Select
        y = 1
        k = 1
        Do While ActiveCell.Value = ""
          ActiveCell.Offset(0, 1).Select
          y = y + 1
        Loop
        
        Do While ActiveCell.Value = ""
          ActiveCell.Offset(1, 0).Select
          k = k + 1
        Loop
        
        Set Selection = ActiveSheet.Range("B3:N" & y)
        
        Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath & LaDate & "\" & NumDate & "_" & nomfeuille & " ROYALTIES REPORT.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
        From:=1, To:=1, OpenAfterPublish:=False
    End If
Next ws


MsgBox ("Création des fichiers PDF effectués" & vbCrLf & vbCrLf & "Merci.  ")```
问题暂未有回复.您可以查看右边的相关问题.
1 在一个PDF中导出多个工作表

只是想知道我如何能够导出PDF文件以包含多个工作表,但不能包含工作簿中的全部工作表。 我只能将单页纸作为单独的PDF附件发送。 任何对此的见识都将是巨大的。 ...

2 将Excel工作表导出为pdf

我目前正在使用Excel Makro进行工作,并且其中一个命令Buttons应该将输入从UserForm复制到我的工作簿的工作表中,并将该工作表导出为pdf。 宏可以正常工作(因为我在Internet上找到了大部分),但是一旦用户在“文件另存为”窗口中单击“取消”按钮,它就应该停止。 我 ...

3 检查要导出为 pdf 的工作表

我是 Excel VBA 的初学者,但我想创建一个文件,我可以在其中通过带有复选框的用户表单选择某些工作表。 原则上,只应导出值为 true 的复选框。 下面我有 2 个代码,它们彼此独立运行良好,但我还没有让它们一起工作。 注意:两个代码都来自互联网。 如果可能的话,我想写一个循环来保持概述 ...

4 从活动工作表中导出数据

我制作了一个Excel工作簿,其中有单个工作表作为最终用户的模板。 该工作簿将保存并使用基于3个单元格值创建的文件名退出。 我可以使该工作簿模板自动将某些数据导出到另一个工作簿吗? 另一件事是,新导出的数据是否可以自动具有新行以将数据插入工作簿/工作表目的地? 我检查了相关的excel论 ...

5 导出到 oracle 顶点中的 PDF

我想将 web 页面中的所有组件导出到 PDF 文件中。 web 页面上的每个组件(包括图表、报告、网格)应出现在 PDF 文件的单独页面上。 有没有可用的插件来做到这一点? ...

6 在反应中导出 PDF?

我的页面上有一些表格,除此之外,我必须提供一个下拉列表,用户可以在其中选择以 PDF 或 Excel 格式保存表格。 该表是动态创建的,其中Header 是数组形式,而data 是一个嵌套的 object 数组。 有没有最好的库可以用来导出到 pdf 和导出到 excel,我的嵌套动态表? ...

7 在Reporting Services中导出PDF

有人知道在导出后以PDF格式显示报表时是否可以更改报表的页面大小/比例? 我们遇到的问题是我们的一个用户在表中创建了一个包含大量coloumns的报表,然后该表运行到报表的下一页。 我们已在Business Intelligence Studio中将页面设置更改为横向,然后以PDF格式呈 ...

8 VBA Excel 导出指定范围的图纸到 PDF

我在最后有几张纸,我不想将它们包含在我的 PDF 打印中。 我的代码有效,但看起来很困难...... 基本上我想定义一些工作表范围,我想将其包含在我的 PDF 打印中。 不幸的是,根据以下线程: 在 VBA 中跨工作表指定 Excel 范围看起来我只能在一张纸内设置范围。 其他方法: vba ...

2021-03-24 10:48:23 1 36   excel/ vba
暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2022 STACKOOM.COM