davice

  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

xls_Sheet_Index = 1
DataTable_Sheet_Index = 1
Set qtapp=CreateObject("quicktest.application")
qtapp.Launch
qtapp.Visible=True
qtapp.Open "d:\iquicktest"
qtapp.Test.DataTable.ImportSheet "d:\1.xls",1,1
Set qtapp=Nothing

posted on 2011-12-07 12:56  davice  阅读(210)  评论(0编辑  收藏  举报