当Excel工作表中有ActiveX控件时，用VB进行表复制会让工作簿由隐式变显式？

renahu

Dim xlApp As Excel.Application, xlBook As Excel.Workbook   
Set xlApp = CreateObject("Excel.Application")           '创建EXCEL对象
xlApp.Visible = False                                              '设置EXCEL对象不可见

Set xlBook = xlApp.Workbooks.Open(FileName)        '打开已经存在的EXCEL工作簿文件
xlBook.Worksheets("模板").Copy Before:=xlBook.Worksheets("模板")
xlBook.ActiveSheet.Name = Text1.Text

但是发现如果工作簿中有 ActiveX控件，xlApp.Visible = False 就会失效，这是怎么回事？

renahu

其实我把表里的一个ActiveX控件换成相应的表单控件就ok了，发现只要用了ActiveX控件，执行xlBook.Worksheets("模板").Copy Before:=xlBook.Worksheets("模板")就会让表显示出来，用表单控件都没事，看来要不换表单控件，要不估计就没招了

renahu

看来这个问题无解，只能换表单控件了，应该是VB对excel的Copy命令兼容不好