从 Power Automate Desktop 导出源代码

Question

我使用“Power Automate Desktop”创建了一些流程。 无论如何我可以看到这个应用程序的操作或下载代码。这样我就可以创建一个应用程序然后与其他人共享。

Answer 1

如果没有 PowerAutomate 许可证（试用版或付费版），您将无法在组织内进行共享。您至少需要触发试用许可证才能拥有该功能。

请参阅橙色文本...

如果您想下载源代码，您可以选择流程中的所有操作，按 Ctrl + C，然后将结果粘贴到文本编辑器（即像记事本），保存文件并将其传递给另一个用户。

然后，接收用户可以从文本编辑器复制步骤并将其直接粘贴到其流程中。步骤将翻译。

如果您有很多子流程，那么烦人的部分就会出现，必须将它们一一提取并保存在文本文件中，然后一一重新创建。

Answer 2

我使用石器时代代码将 Power Automate Desktop 查询代码提取到文本文件

Public Sub glhPAD()
           
    xx = InputBox("Enter number of times to run")
    
    For x = 1 To xx
           Open "c:\temp\glhClipboard.txt" For Append As #1
                     Print #1, "==============================================================         "
                     Print #1, Now()
           Close #1
           
           AppActivate "Power Automate": Application.Wait Now + TimeValue("00:00:02")
           SendKeys "{F2}": Application.Wait Now + TimeValue("00:00:01")
           SendKeys "^c": Application.Wait Now + TimeValue("00:00:01")
           SendKeys "{esc}": Application.Wait Now + TimeValue("00:00:01")
           Call glhClipboardToTextFile
           
           SendKeys "{enter}": Application.Wait Now + TimeValue("00:00:20")
           SendKeys "{tab}": Application.Wait Now + TimeValue("00:00:01")
           SendKeys "{tab}": Application.Wait Now + TimeValue("00:00:01")
           SendKeys "{tab}": Application.Wait Now + TimeValue("00:00:01")
           SendKeys "^a": Application.Wait Now + TimeValue("00:00:01")
           SendKeys "^c": Application.Wait Now + TimeValue("00:00:02")
           Call glhClipboardToTextFile

           SendKeys "%{F4}": Application.Wait Now + TimeValue("00:00:03")
           SendKeys "{Down}": Application.Wait Now + TimeValue("00:00:01")
           
    Next x
        
    MsgBox "Capture Done"
End Sub

Public Sub glhClipboardToTextFile()
    '   reference to Microsoft Forms 2.0 Object Library
    '   VBEditor / Tools / References
    
    On Error Resume Next
    With New DataObject
        .GetFromClipboard
        Open "c:\temp\glhClipboard.txt" For Append As #1
          Print #1, .GetText
          Print #1, " "
          Print #1, " "
          
        Close #1
    End With
End Sub