QTP学习笔记6 excel读写及使用sendkeys键入中文

  国庆加班5天，终于又有时间学QTP了，RT，今天学习到两点

1. 读写excel文档

http://blog.csdn.net/lym_372/article/details/5683553

 

2. 使用sendkeys发送中文字符串

由于有个WebElement控件无法直接使用set函数进行赋值，曲线救国使用了click函数选中控件，再用sendkeys键入内容。碰到一个问题，sendkeys是模拟键盘操作，无法直接输入中文。一番思索+搜索后，决定将中文串放入剪切板中再使用Ctrl+V粘入。代码如下：

 Set CB = CreateObject("Mercury.Clipboard")  'QTP提供的剪切板对象
 oCB.Clear  '先清空剪切板，如果缺少这一步，那下一步会执行不成功，粘贴的是之前的对象
 oCB.SetText body  '将需要粘贴的内容放入剪切板
 set s = CreateoBject("wscript.shell")
 os.sendkeys "^v"  '模拟键盘发送ctrl + V