qq聊天监视器:Excel.Application

来源:百度文库 编辑:中科新闻网 时间:2024/05/14 01:22:37
Set xlapp = CreateObject("Excel.Application") '激活EXCEL
xlapp.Visible = True '让EXCEL可见
Set xlbook = xlapp.Workbooks.Open(App.Path + "个人简历.xlt")
'打开工作簿,strDestination为一个EXCEL报表文件
Set xlsheet = xlbook.Worksheets(1) '设定工作表

其中的xlapp.Visible = True 很重要吗?