我继承了一个用户表单,我被要求添加一个宏,这样只需点击一下按钮就可以导入数据,而不是手动添加。这很好但是当我通过单步测试宏时,它“跳转”到已经在用户表单中的Public子宏。我认为这可能是由于在工作簿之间切换导致公共子尝试运行。这是我导入数据的宏
Sub Importdata()
Dim mywb As Workbook
Set mywb = ActiveWorkbook
Application.ScreenUpdating = False
'File Directory Where Data comes From
FilePath = "\\xxxxxx "
VM = mywb.Sheets("feeder").Range("G1")
Set x = Workbooks.Open(Filename:=FilePath & VM & ".xls")
x.Sheets("Main Journals").Cells.Copy
mywb.Sheets("sheet1").Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
它到达设置x = Workbooks.Open(文件名:= FilePath& VM&“.xls”)这一行,然后它“跳转”到此宏已经在继承的工作和我的宏落空。
Public Sub Workbook_Deactivate()
On Error Resume Next
ThisWorkbook.ActiveSheet.BneRemoveOracleMenu
End Sub
我如何否定这一点?非常感谢。