天道酬勤,学无止境

任务计划程序不运行 Excel VBA 代码以将 PDF 作为电子邮件附件发送(Task Scheduler does not run Excel VBA Code to send PDF as Email Attachment)

问题

这是我正在使用的软件/系统:
微软Office 2010;
任务调度器;
Windows Server 2008 R2 标准版

我在执行以下操作的 Excel 文件中运行一些 VBA 代码:


1. 通过 SQL/ODBC 连接从我们的数据库中检索数据
2. 将数据上传到工作簿中的原始数据表,并使用 now 功能在单元格中为工作簿打上时间戳
3. 刷新并格式化工作簿中的每个数据透视表
4. 将指定的工作表导出并保存为 PDF 文档,并保存带有第 2 步中的时间戳的文档名称
5. 保存工作簿
6. 将刚刚创建的特定 PDF 文档作为电子邮件附件在 Excel 中发送电子邮件。
7. 关闭 Excel 应用程序

我在一个名为 Workbook_Open 的私有子程序中运行整个系列,它检查当前时间是否与指定的运行时匹配。 如果是这样,它会运行步骤 1-7,如果是一小时后,它会关闭工作簿(这样我可以在两个小时的窗口之外处理它)。

这是正在使用的代码:*注意,下面的代码在“ThisWorkbook”Excel 对象中运行。

'This Macro will use check to see if you opened the workbook at a certain time, if you did, then it will run the Report Automation Macros below.

Private Sub Workbook_Open()

HourRightNow = Hour(Now())

If HourRightNow = 13 Then

Call RefreshDataTables
Call RefreshPivotTables
Call SaveWorkbook
Call ExportToPDFFile
Call EmailPDFAsAttachment
Call CloseWorkbook

ElseIf HourRightNow = 14 Then

Call CloseWorkbook

End If

End Sub


Sub RefreshDataTables()
'
' RefreshDataTables Macro
' This Macro is used to refresh the data from the Dentrix Tables.
'
'This selects the table and refreshes it.

Sheets("raw").Select
Range("D4").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
Worksheets("NomenclatureVBA").Range("A2").Formula = "=now()"

End Sub


Sub RefreshPivotTables()
'
' RefreshPivotTables Macro
' This Macro refreshes each Pivot Table in the document.
'

'This goes through each sheet and refreshes each pivot table.
    Sheets("D0150 VS D0330 BY BIZLINE").PivotTables("D0150 vs D0330 by BIZLINE").PivotCache.Refresh

   Columns("B:DD").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With


    Sheets("D0150 VS D0330").PivotTables("D0150 COMP EXAM vs D0330 PANO").PivotCache.Refresh

    Columns("B:DD").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
'Formnats to the specific date format below.






End Sub

'--------------------------------------------------------------------------------------------------------------

Sub SaveWorkbook()

' Saves Active (Open) Workbook

    ActiveWorkbook.Save

End Sub


'**********************READY************************
'More simplified and tested version of the Export To PDF format
'Make sure to update the filePaths, worksheets,

Sub ExportToPDFFile()
Dim strFilename As String


'Considering Sheet1 to be where you need to pick file name
strFilename = Worksheets("NomenclatureVBA").Range("C2")


Sheets(Array("D0150 VS D0330", "D0150 VS D0330 BY BIZLINE")).Select
Sheets("D0150 VS D0330").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "\\****(ServerNameGoesHere)****\UserFolders\_Common\DentrixEntrpriseCustomReports\Public\Owner Reports\DataAnalystAutomatedReports\Reports\D0150 COMP EXAM vs D0330 PANO\" & strFilename & ".pdf" _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False

Sheets("NomenclatureVBA").Select

'This is where the exporting ends, now we will proceed to email the file.
'-----------------------------------------------------------------------------

'The emailing begins here
'This says that if there is a file name stored in the strFileName variable, then....
End Sub



'This Macro Closes the workbook... Note that it closes the very specific workbook you choose.

Sub CloseWorkbook()

'Workbooks("Automated D0150 COMP EXAM vs D0330 PANO.xlsm").Close SaveChanges:=False
Application.DisplayAlerts = False
Application.Quit

End Sub

然后我还有一个宏,可以在 VBA 的模块部分通过电子邮件发送 PDF 文件。 它看起来像这样:

Sub EmailPDFAsAttachment()
' Works in Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, Outlook 2010.
' This example sends the last saved version of the Activeworkbook object .
    Dim OutApp As Object
    Dim OutMail As Object
    Dim FilePath As String

    'This part is setting the strings and objects to be things. (e.g. FilePath is setting itself equal to the text where we plan to set up each report)

    FilePath = "\\***(ServerGoesHere)***\UserFolders\_Common\DentrixEntrpriseCustomReports\Public\Owner Reports\DataAnalystAutomatedReports\Reports\D0150 COMP EXAM vs D0330 PANO\" _
    & Worksheets("NomenclatureVBA").Range("C2") & ".pdf"

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
   ' Change the mail address and subject in the macro before you run it.
   '

    With OutMail
        .To = "email@example.com"
        .CC = ""
        .BCC = ""
        .Subject = Worksheets("NomenclatureVBA").Range("C2")

        .HTMLBody = "Hello all!" & "<br>" & _
        "Here is this week's report for the Comp Exam vs. Pano." & "<br>" & _
         "Let me know what you think or any comments or questions you have!" & "<br>" & _
         vbNewLine & Signature & .HTMLBody

        .Attachments.Add FilePath
        ' In place of the following statement, you can use ".Display" to
        ' display the mail.
        .Send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

因此,当我在第 13 小时(下午 1 点)打开工作簿时,这一切都运行良好,但是,当我尝试在第 13 小时在任务计划程序中运行它时,它会运行所有内容,直到 EmailPDFAsAttachment 宏/子并挂断宏中的某处并停止运行。

我还应该声明,我在 Outlook 和 Excel 中具有以下信任中心设置:TrustCenterSettings

任何人都知道是什么导致宏在我个人打开文件时完美运行,然后当我尝试通过任务计划程序打开文件时它停在同一位置? 有谁知道如何通过任务计划程序使其正确运行?

谢谢!

回答1

我们意识到服务器限制了我在任务调度程序中的权限。 当我去我的 IT 主管将我的权限切换到管理员时,它完美地运行了任务调度程序!

抱歉误报了......我最初不会发布这个问题,但我上周花了整整一周的时间来研究它。 谢谢大家看!

回答2

那是我的猜测。 您必须确保您的密码输入正确。 如果您用粗手指输入了错误的密码,任务计划程序会接受它,即使它不应该接受。 在我看来,它应该提示用户并通知他/她错误。 也许微软会在不久的将来改变这一点。

受限制的 HTML

  • 允许的HTML标签:<a href hreflang> <em> <strong> <cite> <blockquote cite> <code> <ul type> <ol start type> <li> <dl> <dt> <dd> <h2 id> <h3 id> <h4 id> <h5 id> <h6 id>
  • 自动断行和分段。
  • 网页和电子邮件地址自动转换为链接。

相关推荐
  • 当任务计划程序设置为“无论用户是否登录都运行”时,VBA 失败(VBA fails when Task Scheduler is set to “Run whether user logged on or not”)
    问题 我有一个 Access VBA 宏,它生成一个报告,将它保存在 .pdf 中,然后使用 CDO 通过电子邮件发送它。 如果我手动运行它,或者如果我使用安全选项“仅在用户登录时运行”将其设置为在任务计划程序上运行,一切正常。 但是,如果我将选项设置为“无论用户是否登录都运行”(即使使用“以最高权限运行”选项),程序会在第二行崩溃: strFileFullPath = CurrentProject.Path & "\Test Report.pdf" DoCmd.OutputTo acOutputReport, strReportName, acFormatPDF, strFileFullPath 有错误 Microsoft Access 无法将输出数据保存到您选择的文件中。 我很确定这是因为宏在后台与其他用户一起运行。 我一直在寻找解决方案,但我发现这是不可能的,我应该更改其他打印方法,例如 PDF Creator(这会带来很多其他问题)。 我在 Windows Server 2012 R2 Standard 中使用 Access 2016。 回答1 这听起来很疯狂,但几天后没有结果,我设法通过创建这两个空文件夹来解决我的问题: C:\Windows\System32\config\systemprofile\Desktop C:\Windows\SysWOW64\config
  • 使用Excel vba宏通过Windows Schedule Task运行(Using Excel vba Macro to be run through Windows Schedule Task)
    问题 我有一个Excel电子表格,我已经设置了一个计时器来将代码运行到数据库中。 如果电子表格已打开,并且现在的时间是在该时隙内设置的时间,则它将数据导出到数据库中 我在子例程和workbook_open Application.OnTime TimeValue("22:00:00"), "ExportOpenJobs"中都使用此行 这对于打开电子表格非常有用,但是我希望能够通过Windows Schedule任务进行设置。 我使用Windows Server 2012作为主机以及文件存储位置。 在“任务计划程序”中,我将“操作”设置为“启动程序”,并将“程序”脚本设置为位置和实际的* .xlsm文件以及“任务”的开始时间。 我在Excel VBA中的时间之前30秒设置了此任务。 我的问题是Windows任务计划程序在设置任务的时间运行,查看任务历史记录后,我可以看到任务启动/完成和操作启动/完成通常需要大约50分钟才能完成,但是当我检查数据库时,Excel VBA hasn没跑 如何获得任务计划程序以运行Excel VBA代码? 在Windows Server中,您实际上是否需要安装Excel,因此应该在另一台计算机上完成吗? 回答1 您好,我要做的是创建此.VBS文件,然后使用Windows Task Scheduler以所需的时间间隔执行此vbs文件。 Set fso =
  • 锁定计算机后如何发送电子邮件?(How to Send Email When Computer is Locked?)
    问题 我想使用Excel VBA发送Outlook电子邮件。 手动运行时,代码Sendupdate有效。 我的第二个宏StartTimer旨在在我不在办公桌前的设定时间执行上述操作。 锁定计算机后,电子邮件将不会发送。 当我回到办公桌前时,电子邮件作为草稿挂在那里,我需要单击“ send按钮。 Sub SendUpdate() Recipient = "x@y.com" Subj = "update" Dim msg As String msg = "hello” HLink = "mailto:" & Recipient & "?" HLink = HLink & "subject=" & Subj & "&" HLink = HLink & "body=" & msg ActiveWorkbook.FollowHyperlink (HLink) Application.Wait (Now + TimeValue("0:00:01")) Application.SendKeys "%s" End Sub Sub StartTimer() Application.OnTime TimeValue("18:00:00"), "SendUpdate" End Sub 有没有办法确保电子邮件被推送? 回答1 我将分三步来打破这个“教程” 1)编写Excel宏 2
  • 如何使用Excel发送邮件?
    假设你有一个Excel,其中列出了所有收件人的信息,如下所示:如果需要向列表中的每个用户发送一封邮件,最好使用当前记录生成一个附件,并且格式如下:姓名, 发送消息你应该怎么办?一个一个拷贝发送?用python?答案是,都不用,Excel自己解决。通过本文,你将知道以下问题的答案:什么是VBAVBA能够做什么怎么编辑VBA如何将VBA保存到Excel文件为你的VBA脚本创建一个快捷键VBA如何创建一个Excel文件VBA如何将本Excel中的数据读出并写到另一个文件VBA如何生成并发送一个邮件?发送邮件过程总述1. 什么是VBA根据微软官网的解释:Office Visual Basic for Applications (VBA) 是事件驱动的编程语言,可以借助它扩展 Office 应用程序。https://docs.microsoft.com/zh-cn/office/vba/api/overview/根据官网定义,我们不难理解,VBA是用来扩展Office软件功能的一门编程语言。并且VBA不仅仅可以用在Excel,还能用在Outlook,Access,Word等Office软件中。这就为我们使用VBA读取Excel内容并发送邮件奠定了基础。2. VBA能够做什么作为一门编程语言,理论上讲,VBA可以做到任何编程语言可以做到的事情,比如:根据Excel中数据进行数据统计
  • 如何自动刷新 Excel 文件并通过电子邮件发送?(How can I automate an Excel file refresh and send via email?)
    问题 我有几个 Excel 文件(数据透视表和图表),它们具有到 Access 数据库的数据连接。 我希望做的是让它们自动刷新并在每个月的 1 日收到电子邮件。 我在 Access 中做了类似的事情,在那里我有一个数据库,其中包含一个可以运行并通过电子邮件发送的查询。 我通过在数据库中创建一个表单,在打开数据库时自动打开表单,然后在表单中使用 VBA 来运行查询 (DoCmd.OpenQuery) 然后通过电子邮件发送它 (DoCmd.SendObject) 来实现这一点 我可以对 Excel 文件做类似的事情吗? 我想我可以将“数据”选项卡下的“连接属性”设置为“打开文件时刷新数据”,但假设用户具有活动网络连接,因为数据库位于服务器上。 此外,如果用户保存文件并在将来再次打开它,它将具有当前数据而不是原始数据。 所以简而言之,我需要: 打开 Excel 文件刷新数据电子邮件文件 回答1 这是我最终做的: 在 Access 中,我有一些 Make Table 查询来制作 Excel 文件将使用的表格 (duh)。 我创建了一个表单,让它在数据库打开时自动打开,并在Form_Load()事件中输入以下内容: With DoCmd .SetWarnings False .OpenQuery "My Query 1" .OpenQuery "My Query 2"
  • 有关如何部署和共享VSTO解决方案的最佳内容(best content on how to deploy and share a VSTO solution)
    问题 随着利用Visual Studio和dotnet以及基于Office的解决方案(尤其是excel)的推动,关于如何共享带有附加二进制文件和程序集的Office工作表的最佳文章或信息在哪里得到了分享。 将此外部代码打包到电子表格中吗如果人们开始通过电子邮件发送电子表格该怎么办。 此附加程序集是否有任何开销。 是否存在二进制文件与电子表格分离的风险 似乎微软已经在推动VSTO超过5年了,但是您读到了很多混杂的评论和问题。 我们是否正处于使用大型VBA excel解决方案的公司可以完全迁移到dotnet的时候,而没有任何真正的担忧? 回答1 首先,我想回答您关于VSTO是否准备好用于更大的实现的问题。 答案是肯定的! 特别是如果替代方案是VBA。 您拥有整个.Net框架,可以使用ADO.Net Web服务(更好的是,与企业库一起使用)。 您仍然可以编写看起来很像VBA但功能更强大的代码。 您可以通过阅读演练:为Excel创建第一个文档级自定义项来获取更多信息。 该页面将使您了解可用的VSTO功能。 现在,回答您有关部署的问题。 这取决于您是否要进行外接程序或文档级别的自定义。 如果是外接程序,则必须将其安装在每个客户端上,文档的任何传递都不会影响它(外接程序位于应用程序级别,而不是单个文档级别)。 我假设您正在谈论文档级别的自定义,所以我将围绕这一点回答我的问题。
  • 如何使用git diff创建两个电子表格的可读差异?(How do I create a readable diff of two spreadsheets using git diff?)
    问题 我们的源代码存储库中有很多电子表格(xls)。 这些通常使用gnumeric或openoffice.org编辑,并且通常用于填充数据库以使用dbUnit进行单元测试。 据我所知,没有简单的方法可以对xls文件进行差异处理,这使得合并变得非常乏味且容易出错。 我曾尝试将电子表格转换为xml并进行常规的比较,但确实感觉应该是最后的选择。 我想像对文本文件一样对git进行比较(和合并)。 我将如何执行此操作,例如,在发出git diff ? 回答1 我们在公司中面临着完全相同的问题。 我们的测试输出excel工作簿。 二进制差异不是一个选择。 因此,我们推出了自己的简单命令行工具。 签出ExcelCompare项目。 实际上,这使我们可以很好地自动化测试。 补丁/功能要求非常受欢迎! 回答2 只要您比较的两张纸相似,那么无需外部工具即可轻松快捷地工作: 创建第三个电子表格在左上方的单元格中键入=if(Sheet1!A1 <> Sheet2!A1, "X", "") (或等效项:单击实际单元格以将引用自动插入公式中) Ctrl + C (复制), Ctrl + A (全选), Ctrl + V (粘贴)填充工作表。 如果工作表相似,则此电子表格将为空,但其中包含几个带有X的单元格,以突出显示差异。 放大至40%即可快速查看有什么不同。 回答3 过去
  • Excel VBA Application.OnTime。 我认为使用这个是个坏主意……不管怎样?(Excel VBA Application.OnTime. I think its a bad idea to use this… thoughts either way?)
    问题 我有很多我支持的用户要求事情自动发生(更自动,但这是另一点!)。 一个人希望每 120 秒发生一次事件(请参阅我的另一个问题),另一个人希望在每个工作日下午 5 点发生一件事情。 这必须在 Excel 工作表上,因此 VBA 作为插件等将是不可以的,因为它需要是自包含的。 我非常不喜欢使用Application.OnTime我认为它危险且不可靠,其他人怎么看? 编辑:Cross post 是在 VBA Macro On Timer 样式中每隔设定的秒数运行代码,即 120 秒 回答1 Application.OnTime 绝对 100% 可靠,绝对没有危险。 但是,它仅通过 VBA 公开,并且出于某种原因,您在此处将 VBA 视为“否”,因此您似乎无法使用此选项。 我一般不会将 OnTime 用于长期调度,例如调度 Excel 每天下午 5 点执行命令。 问题是,如果用户关闭 Excel,则 OnTime 计划丢失。 在这种情况下,您需要的是使用任务计划程序,或者创建您自己的应用程序或 Windows 服务来打开 Excel 并执行您的命令。 然而,为了安排一个事件每 120 秒发生一次,使用 Application.OnTime 将是完美的——你只需要重新安排 OnTime 在每次 OnTime 回调时在 120 秒内再次发生,因为 OnTime 只触发一次每个调º
  • Excel 中的 MsgBox 焦点(MsgBox focus in Excel)
    问题 我正在 Excel 中使用 VBA 计算大量数据,并希望在完成后显示一个 MsgBox。 MsgBox 实际上显示了计算所用的时间。 问题是当用户决定在计算发生时做其他事情。 Excel 继续计算,完成后,MsgBox 确实显示,但出于某种原因,Excel 没有将焦点放在 MsgBox 上。 Excel 图标将在任务栏中闪烁,如果我们单击它,Excel 会最大化,但 MsgBox 位于 Excel 窗口后面,我们永远无法单击它。 所以摆脱它的唯一方法是 taskkill excel.exe ......不是很好。 Alt+Pause 也不起作用,因为代码只会在当前代码行之后停止,该行结束......当 MsgBox 关闭时。 我之前尝试过AppActivate("Microsoft Excel")函数但没有成功(如何将焦点放在 msgbox 上?)。 应用程序名称实际上比该名称长,因为 Excel 2010 将文档名称添加到窗口标题中。 知道如何解决这个烦人的问题吗? 回答1 无论哪个其他应用程序具有焦点,这都将在 Excel 中工作: 在消息框或任何警告之前放置以下代码: AppActivate Application.Caption DoEvents 相信我,这太棒了! 回答2 我做了一些测试,并为您找到了一个潜在的解决方法。 我设置了这个简单的程序来测试您的情况:
  • 作为计划任务运行时,Powershell脚本无法访问文件(Powershell script cannot access a file when run as a Scheduled Task)
    问题 我的Powershell(2.0)脚本具有以下代码片段: $fileName = "c:\reports\1.xlsx" $xl = new-object -comobject excel.application $xlFormat = [Microsoft.Office.Interop.excel.XlFileFormat]::xlWorkbookDefault $xl.displayalerts = $false $workbook = $xl.workbooks.open($fileName) #Code to manipulate a worksheet $workbook.SaveAs($fileName, $xlformat) $xl.quit() $error | out-file c:\reports\error.txt 我可以在Powershell命令提示符下运行此脚本,而不会出现任何问题。 电子表格已更新,并且error.txt为空。 但是,当我将其作为任务计划程序中的任务运行时,第一行出现错误。 异常调用带有“ 1”参数的“打开”:“ Microsoft Office Excel无法访问文件'C:\ reports \ 1.xlsx'。可能有以下几种原因:文件名或路径不存在。文件正在被另一个程序使用。您要保存的工作簿与当前打开的工作簿具有相同的名称。
  • 通过VBA从Excel发送电子邮件附件(Sending email attachments from Excel via VBA)
    问题 我编写了一个宏,单击该宏即可通过Outlook发送自动电子邮件。 一切运行顺利,但我只是不知道如何将文件附加到电子邮件中。 在我到过的所有地方,用于将文件附加到电子邮件的示例代码都是针对静态命名文件的,例如,您将发送相同的文件名,并且每次都使用相同的路径。 如果这样做更方便,则运行此宏的按钮在我尝试附加的工作簿中。 我不确定打开Windows资源管理器窗口是否最简单,最好以这种方式附加文件。 Sub mySub Dim objOutlook As Outlook.Application Dim objOutlookMsg As Outlook.MailItem Dim objOutlookRecip As Outlook.recipient Dim objOutlookAttach As Outlook.Attachment Dim WeekendingDate As Date With Worksheets("Macro Buttons") WeekendingDate = Range("N2").Value End With Set objOutlook = CreateObject("Outlook.Application") Set objOutlookMsg = objOutlook.CreateItem(olMailItem) With objOutlookMsg
  • 100个Java项目解析,带源代码和学习文档!
    前言 你是否正在寻找带有源代码的Java项目的免费集合?你的搜索到这里结束,我为你提供了近100多个Java项目。 想要成为一个优秀的程序员写项目是绕不开的,毕竟工程学的最终目标都是要创造东西,所以,代码给我敲起来! 文中所有项目的源码和学习文档都可以免费下载,以及我整理的 一些Java学习资料都可以免费分享。需要的朋友可以自行点击链接进群即可领取。 项目源码和学习笔记 22本Java架构师核心书籍 从0到1Java学习路线和资料 1000+道2021年最新面试题 话不多说,坐稳扶好,发车喽 在线作业门户 安置系统的重要性日益增加。 成千上万的申请人依赖于安置单元。 但是申请人面临许多问题。 该项目旨在最大程度地减少求职者寻找正确工作的问题。 如果我们可以使其成为一个在线计算机化的移动提醒程序,它将对申请人如此之快和便捷。但是,从令人烦恼的事情开始,新技术已使大多数0人的生活变得更加美好和轻松,因此必须做到这一点。结论是他们应该受到欢迎。 在线考试 考试软件是一种考试管理软件,可为基于计算机的考试(CBT)提供完整的解决方案,用于在设定的时间段内设置多项选择题,提交后将自动更正,并将结果记录在学生的参考号旁边。###特征 管理员登录。 学生注册。 管理和更新学生信息,说明和问题。 修正每个问题的否定分数和最大分数的范围。 以总分,正确回答尝试和 的形式显示结果 未尝试问题 。
  • Excel VBA 发送带有多个附件的电子邮件(Excel VBA Sending emails with multiple attachements)
    问题 所以我们正在举办这个大事件,我有一个 excel 表格,上面有每个人的姓名、电子邮件地址以及他们的行程文件(其中有 2 个) Cells(x, 3)和Cells(x, 4) 。 我想要做的是沿着专栏向每个人发送一封包含他们所有信息的“个性化”电子邮件。 在代码中, for循环只执行 3,因为我只是通过向自己发送电子邮件来测试它,并且不想最终收到 1000 封电子邮件:P 我在尝试添加附件的行中不断收到运行时错误 440(自动化错误) ...不知道发生了什么或如何解决它任何帮助表示赞赏 代码 Sub CreateHTMLMail() 'Creates a new e-mail item and modifies its properties. Dim olApp As Object Dim objMail As Object Dim body, head, filePath, subject As String Dim x As Long Set olApp = CreateObject("Outlook.Application") 'Create e-mail item Set objMail = olApp.CreateItem(0) filePath = "\\fileserver\homeshares\Tsee\My Documents\Metropolitan
  • VBA(基础篇+提高篇+实战篇)Excel数据处理教学视频
    视频教程下载地址:https://306t.com/file/686368-477760582更多资源下载地址:https://z701.com/f/686368-485346643-6740b7(访问密码:4939)VBA基础篇(Excel数据处理)内容目录:章节一:开篇导言课时1 无边数据萧萧下,不尽人工滚滚来13:09章节二:VBA开发环境设置课时2 第一回 生平不识VBE,便想编程也枉然11:13章节三:第一个程序:读写单元格课时3 第二回 VBA初显真面目,Cells遥指单元格10:58章节四:变量与常量课时4 第三回 用变量实现灵活机动,记规则以免非法命名13:30课时5 第四回 追根溯源探究变量本色,强制声明避免李戴张冠12:10章节五:基本流程控制语句课时6 第五回 小For单挑大数据,Tab独挺好文风12:49课时7 第六回 IF语句分清泾渭,关系运算明断忽微12:50章节六:相关知识:字符串,逻辑运算,调试器及录制宏课时8 第七回 人在江湖飘 谁能不挨刀,用好调试器 一刀学一招13:54课时9 第八回 天下文章尽皆字符串,世间逻辑不过与或非 11:39课时10 第九回 录制宏依样学样,读代码见招拆招 13:26章节七:While语句以及多重循环的应用课时11 第十回 While执守抱柱信,不见楼兰终不停 11:43课时12 第十一回 单变量难解二维表
  • 请你拿出30分钟精读此文,系统掌握终身受用的JAVA实战案例!
    前言 最近针对互联网公司面试问到的知识点,总结出了Java程序员面试涉及到的绝大部分面试题及答案分享给大家,希望能帮助到你面试前的复习且找到一个好的工作,也节省你在网上搜索资料的时间来学习。 内容涵盖:Java、MyBatis、ZooKeeper、Dubbo、Elasticsearch、Memcached、Redis、MySQL、Spring、SpringBoot、SpringCloud、RabbitMQ、Kafka、Linux等技术栈。 完整版Java面试题地址:JAVA后端面试题整合 在线作业门户 安置系统的重要性日益增加。 成千上万的申请人依赖于安置单元。 但是申请人面临许多问题。 该项目旨在最大程度地减少求职者寻找正确工作的问题。 如果我们可以使其成为一个在线计算机化的移动提醒程序,它将对申请人如此之快和便捷。但是,从令人烦恼的事情开始,新技术已使大多数0人的生活变得更加美好和轻松,因此必须做到这一点。结论是他们应该受到欢迎。 在线考试 考试软件是一种考试管理软件,可为基于计算机的考试(CBT)提供完整的解决方案,用于在设定的时间段内设置多项选择题,提交后将自动更正,并将结果记录在学生的参考号旁边。 ###特征 管理员登录。 学生注册。 管理和更新学生信息,说明和问题。 修正每个问题的否定分数和最大分数的范围。 以总分,正确回答尝试和 的形式显示结果 未尝试问题 。
  • 软件测试5大用例设计笔试大题
    1.出租车计费软件答案解析:1 题答案:1. 公里跟 km 需求单位最好统一2. 时间范围不明确,在 5:00 及 23:00 是包含还是不包含的关系3. 空驶费部分等待时间是否会算空驶费4. 等待时间中 非 5 分钟整数倍怎么计算收费5. 跨时间段,起步价如何收费超出 35km,如果超出部分在跨时间段,空驶费的计算方式也要跨时间段?2 题答案:以下所有计算路程都以 1km 为单位,超出 1km 不足 2km 算 2km;所有时间都按 5 分钟为阶段,超出 5 分钟不足 10 分钟算 10 分钟;以此类推,测试用例包括:1)、5:00-23:00 时间段,行驶路程 =3km;计费 11 元2)、5:00-23:00 时间段,行驶路程 =4km,等待时间为 3min;计费 2.1*4+2.1*13)、5:00-23:00 时间段,行驶路程 =5555km,等待时间为 11min;计费 2.1*6+2.1*34)、5:00-23:00 时间段,行驶路程 =10km,等待时间为 15min;计费 2.1*10+2.1*35)、5:00-23:00 时间段,行驶路程 =11km,等待时间为 23min;计费 3.2* 11+3.2*56)、5:00-23:00 时间段,行驶路程 =36km,等待时间为 23min;计费 3.2*36+3.2*5+(36-35)*3.2*50%7)、23
  • Visual Basic 6.0和VBA之间的区别(Difference between Visual Basic 6.0 and VBA)
    问题 两者有什么区别。 我一直以为VBA是VB的“残废”版本,但是前一天当一个朋友问我时,我不知道实际的区别是什么。 另外,例如在使用Excel时,是VB还是VBA? 回答1 对于几乎所有编程目的,VBA和VB 6.0都是同一件事。 VBA无法将您的程序编译为可执行二进制文件。 您将始终需要宿主(例如Word文件和MS Word)来包含和执行您的项目。 您也将无法使用VBA创建COM DLL。 除此之外,IDE有所不同-比较起来,VB 6.0 IDE的功能更强大。 另一方面,您已将主机应用程序紧密集成在VBA中。 无需声明即可使用应用程序全局对象(例如“ ActiveDocument”)和事件,因此特定于应用程序的编程非常简单。 但是,没有什么可以阻止您启动Word,加载VBA IDE以及解决与Word无关的问题。 我不确定VB 6.0是否可以(技术上)执行任何操作,而VBA无法执行。 我正在寻找MSDN上的比较表。 回答2 VBA代表Visual Basic for Applications,VB的小“ for applications”脚本兄弟也是如此。 实际上,VBA在Excel中可用,但在其他Office应用程序中也可用。 使用VB,可以创建一个独立的Windows应用程序,而使用VBA是不可能的。 但是,开发人员可以将VBA作为一种脚本语言“嵌入”自己的应用程序中
  • 将Java程序作为预定任务运行(Running a JAVA program as a scheduled task)
    问题 我试图每天在Windows 7计算机上运行一个简单的JAVA程序。 我的代码在NetBeans中运行良好。 如果我进行清理并构建,则建议这样做: C:\Program Files\Java\jdk1.7.0/bin/java -jar "C:\Users\User1\Documents\NetBeansProjects\Facebook\dist\Facebook.jar" 由于程序和文件之间的空间,这在DOS提示符下当然行不通,所以我这样做: C:\Program Files\Java\jdk1.7.0/bin/java -jar "C:\Users\User1\Documents\NetBeansProjects\Facebook\dist\Facebook.jar" -jar "C:\Users\User1\Documents\NetBeansProjects\Facebook\dist\Facebook.jar" 这在DOS提示符下有效。 我现在在Windows Scheduler中创建一个要运行的任务: C:\Program Files\Java\jdk1.7.0/bin/java 带有参数: -jar "C:\Users\User1\Documents\NetBeansProjects\Facebook\dist\Facebook.jar" 然后,当我运行它时
  • 通过在SSIS中运行excel VBA宏来自动化过程(Automate process by running excel VBA macro in SSIS)
    问题 最近,我有一个项目需要通过将SSIS程序包和excel VBA宏结合为一个来使过程自动化。 步骤如下: 我有一个SSIS包,将所有视图结果导出到从sql server到excel的多个单独文件。 所有文件都保存在同一位置。 我有一个excel VBA宏可以执行清理操作,以删除每个导出的excel文件中的所有空白表。 我也有一个excel VBA宏执行合并任务,以将所有excel文件合并到主excel文件中。 该主excel文件包含所有结果集,并且每个结果集分别保存在不同的选项卡上。 由于我是手动运行第2步和第3步,因此我的问题是如何将第2步和第3步与第1步连接起来,以将它们组合为一个自动化过程。 请向我提供有关如何实现此目标的建议! 非常感谢。 回答1 这样做的方法是在SSIS包中创建一个脚本任务。 然后,一旦进入脚本任务,就可以通过脚本任务的C#代码调用Excel互操作。 例如,您可以添加对Microsoft.Office.Interop的引用。 在脚本任务的C#代码中使用该库后,就可以添加一些将调用宏的代码。 例如 oExcel = CreateObject("Excel.Application") oExcel.Visible = False oBooks = oExcel.Workbooks oBook = oBooks.Open(Dts.Variables(
  • 微软HPC解决方案概述与实作
    HPC解决方案是微软产品历史长河中的一个砂砾,国内很少有人提及,因此老王准备把这个砂砾擦擦,为大家呈现出来开始之前我们不妨先来看下HPC的概念,前面我们花了将近50篇左右的文章,讲了微软高可用性群集,除了高可用群集,微软事实上还有负载均衡群集和高性能群集技术,负载均衡技术无非是ARR,NLB,DNS轮询,这些大家都常用的技术,而微软的高性能群集技术,就连专门做微软itpro的人也很少知道,因此本文我们就来从一个入门的角度,争取让不懂HPC的微软ITpro可以看懂,也可以让懂HPC但不了解微软产品的人看懂。首先我们先来看下高性能群集与其它几种群集的不同高可用群集:群集所有节点,来维持一个应用的持续运作,如果当前应用所在节点失败,自动故障转移至其它节点负载均衡群集:群集所有节点来平衡一个应用的访问请求,利用每个节点的响应,以提高应用效能,同时支持故障转移分布式群集:群集所有节点来共同完成一件事,一件事可以被分散成若干小事由不同节点处理,最终汇总结果高性能群集:群集所有节点来共同完成一件事,通常以计算为主,综合群集的性能来达到快速完成计算目的分布式群集与高性能群集进一步探讨这两种群集模型,某些程度上存在一定相似度,但某些程度又不太一样例如,一个分布式群集的节点,可以是server,pc,hpc,可以是跨机房,跨地区,跨国,可以是windows,linux,unix