请大神帮修改下，如何让当指定文件不存在时，还是继续执行以下代码

huangxiansen

请大神帮助修改下：1、如果目录下没有指定的文件就跳过执行下面的代码， 2、如何把文件路径修改成当下目录（适用换一台电脑也可以用）

Sub 采购金额报表()
'
' 采购金额报表 宏
'
    Sheets("Sheet3").Select
    Cells.Select
    Selection.Delete Shift:=xlUp
    Sheets("Sheet2").Select
    Cells.Select
    Selection.Delete Shift:=xlUp

    Workbooks.OpenText Filename:="C:\Users\huangxs11\Desktop\33", Origin:=936, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
        Array(3, 1)), TrailingMinusNumbers:=True
    Cells.Select
    Selection.Copy
    Windows("报表生成.xlsm").Activate
    Sheets("Sheet2").Select
    Cells.Select
    ActiveSheet.Paste
    Rows("1:3").Select
    Range("H1").Activate
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Rows("2:2").Select
    Range("H2").Activate
    Selection.Delete Shift:=xlUp
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft

JiaDongjun

On Error Resume Next 或者
on error goto XXX
…………
XXX：
exit

---

ThisWorkbook.Path

huangxiansen

JiaDongjun 发表于 2018-6-22 16:24
On Error Resume Next 或者
on error goto XXX
…………

不太明白应该如何修改，能帮我把代码直接修改下吗？谢谢了