以下是通過VBScript實現的Excel數據轉換成XML格式，主要用于實現Testlink1.9.3～1.9.10的測試用例導入。代碼實現如下：

根據到處的測試用例xml，定義一下我的Excel的格式如下：

編號	用例名稱	摘要	重要性	測試方式	前提	步驟	期望結果	實際結果
1	2	3	4	5	6	7	8	9

?

如果還沒有開始寫用例的，可以一依據這個模板，在excel中編寫用例，以下腳本是按照單元格的順序讀取的，所以這里的格式要調整，腳本中也要做相應的調整。

腳本實現如下：

Dim objexcel,objworkbook,objsheet,objxml_inter,objxml,totalrow,row,id,excelStr'======================================== '創建Excel對象,關閉Excel對象--函數 '========================================= Function getExcel(excelname, excelpath) Set objexcel = CreateObject("excel.application") Set objworkbook = objexcel.Workbooks.Open(excelpath) Set objsheet = objworkbook.Sheets(excelname) End FunctionFunction clsExcel() objworkbook.Close End Function '============================================Function dealStr(excelStr)For id=2 To 8excelStr = Replace(excelStr,id&"、","<br/>"&id&"、")excelStr = Replace(excelStr,id&".","<br/>"&id&".")NextdealStr=excelStr End Function'======================== '獲取Excel單元格數據,并將XML的格式寫入到對應的單元格，之后通過創建XML對象生成XML文件 '======================== Function getExcelData() row=2 objxml_inter="" Do While Not (objsheet.cells(row,2).value="")'internalid objxml_inter=objxml_inter&CStr("<testcase internalid=""") ' objxml_inter=objxml_inter&CStr(dealStr(objsheet.cells(row,1))) '內部用例編號 objxml_inter=objxml_inter&CStr(""" name=""")'caseName objxml_inter=objxml_inter&CStr(dealStr(objsheet.cells(row,2))) '用例名稱 objxml_inter=objxml_inter&CStr(""">")objxml_inter=objxml_inter&CStr("<node_order><![CDATA[0]]></node_order>")'externalid objxml_inter=objxml_inter&CStr("<externalid><![CDATA[") objxml_inter=objxml_inter&CStr(dealStr(objsheet.cells(row,1))) '外部用例編號 objxml_inter=objxml_inter&CStr("]]></externalid>")'summary objxml_inter=objxml_inter&CStr("<summary><![CDATA[<p>") objxml_inter=objxml_inter&CStr(dealStr(objsheet.cells(row,3))) '摘要 objxml_inter=objxml_inter&CStr("</p>]]></summary>")'preconditions objxml_inter=objxml_inter&CStr("<preconditions><![CDATA[<p>") objxml_inter=objxml_inter&CStr(dealStr(objsheet.cells(row,6))) '前置條件 objxml_inter=objxml_inter&CStr("</p>]]></preconditions>")'execution_type '執行方式 objxml_inter=objxml_inter&CStr("<execution_type><![CDATA[1]]></execution_type>")'importance '重要性 objxml_inter=objxml_inter&CStr("<importance><![CDATA[2]]></importance>")'steps objxml_inter=objxml_inter&CStr("<steps>")'step objxml_inter=objxml_inter&CStr("<step>")'step_number objxml_inter=objxml_inter&CStr("<step_number><![CDATA[1]]></step_number>")'action objxml_inter=objxml_inter&CStr("<actions><![CDATA[<p>") objxml_inter=objxml_inter&CStr(dealStr(objsheet.cells(row,7))) '測試步驟 objxml_inter=objxml_inter&CStr("</p>]]></actions>")'expectedresults objxml_inter=objxml_inter&CStr("<expectedresults><![CDATA[<p>") objxml_inter=objxml_inter&CStr(dealStr(objsheet.cells(row,8))) '預期結果 objxml_inter=objxml_inter&CStr("</p>]]></expectedresults>")'execution_type objxml_inter=objxml_inter&CStr("<execution_type><![CDATA[1]]></execution_type>")objxml_inter=objxml_inter&CStr("</step>") objxml_inter=objxml_inter&CStr("</steps>")objxml_inter=objxml_inter&CStr("</testcase>")'CStr(objsheet.cells(x,1)),CStr(objsheet.cells(x,2)) 'MyFile.Write(objxml_inter) 'WScript.Echo x-1 row=row+1 Loop totalrow = row-2 End Function'======================== '創建XML文件 '======================== Sub CreateXML Dim fileObj, XmlFile Set fileObj = CreateObject("Scripting.FileSystemObject") Set XmlFile = fileObj.CreateTextFile(XMLname, True) 'xml title objxml=CStr("<?xml version=""1.0"" encoding=""GBK""?>") objxml=objxml&CStr("<testcases>") objxml=objxml&objxml_inter objxml=objxml&CStr("</testcases>") XmlFile.Write(objxml) XmlFile.Close End Subexcelpath = Inputbox("請輸入Excel文件正確的路徑名和文件名：","TestLink 1.9.10小助手: Excel轉換XML工具")If excelpath = "" ThenMsgBox "文件名不能為空！"WScript.Quit ElseIf InStr(excelpath,".xls") < 1 ThenMsgBox "文件名格式不對！"WScript.Quit End Ifexcelname = InputBox("請輸入Excel中所要操作的表格名稱：","TestLink 1.9.10小助手: Excel轉換XML工具")If excelname = "" ThenMsgBox "文件名不能為空！"WScript.Quit End IfXMLname = InputBox("請輸入轉換之后的XML文件保存路徑和名稱：","TestLink 1.9.10小助手: Excel轉換XML工具") If XMLname = "" ThenMsgBox "文件名不能為空！"WScript.Quit ElseIf InStr(XMLname,".xml") < 1 ThenMsgBox "文件名格式不對！"WScript.Quit End If'初始化excel對象 Call getExcel(excelname, excelpath) '讀入Excel數據 Call getExcelData() '寫入數據， XML CreateXML '關閉Excel對象 Call clsExcel()'提示信息 MsgBox "完成從Excel到XML的數據轉換，總共"+CStr(totalrow)+"條！"

?

腳本保存本地，選擇編碼方式為unicode，后綴名為.vbs

?

2014-7-11-log：解決導入用戶提示外部用例ID相同的問題，直接取excel表中的用例編號，所以excel表中的用例編號是不能相同的，應該是唯一的。

?

總結

以上是生活随笔為你收集整理的TestLink测试用例：Excel转换XML工具二实现代码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。