打开 Excel 文件时如何运行两个代码之一？

大佬教程收集整理的这篇文章主要介绍了打开 Excel 文件时如何运行两个代码之一？，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

如何解决打开 Excel 文件时如何运行两个代码之一？？@H_197_1@ 开发过程中遇到打开 Excel 文件时如何运行两个代码之一？的问题如何解决？下面主要结合日常开发的经验，给出你关于打开 Excel 文件时如何运行两个代码之一？的解决方法建议，希望对你解决打开 Excel 文件时如何运行两个代码之一？有所启发或帮助；

我想在打开 Excel 文件时运行代码。
如果文件是从特定路径打开的，则应运行单独的代码。

以下是 xlam 文件“thisworkbook”部分中的代码。

Private Sub Workbook_open()

MsgBox "You just ran this code"

Application.Run "Savefile.Savefile"

End Sub

以下是从特定文件夹打开文件时要运行的代码。

Sub Savefile()

MsgBox ActiveWorkbook.name
Dim filepath As String
filepath = Application.ActiveWorkbook.path
If filepath = "D:\OneDrive - R.N. Kothari & Associates\Email Attachments" Then
    MsgBox "we won"
Else
End If
End Sub

解决方法@H_197_1@

如果我正确理解了这个问题，您只需要一个检查文件当前位置的 if 语句。轻松完成，因为 excel 保存每个打开的工作簿的路径，可通过 Workbooks("Name").Path 或 ThisWorkbook.Path 访问。所以你只需要把它放在 Workbook 模块中：

Private Sub Workbook_Open()
    If ThisWorkbook.Path = Path1 Then
        'Do stuff
    ElseIf ThisWorkbook.Path = Path2 Then
        'Do stuff
    Else
        'Do stuff
    End If
End Sub 

大佬总结

以上是大佬教程为你收集整理的打开 Excel 文件时如何运行两个代码之一？全部内容，希望文章能够帮你解决打开 Excel 文件时如何运行两个代码之一？所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。