两个问题 - 保存实例化工作簿中的更改并激活其他工作簿

Question

我有两个电子表格;我将它们称为电子表格1和电子表格2.电子表格一有一个函数可以生成一个月中的几天，如果它在月末，则它试图调用电子表格2中的模块/子。这是为了生成“每日”报告和“每月”报告。

在这一点上，有两个错误：第一个是当我试图保存我创建的电子表格2的新实例。错误是它要求以无宏格式保存工作簿。我只是想保存它！不要对格式进行任何更改。我甚至不确定它是否试图保存对实例化书对象的更改。

第二个是在电子表格2中，即使我将它设置为活动工作表（我认为），活动工作表仍然是电子表格1上的工作表，它首先运行宏。

任何帮助表示赞赏。

Option Explicit 
Public Function LastWeekOfMonth() As Boolean 

'finds the current date 
    Dim CurrentDate As Date 
    CurrentDate = CDate(ActiveSheet.Cells(FIRST_DATA_ROW, 1)) 

'find filepath and filename of the monthly documentation file 
    Dim mFilePath As String 
    Dim mFileName As String 

    mFilePath = "F:\Project Sweep\Kim Checklist\Barry Polinsky\Brathwaite, Tamika\" 
    mFileName = Cells(3, 4) & ".m_d.xlsm" 

    'if it is the last week of the month, write a monthly report, and return true to continue with the face to face paperwork 
    If (31 - Day(CurrentDate)) <= 7 Then 
     'write a monthly report 
     Dim app As New Excel.Application 
     Dim book As Excel.Workbook 

     ' app.Visible = False 'Visible is False by default, so this isn't necessary 
     Set book = app.Workbooks.Add(mFilePath & mFileName) 

     'run the subroutine CheckSpreadsheet in module WriteReport in target book 
     app.Run "'" & mFilePath & mFileName & "'!" & "WriteReport" & ".CheckSpreadsheet", book 
     ' CheckSpreadsheet (book) 




     'error next line 
     book.Save 
     book.Close 

     app.Quit 
     Set app = Nothing 
     LastWeekOfMonth = True 

    'if it is not, simply continue with the face to face paperwork 
    Else 
     LastWeekOfMonth = False 
    End If 

End Function 

在目标表中，在模块WriteReport，子程序CheckSpreadsheet，下面的代码的位置。

Option Explicit 

Public Sub CheckSpreadsheet(wbook As Excel.Workbook) 


    Set wosheet = wbook.Sheets("Monthly") 

wosheet.Cells(5, 5) = "Hello world!" 

End Sub 

Answer 1

不需要有Excel的其他实例，以隐藏工作簿中的属性是Windows，为了隐藏由工作簿中使用了Excel窗口。另外请记住，工作簿可以有多个窗口。

如果你确信你要隐藏的工作簿只有一个窗口，使用该行：如果工作簿有几个窗口使用此过程

Workbooks("WbkName").Windows(1).Visible = False 

：

Sub Wbk_Hide() 
Dim wbk As Workbook, wdw As Window 
    Set wbk = Workbooks("WbkName") 'Update as required 
    For Each wdw In wbk.Windows 
     wdw.Visible = False 
    Next 
End Sub 

我相信这改变你的程序的范围，否则让我知道。