vba中打开一个excel文件就触发一段代码，怎么实现？-vba打开excel路径,vba路径

1、首先打开Excel数据表，在开发工具中打开VBA编辑器。

2、zhidao在单元格区域当中输入一些内容。

3、在VBA编辑器中插入模块。版

4、Sub获取文件路径()Dim filess, tempfiless=Application.GetOpenFilename(, , "打开文件")If filess=False Then MsgBox "你未选择文件，程权序即将退出！": Exit Subtemp=Split(filess, "\")。

5、MsgBox "你选择的《" & temp(UBound(temp)) & "》的路径为：" & Chr(10) & filess _
& Chr(10) & "当前表路径为：" & Chr(10) & ThisWorkbook.FullName, vbokonty+64,"返回路径"End Sub。在模块当中输入代码，然后运行。

6、然后单击“执行”按钮，程序弹出“选择文件”对话框。选择一个文件后，程序立即弹出所选文件的路径，然后弹出当前工作簿的路径。

在VBA编辑界面双击ThisWorkBook 跳出代码框，写入
Private Sub Workbook_Open()
'写入下面代码
msgBox "你要的效果"
End Sub
Hi，我直接告诉你百，同时大家也都能分享到。度

ActiveWorkbook.Path就获取到A.xls所在路径，不包括文件名本身。
所以，打开B.xls就一句知话：
Workbooks.Open ActiveWorkbook.Path & "\B.xls"

用字符串连接符&将路径与文件名连接为一个完整道的路径。

下面是一个用VBA进行文件基内本操作的参考：
http://blog.csdn.net/gxiyv/archive/2007/04/28/1588139.aspx
（文件的打开、保存与关闭）容

Sub s()
    On Error Resume Next
    Dim pth$, fn$, wb As Workbook
    pth = "d:\test\" '在这里输入要打开zhidao的工作簿版的完整路径
    fn = "a.xlsx" '在这里输入要打开的工作簿的文件名，包括扩展名
    Set wb = Application.Workbooks.Open(pth & fn)
    If wb Is Nothing Then MsgBox ("文件打开失败，请检查" & pth & fn & "是否存在！"): Exit Sub
    '在此添加操权作代码
    wb.Close True '如果无需保存，本参数用false
End Sub