Перейти к содержимому

Фотография

TestComplete and Excel


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 4

#1 Lexuses

Lexuses

    Новый участник

  • Members
  • Pip
  • 13 сообщений

Отправлено 06 июня 2006 - 07:31

Подскажите как импортировать данные из Excel в xml файл например?
  • 0

#2 Dmitry N

Dmitry N

    Профессионал

  • Members
  • PipPipPipPipPipPip
  • 1 742 сообщений
  • ФИО:Николаев Дмитрий
  • Город:Где-то в России

Отправлено 06 июня 2006 - 09:47

Здравствуйте.

Можно читать Excel файл через OLE (Excel.Application) и записывать данные в XML файл также через OLE (Msxml2.DOMDocument).
Пример работы с Excel можно найти здесь:
'<TestComplete>\Samples\Scripts\MSOffice'
Документация по MSXML лежит здесь.
  • 0
С уважением,
Дмитрий

#3 Lexuses

Lexuses

    Новый участник

  • Members
  • Pip
  • 13 сообщений

Отправлено 06 июня 2006 - 11:58

Здравствуйте.

Можно читать Excel файл через OLE (Excel.Application) и записывать данные в XML файл также через OLE (Msxml2.DOMDocument).
Пример работы с Excel можно найти здесь:
'<TestComplete>\Samples\Scripts\MSOffice'
Документация по MSXML лежит здесь.

Просмотр сообщения



А как создавать Excel докмент в TestComplete и туду записывать данние???
  • 0

#4 objective

objective

    Новый участник

  • Members
  • Pip
  • 47 сообщений

Отправлено 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 значение "!!!"
  • 0

#5 tfc

tfc

    Новый участник

  • Members
  • Pip
  • 17 сообщений
  • ФИО:Igor Goncharov

Отправлено 20 июня 2006 - 13:41

Thanks to Objective!

Внесу и свои 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 гостей, 0 анонимных