跳过输入框或任何错误信息

Question

我运行 VBA 来自临时 Excel 工作簿，它将做的是 "opens a macro enabled Excel in another path and extract value from cell C3 to the temporary Excel"。但问题是每当我从该路径打开 Excel 工作簿时，它都会显示两个框。

1) 一些错误（我不知道错误名称，因为宏在那个 Excel 文件中受密码保护，否则建议如何发送 "Enter" 密钥，这将跳过此错误。）

2）输入框（本例只需要回车即可）

有没有什么方法可以在不打开其他已关闭工作簿的情况下从其他已关闭的工作簿中获取数据验证下拉值。

Sub macro1()
 Dim wrk As Workbook
 Set wrk = Workbooks.Open("D:\Test\Test.xlsm") Workbooks("Book1.xlsm").Activate
 ActiveSheet.Range("h10") = wrk.Sheets(1).Range("c2").Validation.Formula1 wrk.Close SaveChanges:=False 
End Sub

以上是我现在实际使用的代码。但是这段代码将打开文件。我需要值而不打开文件。

Answer 1

尝试

Dim xlApp, xlBook, xlSht, my_file
  my_file= Application.GetOpenFilename
If my_file = "False" Then Exit Sub

Set xlApp = CreateObject("Excel.Application")
    xlApp.EnableEvents = False

Set xlBook = xlApp.Workbooks.Open(my_file)
Set xlSht = xlApp.ActiveSheet

'YOUR CODE HERE

xlBook.Close False
xlApp.Quit
Set xlSht = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

关键是xlApp.EnableEvents = False，这将禁用其他工作簿上的所有宏。

希望对您有所帮助。

跳过输入框或任何错误信息

Skip input box or any error message

excel

vba

inputbox