如何隐藏工作簿2(book2),系统已经打开了book1情况下。目的:我先打开了book1.xls,现在由于需要,需要隐藏方式打开book2.用完其内容(比如向book1-sheet1-A2写个数据)后在关闭book2.
根本就是:如何隐藏一个后打开的book2.xls. VBA环境代码。别给VB的。谢谢!!

解决方案 »

  1.   

        Dim xlapp1 As Excel.Application
        Dim xlbook1 As Excel.Workbook
        Dim xlsheet1 As Excel.WorksheetPrivate Sub CommandButton1_Click()
            Set xlapp1 = CreateObject("Excel.Application")
        
        Set xlbook1 = xlapp1.Workbooks.Open("d:\test1.xls")
        
        Set xlsheet1 = xlbook1.Worksheets(1)
        End Sub
    Private Sub CommandButton2_Click()
        xlapp1.Quit
        Set xlapp1 = NothingEnd Sub
      

  2.   


    是我的表达不清楚吗?抱歉,在说一遍吧:主要就是:我是说book1.打开状态,不去管它。现在打开book2.xls.要求打开后是隐藏状态。
      

  3.   

    设置xlApp1.Visible = True
    试试看。
      

  4.   

    xlapp1.visible 是控制整个excel程序的,隐藏后两个工作簿都会隐藏而不是隐藏book2.xls