为什么新的工作簿打开时宏停止运行?
我正在使用以下代码片段来保存电子表格,并将其设置为仅值并重新保存。但是,工作簿打开然后宏停止运行。为什么新的工作簿打开时宏停止运行?
这是为什么?我该如何阻止它?我试过设置ScreenUpdating = False
无济于事。
Sub saveReport()
Dim nwkbk As Workbook
Dim thsWkbk As Workbook
Set thsWkbk = ThisWorkbook
nwkbkPath = thsWkbk.Path & "\x. Archive\" & Format(Date, "YYYY-MM-DD - ") & thsWkbk.Name
ApplicationDisplayAlerts = False
thsWkbk.SaveCopyAs nwkbkPath
Set nwkbk = Workbooks.Open(nwkbkPath, False)
For w = 1 To nwkbk.Sheets.Count
nwkbk.Sheets(w).UsedRange = nwkbk.Sheets(w).UsedRange.Value
Next w
For wsp = 1 To nwkbk.Sheets.Count
nwkbk.Sheets(wsp).Protect Password:="SettleDownBenny"
Next wsp
Application.DisplayAlerts = False
nwkbk.Save
nwkbk.Close
End Sub
答案:您的宏停止运行,因为它保存为xlsm
。其中可能有事件处理程序在打开时启动,从而停止原始宏。更新:在这种情况下,当xlsm
打开时,Auto_Open
方法会自动运行。
如何解决你的问题:使用Worksheets
对象的Copy()
方法的所有工作表从一个工作簿复制到一个新的(原来只是为格式的公式将无法正常工作)。然后,您需要使用.Value
属性单独将这些值复制为值,以确保所有值都被逐字复制。然后调用SaveAs()
方法进行保存。
代码如下:
Sub saveReport()
Dim nwkbkPath As String
Dim w As Long
Set thsWorkbook = ThisWorkbook
With thsWorkbook '<--| reference 'ThisWorkbook'
nwkbkPath = .Path & "\x. Archive\" & Format(Date, "YYYY-MM-DD - ") & GetName(.Name) '<--| use only the "strict" name (no extension) of ThisWorkbook
.Sheets.Copy '<--| copy all worksheets from 'thsWkbk' to a new workbook, which also becomes the 'ActiveWorkbook'
End With
On Error GoTo ErrHandler
Application.DisplayAlerts = False
Set nwWorkbook = ActiveWorkbook
For w = 1 To nwWorkbook.Sheets.Count
nwWorkbook.Sheets(w).UsedRange = thsWorkbook.Sheets(w).UsedRange.Value
Next w
For w = 1 To nwWorkbook.Sheets.Count
nwWorkbook.Sheets(w).Protect Password:="SettleDownBenny"
Next w
nwWorkbook.SaveAs nwkbkPath
ActiveWorkbook.Close
ErrHandler:
Application.DisplayAlerts = True
End Sub
Function GetName(wbName As String) As String
GetName = Left(wbName, InStrRev(wbName, ".") - 1)
End Function
使用Copy()
方法Worksheets
目的是所有工作表从工作簿复制到一个新的,在其上执行所有所需的操作和最后调用SaveAs()
方法
如下
Option Explicit
Sub saveReport()
Dim nwkbkPath As String
Dim w As Long
With ThisWorkbook '<--| reference 'ThisWorkbook'
nwkbkPath = .Path & "\x. Archive\" & Format(Date, "YYYY-MM-DD - ") & GetName(.name) '<--| use only the "strict" name (no extension) of ThisWorkbook
.Sheets.Copy '<--| copy all worksheets from 'thsWkbk' to a new workbook, which also becomes the 'ActiveWorkbook'
End With
On Error GoTo ErrHandler
Application.DisplayAlerts = False
With ActiveWorkbook '<--| reference the ActiveWorkbook
For w = 1 To .Sheets.Count
.Sheets(w).UsedRange = .Sheets(w).UsedRange.Value
Next w
For w = 1 To .Sheets.Count
.Sheets(w).Protect Password:="SettleDownBenny"
Next w
.SaveAs nwkbkPath
End With
ActiveWorkbook.Close
ErrHandler:
Application.DisplayAlerts = True
End Sub
Function GetName(wbName As String) As String
GetName = Left(wbName, InStrRev(wbName, ".") - 1)
End Function
的在那里我也做了一些小的重构你的原代码
我没有接受,因为它实际上破坏了大量的数据,并没有将它保存为一个值。这个宏的粘贴值中的#NAME?错误非常猖獗。我会看看我是否可以编辑您的答案,并在复制值时重新接受它。 – AER
这是因为在复制过程中,我创建的任何自定义函数都会被保存为'xlsx',从而导致出现'#NAME?'错误。 – AER
您的_original_问题中未指定自定义函数问题,因此无法要求我的答案处理它。根据本网站规则,您应该接受它,因为它解决了_original_问题,并为新问题发布了新问题。 – user3598756
我认为你有一个错误的'nwkbkPath = thsWkbk.Path& “\ X档案\” &格式(Date “YYYY-MM-DD - ” )&thsWkbk.Name',你有一个文件夹“x。Archive”嵌套在这个Excel文件的当前路径下吗? –
在您的_original_工作簿中有一些事件处理程序吗?他们会被复制到新的工作簿中,并干扰正在运行的宏:尝试将其保存为普通的xlsx文件,因此没有宏存活 – user3598756
@ user3598756正确。我有一个AutoOpen方法,只要打开电子表格就会运行。好拿起。你如何保存副本,但选择格式?与VBA结合使用时,Excel的管理非常荒谬。 – AER