关于保存路径、关键字查询、图标禁止删除问题，急急急！

sampsonpon

关于保存路径、关键字查询、图标禁止删除问题，具体见图

3190496160

Sub SaveAs()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim path
    Dim fileName
    Dim sap As Shape
    fileName = [b8] & [h3]
    Sheets("填写指令单-冠格").Copy
    path = ThisWorkbook.path & "\冠格电子内销生产指令单"
    If Dir(path, vbDirectory) = "" Then MkDir path
    For Each sap In ActiveWorkbook.ActiveSheet.Shapes
        sap.Delete
    Next
    ActiveWorkbook.SaveAs path & "\" & fileName & ".xlsx"
    ActiveWorkbook.Close
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
   
End Sub

3190496160

Sub 圆角矩形3_Click()
w = InputBox("请输入编号", "编号", "JH003")
If w = "" Then End
path = ThisWorkbook.path & "\冠格电子内销生产指令单\"
f = Dir(path & w & "*.xls*")
If f = "" Then MsgBox "找不到" & w & "文件": End
Set wb = Workbooks.Open(path & f, 0)
End Sub

3190496160

123.rar (98.06 KB, 下载次数: 11)

2023-5-22 12:17 上传

点击文件名下载附件

sampsonpon

3190496160 发表于 2023-5-22 12:16
Sub 圆角矩形3_Click()
w = InputBox("请输入编号", "编号", "JH003")
If w = "" Then End

如果是在多个文件夹中查找呢？怎么表达？是否是： path = ThisWorkbook.path & "\冠格电子内销生产指令单\" or path = ThisWorkbook.path & "\金羽电子内销生产指令单\"

fanyoulin

sampsonpon 发表于 2023-5-22 13:51
如果是在多个文件夹中查找呢？怎么表达？是否是： path = ThisWorkbook.path & "\冠格电子内销生产指令单 ...

不能这么写，查找文件要一个一个来，多文件或者多层级的目录也需要一个个查；
以前本论坛有很多大神写了很多的文件查询范例，所以这两年大家都不怎么再问这个问题了。

sampsonpon

fanyoulin 发表于 2023-5-22 14:54
不能这么写，查找文件要一个一个来，多文件或者多层级的目录也需要一个个查；
以前本论坛有很多大神写了 ...

好的，谢谢！

sampsonpon

还剩最后一个问题：锁死页面中菜单图标怎么弄？

feilanga

sampsonpon 发表于 2023-5-22 15:09
还剩最后一个问题：锁死页面中菜单图标怎么弄？

工作表保护

3190496160

sampsonpon 发表于 2023-5-22 15:09
还剩最后一个问题：锁死页面中菜单图标怎么弄？

设置工作表保护就行了呗，