使用Excel VBA添加HP ALM QC 11.0版本選項卡中的文件夾

我一直在嘗試在QC Releases文件夾中創建文件夾結構。我可以遍歷現有的文件夾數量，但找不到添加我選擇的新文件夾的任何內容。下面是我寫的子例程，我打算通過以「Releases \ XYZ \ ABC」格式發送路徑到函數來調用。首先，這段代碼將忽略路徑中的Releases關鍵字。然後我會找到文件夾XYZ，如果沒有找到它應該創建它。有人可以幫我用代碼添加一個節點。然後我可以繼續編碼。這是我的第一個問題，所以請忽略我的錯誤。使用Excel VBA添加HP ALM QC 11.0版本選項卡中的文件夾

我試過AddNode，但沒有奏效。

下面提到是迄今爲止我所編寫的代碼：

公用Sub RELEASEPATH（strPath的作爲字符串）

末次

來源

2014-11-25 Noob

在一個OTA API文檔示例中，要創建一個新的ReleaseFolder，他們首先從要創建的文件夾的父級獲取ReleaseFolderFactory對象，在該工廠調用'AddItem（Null）'，設置ReleaseFolder的名稱和Post它。當你調用AddItem時究竟失敗了什麼？你在哪個對象上調用AddItem？ – Roland 2014-11-25 09:26:36

我試着在releaselist對象上添加一個項目。報告的錯誤是對象不支持此功能。 – Noob 2014-11-25 10:23:07

我嘗試使用OTA API參考中給出的代碼。但是，我收到錯誤「運行時錯誤-2147220427（80040435）」，其中顯示「您的質量中心會話已斷開連接，請與您的系統管理員聯繫以獲取更多信息。」在'relFolder.Post'行後發生此錯誤。當我使用tdc.Connected檢查時，它返回True，這意味着會話沒有被斷開。 – Noob 2014-11-25 15:38:29

首先，我認爲你的變量名相當混亂。您的folderFactoryNode是TDFilter對象，您的releaselist實際上是ReleaseFolder對象的列表，而不是發佈列表。要創建新的ReleaseFolder，您需要調用ReleaseFolderFactory的AddItem。在你的情況下，去創造你需要（從OTA API文檔未經測試，直接）類似的東西，第一級文件夾：

' Create a Release folder. 
Set oReleaseFolderFactory = tdc.ReleaseFolderFactory 
Set rootReleaseFolder = oReleaseFolderFactory.Root 
Set oReleaseFolderFactory = rootReleaseFolder.ReleaseFolderFactory 
Set relFolder = oReleaseFolderFactory.AddItem(Null) 
relFolder.Name = "XYZ" 
relFolder.Post

對於較深的水平（在你的例子中，ABC文件夾），您可以使用的AddItem XYZ文件夾的ReleaseFolderFactory。

來源

2014-11-25 10:54:02 Roland

您可以請參閱我上面關於Post方法的評論嗎？感謝所有幫助，直到現在。 – Noob 2014-11-25 15:43:55

我也嘗試過使用你的代碼。它給出了同樣的錯誤。我正在使用的登錄ID確實有權在那裏創建一個文件夾。所以即使這被排除是一個可能的問題。 – Noob 2014-11-25 15:45:54

謝謝。此代碼工作。我關閉了excel並確保在後臺沒有任何實例。它以後工作得很好。感謝您的答覆。 – Noob 2014-11-25 15:55:59

使用Excel VBA添加HP ALM QC 11.0版本選項卡中的文件夾

回答

相關問題