在路径中打开关闭的WB，文件名"Quote#"和活动工作表单元格范围"h5".value.xlsx

Question

我一直在寻找一段时间了，但没有成功运行宏来打开特定的 wb。 任何帮助将不胜感激。

'Opens Ref. Quote
Dim H As Range
Set H = Range("H4")
If H = "" Then
Dim wb As Workbook
Dim ps As Workbook
Dim Path As String
Dim file_name As Range
Path = "U:V3.5.0QUOTES"
file_name = "QUOTE#" & "H" & (".xlsx")
wb.Open

Answer 1

上面的代码充满了语法问题。我不会解释所有内容，但请将我的代码与您的代码进行比较，以便您学习。

我假设您要检查 H4 是否确实具有值，并且它将输入工作簿名称。

Dim H As Range
Set H = Range("H4")
If H.Value <> "" Then
Dim Path As String
Path = "U:V3.5.0QUOTES"
Dim file_name As Range
file_name = "QUOTE#" & H.Value & ".xlsx"
Dim wb As Workbook
Set wb = wb.Open(path & file_name)
End If

Answer 2

Sub RETRIEVE_QUOTE(( '检查是否输入了报价# 应用程序.屏幕更新 = 假 调暗 H 作为范围 集合 H = 范围("H4"( 如果 H.值 = " 则 MsgBox "请输入报价#！" 退出子 结束如果 '检查是否输入了 PO# 将 R 调暗为范围 集合 R = 范围("H5"( 如果 R.Value = " 则 MsgBox "请输入 PO#！" 退出子 结束如果 '检查是否输入了截止日期 将 D 调暗为范围 集合 D = 范围("H6"( 如果 D.值 = " 则 MsgBox "请输入截止日期！" 退出子 结束如果 '打开参考报价 如果 H.值<> " 则 将路径暗淡为字符串 路径 ="U：\V3.5.0\引号\" 将file_name暗为字符串 file_name = "QUOTE#" & H.Value & ".xlsx" Workbooks.Open filename：=(Path & file_name( 结束如果