将工作簿中的每个工作表保存为单独的pdf(Save each worksheet from workbook as individual pdfs)
我所拥有的是一张工作簿,其中包含所有销售人员在“工作表”中的所有销售,而在其他工作表中,工作表由销售人员编号(“41”,“51”,“88”等)命名。与他们的销售。 我希望宏做的是将每个工作表保存为带有“工作表名称”和“文件名”的pdf
我的问题与这篇文章有关,但由于某种原因我的版本没有正确保存pdf。
excel vba - 将工作簿中的每个工作表保存为单独的pdf
所以我想要的很简单:拿走每个工作表并保存到它自己独特的pdf中。 我遇到的问题是宏正在使用正确的文件名保存每个单独的工作表,但是当我打开pdf时,它是每个pdf的相同销售伙伴。
这是代码:
Option Explicit Sub WorksheetLoop() Dim wsA As Worksheet Dim wbA As Workbook Dim strTime As String Dim strName As String Dim strPath As String Dim strFile As String Dim strPathFile As String Dim myFile As Variant Dim WS_Count As Integer Dim I As Integer ' Set WS_Count equal to the number of worksheets in the active workbook. Set wbA = ActiveWorkbook WS_Count = wbA.Worksheets.Count strPath = wbA.Path strTime = Format(Now(), "yyyymmdd\_hhmm") 'get active workbook folder, if saved strPath = wbA.Path If strPath = "" Then strPath = Application.DefaultFilePath End If strPath = strPath & "\" ' Begin the loop. For I = 1 To WS_Count 'replace spaces and periods in sheet name strName = Replace(wbA.Worksheets(I).Name, " ", "") strName = Replace(strName, ".", "_") 'create default name for savng file strFile = strName & "_" & strTime & ".pdf" myFile = strPath & strFile Debug.Print myFile 'export to PDF if a folder was selected If myFile <> "False" Then ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=myFile, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False 'confirmation message with file info MsgBox "PDF file has been created: " _ & vbCrLf _ & myFile End If Next I End Sub
如果您需要任何其他细节,请与我们联系
What I have is a workbook with all the sales from all the sales associates in "Sheet", and in the other sheets the sheets are named by the sales person number ("41", "51", "88", etc.) with their sales. What I want the macro to do is take each worksheet and save as a pdf with "worksheet name" & "Filename"
My question is related to this post, but for some reason my version is not saving the pdf's properly.
excel vba - save each worksheet in workbook as an individual pdf
So what I want is simple: take each worksheet and save into it's own unique pdf. The problem I'm having is that the macro is saving each individual sheet with the right filename, but when I open the pdf, its the same sales associate for each pdf.
here is the code:
Option Explicit Sub WorksheetLoop() Dim wsA As Worksheet Dim wbA As Workbook Dim strTime As String Dim strName As String Dim strPath As String Dim strFile As String Dim strPathFile As String Dim myFile As Variant Dim WS_Count As Integer Dim I As Integer ' Set WS_Count equal to the number of worksheets in the active workbook. Set wbA = ActiveWorkbook WS_Count = wbA.Worksheets.Count strPath = wbA.Path strTime = Format(Now(), "yyyymmdd\_hhmm") 'get active workbook folder, if saved strPath = wbA.Path If strPath = "" Then strPath = Application.DefaultFilePath End If strPath = strPath & "\" ' Begin the loop. For I = 1 To WS_Count 'replace spaces and periods in sheet name strName = Replace(wbA.Worksheets(I).Name, " ", "") strName = Replace(strName, ".", "_") 'create default name for savng file strFile = strName & "_" & strTime & ".pdf" myFile = strPath & strFile Debug.Print myFile 'export to PDF if a folder was selected If myFile <> "False" Then ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=myFile, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False 'confirmation message with file info MsgBox "PDF file has been created: " _ & vbCrLf _ & myFile End If Next I End Sub
let me know if you need any additional details
原文:https://stackoverflow.com/questions/46227726
最满意答案
你的行为可以通过
flatMap
override fun signIn(userName: String, password: String): Single<User> { return userRemoteDataStore.signIn(userName, password) .map { mapper.mapFromEntity(it) } .flatMap { user -> user.error ?.let { error -> Single.error(MyException(error)) } ?: Single.just(user) } }
Your behavior can be achived via
flatMap
override fun signIn(userName: String, password: String): Single<User> { return userRemoteDataStore.signIn(userName, password) .map { mapper.mapFromEntity(it) } .flatMap { user -> user.error ?.let { error -> Single.error(MyException(error)) } ?: Single.just(user) } }
相关问答
更多-
只需将警报移出循环即可 if(isset($error)){ echo '
- ';
foreach ($error as $error)
{
echo '
- '.$error.' '; } echo '
在Single中返回错误(Return error in Single)[2023-08-27]
你的行为可以通过flatMap override fun signIn(userName: String, password: String): Single{ return userRemoteDataStore.signIn(userName, password) .map { mapper.mapFromEntity(it) } .flatMap { user -> user.error ... 我认为你应该能够做得更简单一些: public staticObservable skipErrors(final Observable > singles) { Preconditions.checkNotNull(xs); return singles .flatMap(single -> single .toObservable() .onErrorResumeNext(Observable.empty()) ) ... 您仍然可以使用RAIDERROR内部尝试块 Ivan对ERROR_MESSAGE以及TRY-CATCH如何删除查询的强健性质是正确的,但是,这仅在TRY块中消息的SEVERITY高于10时才会发生。 所以诀窍是将严重性设置为11。 如果运行RAISERROR,则会将错误返回给调用者: 超出任何TRY块的范围。 在TRY块中严重性为10或更低。 严重性为20或更高,终止数据库连接。 MSDN - RAISERROR RAISERROR可以用作PRINT的替代品并允许自定义消息。 此外,您可以将STATE设置为 ...显式强制转换为int? 喜欢: n = (reader[0] == null)? null :(int?) Convert.ToInt32(reader[0]); 要么: n = (reader[0] == null) ? (int?) null : Convert.ToInt32(reader[0]); Explicitly cast to int? like: n = (reader[0] == null)? null :(int?) Convert.ToInt32(reader[0]); Or: ...在相同的条件下,您可以有其他逻辑(&&或||)。 我会为你的单个陈述中的一个变量,并说出一些效果: 如果@User :: rowcount> 0 || @user:single_record_var =默认 这应该有所帮助。 In that same condition you can have additional logic (&& or ||). I would take one of the variables for your single statement and say something ...postHTTP函数中的问题。 当与多承诺的工作,你必须将Promise.all数组传递给Promise.all ,因此,你的功能必须如下所示: function postHTTP() { return new Promise(function (resolve, reject) { request.post({ headers: { 'content-type': 'application/json' }, url: 'http://localhost:5593 ...新单后错误(New single after error)[2024-02-27]
我终于成功了,怎么做。 正如@Cochi建议我使用了retryWhen()函数。 对于其他任何人来说,这是基于String非常简单的示例: String body = null; @Override protected void onStart() { super.onStart(); SinglestringSingle = Single.create(source -> { if(body != null) { ... BreezeJS中包含单引号或双引号的字符串查询返回错误(String queries in BreezeJS that contain single or double quotes return error)[2022-04-06]
我无法重复这一点。 你应该能够通过简单地加倍来逃避一个人。 例如,以下查询在v 1.2.8上没有问题。 var q = EntityQuery.from("Employees") .where("lastName", "contains", "O''Malley"); 如果您将查询简化为where where子句,问题是否仍会出现? I can't repro this. You should be able to escape a single ' by simply doubling ...我会认为双错误消息是一个错误,但非常小。 但是,原因是coalesce() (以及choose() )实际上是简写。 所以: coalesce(a, b, c) 是真的: (case when a is not null then a when b is not null then b else c end) 请注意,最后一个元素只出现一次 - 因此,当缺少的列结束时,您只会收到一个错误。 这似乎是一个神秘的细节,但它确实很重要。 例如,如果其中一个值是子查询 - 并且子查询的 ...相关文章
更多- Apache POI创建工作簿、打开现有工作簿
- 请教:用SWING做了个类似于画图的,现在我想把它保存为一张图片,不知如何实现~
- 中口翻译
- 最近工作回顾
- activiti工作流数据库表详细介绍(23张表)
- java jxl 操作excel 时老是这个错误
- rails save问题数据库表主键必须是id吗?
- 不知道如何找工作
- 工作流系统
- 每天工作心得
最新问答
更多- 您如何使用git diff文件,并将其应用于同一存储库的副本的本地分支?(How do you take a git diff file, and apply it to a local branch that is a copy of the same repository?)
- 将长浮点值剪切为2个小数点并复制到字符数组(Cut Long Float Value to 2 decimal points and copy to Character Array)
- OctoberCMS侧边栏不呈现(OctoberCMS Sidebar not rendering)
- 页面加载后对象是否有资格进行垃圾回收?(Are objects eligible for garbage collection after the page loads?)
- codeigniter中的语言不能按预期工作(language in codeigniter doesn' t work as expected)
- 在计算机拍照在哪里进入
- 使用cin.get()从c ++中的输入流中丢弃不需要的字符(Using cin.get() to discard unwanted characters from the input stream in c++)
- No for循环将在for循环中运行。(No for loop will run inside for loop. Testing for primes)
- 单页应用程序:页面重新加载(Single Page Application: page reload)
- 在循环中选择具有相似模式的列名称(Selecting Column Name With Similar Pattern in a Loop)
- System.StackOverflow错误(System.StackOverflow error)
- KnockoutJS未在嵌套模板上应用beforeRemove和afterAdd(KnockoutJS not applying beforeRemove and afterAdd on nested templates)
- 散列包括方法和/或嵌套属性(Hash include methods and/or nested attributes)
- android - 如何避免使用Samsung RFS文件系统延迟/冻结?(android - how to avoid lag/freezes with Samsung RFS filesystem?)
- TensorFlow:基于索引列表创建新张量(TensorFlow: Create a new tensor based on list of indices)
- 企业安全培训的各项内容
- 错误:RPC失败;(error: RPC failed; curl transfer closed with outstanding read data remaining)
- C#类名中允许哪些字符?(What characters are allowed in C# class name?)
- NumPy:将int64值存储在np.array中并使用dtype float64并将其转换回整数是否安全?(NumPy: Is it safe to store an int64 value in an np.array with dtype float64 and later convert it back to integer?)
- 注销后如何隐藏导航portlet?(How to hide navigation portlet after logout?)
- 将多个行和可变行移动到列(moving multiple and variable rows to columns)
- 提交表单时忽略基础href,而不使用Javascript(ignore base href when submitting form, without using Javascript)
- 对setOnInfoWindowClickListener的意图(Intent on setOnInfoWindowClickListener)
- Angular $资源不会改变方法(Angular $resource doesn't change method)
- 在Angular 5中不是一个函数(is not a function in Angular 5)
- 如何配置Composite C1以将.m和桌面作为同一站点提供服务(How to configure Composite C1 to serve .m and desktop as the same site)
- 不适用:悬停在悬停时:在元素之前[复制](Don't apply :hover when hovering on :before element [duplicate])
- 常见的python rpc和cli接口(Common python rpc and cli interface)
- Mysql DB单个字段匹配多个其他字段(Mysql DB single field matching to multiple other fields)
- 产品页面上的Magento Up出售对齐问题(Magento Up sell alignment issue on the products page)