TestComplete and Excel
#1
Отправлено 06 июня 2006 - 07:31
#2
Отправлено 06 июня 2006 - 09:47
Можно читать Excel файл через OLE (Excel.Application) и записывать данные в XML файл также через OLE (Msxml2.DOMDocument).
Пример работы с Excel можно найти здесь:
'<TestComplete>\Samples\Scripts\MSOffice'
Документация по MSXML лежит здесь.
Дмитрий
#3
Отправлено 06 июня 2006 - 11:58
Здравствуйте.
Можно читать Excel файл через OLE (Excel.Application) и записывать данные в XML файл также через OLE (Msxml2.DOMDocument).
Пример работы с Excel можно найти здесь:
'<TestComplete>\Samples\Scripts\MSOffice'
Документация по MSXML лежит здесь.
А как создавать Excel докмент в TestComplete и туду записывать данние???
#4
Отправлено 07 июня 2006 - 12:18
Sub XLLog()
Set exl = CreateObject("Excel.Application")
exl.DisplayAlerts = false
Set exlwb = exl.Workbooks.Add
exl.Visible = true
exl.Worksheets.Add()
exl.Cells(1,1) = "!!!"
exlwb.Close()
exl.Quit()
End Sub
Записывает в ячейку A1 значение "!!!"
#5
Отправлено 20 июня 2006 - 13:41
Внесу и свои 5 коп.
По ходу теста вписываю в Excel результаты. Вот такая схема наработалась:
' Initiate writing to Excel, closing will be performed at the bottom of Main Set exl = CreateObject("Excel.Application") exl.DisplayAlerts = false Set exlwb = exl.Workbooks.Add exl.Visible = true Sub Main .......... ' Finishing part of the script. Need to save Excel log file befor quitting exl.ActiveSheet.SaveAs File_Name exlwb.Close() exl.Quit() End Sub .......... exl.Sheets.Add() exl.Sheets(1).Name = String1 'Worksheet name ........... 'Output into Excel exl.Cells(Row, Col) = String2 'To make a text Bold and Red exl.Range(Col & Row).Select exl.Selection.Font.Bold = True 'Bold exl.Selection.Font.ColorIndex = 3 'Red ............
Кому нужно детальнее, то в MSDN можно посмотреть в секции:
Development Tools and Languages | Visual Studio .Net | Product Documentation |
Visual Basic and Visual C# | Programming with Office |
Automating Office Applications | Automating Excel ...
Да... надо и себе путь запиасть :-)
Надеюсь многим окажется полезным. Удачи!
Количество пользователей, читающих эту тему: 0
0 пользователей, 0 гостей, 0 анонимных