Excel 选取工作簿所在的那个文件夹的VBA代码该怎么写

Question

如题所述

Answer 1

Sub Opiona() '//函数实例

    FileArr = FileAllArr(ThisWorkbook.Path, "*.xls?", ThisWorkbook.Name, True, False)

    For I = 0 To UBound(FileArr)

        SET WB=WORKBOOKS.OPEN(FileArr(i))

        Set SHX = WB.Sheets(1)

        

        WB.Close True  '//保存

    Next

End Sub

完整代码在附件中
使用方法请阅读函数帮助！    

Answer 2

Mypath = ThisWorkbook.Path