否定公共子宏

时间:2017-09-14 08:31:36

标签: vba public

我继承了一个用户表单,我被要求添加一个宏,这样只需点击一下按钮就可以导入数据,而不是手动添加。这很好但是当我通过单步测试宏时,它“跳转”到已经在用户表单中的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

我如何否定这一点?非常感谢。

0 个答案:

没有答案