Question

在我的TFS构建过程结束时，我想通过＆＃34; InvokeProcess＆＃34;启动一个excel宏。活动。因此，我编写了一个启动Excel并执行宏的秒宏。

Option Explicit
On Error Resume Next
CallMacro

sub CallMacro()

        Dim xlApp
        Dim xlBook

        Set xlApp = CreateObject("Excel.Application")
        xlApp.DisplayAlerts = False
        Set xlBook = xlApp.Workbooks.Open("C:\Users\Username\Directory\File.xlsm", 0, True)
        xlApp.Run "Macro"
        xlApp.Quit


        Set xlBook = Nothing
        Set xlApp = Nothing

End Sub

我的问题是，当我的构建过程启动此宏时，什么都不会发生。我没有收到任何错误，警告或结果。如果我尝试通过命令行手动执行此宏，一切都很好。在我的宏中是否有错误或者它是TFS的问题，我该如何解决这个问题？

编辑：现在尝试使用更简单的脚本但结果相同，但没有任何反应。

Dim test, file
Set test = CreateObject("Scripting.FileSystemObject")
Set file = test.CreateTextFile("C:\Users\Username\Desktop\filename.txt")
file.Write "First Row" & vbCrLf & "Second Row" & vbCrLf & "End"
file.Close

先谢谢

编辑：可能是TFS帐户无法启动Excel.exe吗？因为第二个脚本（只是在文件中写入）现在工作正常，但是当我添加到启动Excel时，没有任何事情发生，我的构建过程永远运行。（在构建服务器上，整个任务管理器中没有Excel.exe）

使用命令行调用Excel宏

0 个答案: