主页 / user-28132983

BrandonC's questions

Martin Hope
BrandonC
Asked: 2024-11-26 05:03:34 +0800 CST
  • 5

我目前正在尝试将任务的截止日期（在工作流中使用 MS Planner）设置为提交某项任务后的 2 天。但是，我想将周末排除在计算之外（有点像工作日）。

addDays(triggerOutputs()?['body/receivedDateTime'], 2)

我确实尝试了以下操作但被告知这是“无效输入”：

if(dayOfWeek(triggerOutputs()?['body/receivedDateTime']) >= 4, 
addDays(triggerOutputs()?['body/receivedDateTime'], 4), 
addDays(triggerOutputs()?['body/receivedDateTime'], 2))

我不完全确定是什么导致它无效。“triggerOutputs()?['body/receivedDateTime']”部分已确认可以正常工作，因为不考虑周末的常规语句可以正常工作。

power-automate
Martin Hope
BrandonC
Asked: 2024-11-05 06:49:08 +0800 CST
  • 5

我编写了一个宏脚本，该脚本会获取 Excel 文件中选定的一组工作表，并将它们全部导出为单个 PDF 文档。但是，有些情况下，这些文档的接收者需要此合并 PDF 中某些页面的多个副本。我想知道我是否可以设置它，以便某些工作表在最终导出的 PDF 中有重复的页面。

例如，假设 sheet1 是最终 PDF 中的一张表。我想找到一种方法，让 sheet1 中的页面被复制多次。

以下是宏的原始代码以及它使用的辅助函数：

Sub ExportToPDF()
Dim wb As Workbook
Set wb = ActiveWorkbook

    Dim mds As Worksheet
    Set mds = wb.Sheets("Master Data Sheet")
    
    Dim DefaultSheets, SelectedSheets As Variant
    DefaultSheets = Array("Proforma Invoice", "SLI", "VGM Form", "Commercial Invoice", "Cert of Origin", "Packing List")
    
    Dim Country, Company, CurrDate, OrderNo, FilePath As String
    Country = mds.Range("E49").Value
    Company = mds.Range("D36").Value
    CurrDate = mds.Range("E46").Value
    OrderNo = mds.Range("E39").Value
    
    For Each Sheet In Array("Master Data Sheet", "Multi Order Queries", "Packing List Query")
        wb.Worksheets(Sheet).Visible = xlSheetHidden
    Next
    
    FilePath = GetFolder()
    
    wb.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        IncludeDocProperties:=True, _
        Filename:=FilePath + "\" + Company + "_" + OrderNo + "_" + CurrDate + ".pdf", _
        OpenAfterPublish:=True
        
    For Each Sheet In Array("Master Data Sheet", "Multi Order Queries", "Packing List Query")
        wb.Worksheets(Sheet).Visible = xlSheetVisible
    Next
    
    mds.Activate

帮手：

Function GetFolder() As String
    Dim fldr As FileDialog
    Dim sItem As String
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
        .Title = "Select a Folder"
        .AllowMultiSelect = False
        .InitialFileName = Application.DefaultFilePath
        If .Show <> -1 Then GoTo NextCode
        sItem = .SelectedItems(1)
    End With
NextCode:
    GetFolder = sItem
    Set fldr = Nothing
End Function
excel