vba按路径打开excel文件,vba打开当前目录下的文件

vba怎样打开指定路径的excel文件

打开文件如下：Workbooks.Open ("C:\对账单\对帐单.xlsx")这里你可以把“C:\对账单\”换成你的绝对路径，你可以用：a = ThisWorkbook.Patha = ThisWorkbook.PathWorkbooks.Open ("" a "" \ "对帐单.xlsx")来获取你当前表的绝对路径，然后再打开，因为不知道你的具体情况，如果有问题可以hai我 如果当前文件夹下还有A文件夹可以用代码：Workbooks.Open ("" a "" \ A\"b.xlsx")Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。在1993年，作为Microsoft Office的组件发布了5.0版之后，Excel就开始成为所适用操作平台上的电子制表软件的霸主。

excel中如何用vba打开一个相对路径下的资料？

先定义路径\x0d\x0a1.当前路径：\x0d\x0apath = Application.ThisWorkbook.path\x0d\x0a然后，打开时，加入其余路径，和文件名。\x0d\x0aWorkbooks.Open filename:= _\x0d\x0a path "\model\" "book1.xls", Notify:=False \x0d\x0a2.同级别文件夹路径：\x0d\x0aSub hjs111()\x0d\x0at = ThisWorkbook.path '当前文件的路径\x0d\x0aa = Split(t, "\") '以 \ 为分割，把t 保存为数组a\x0d\x0apath0= Replace(t, a(UBound(a)), "") '把字符串t中的字符串（a(UBound(a)）替换为空。\x0d\x0a 'path0 "\B\" "book1.xls" 这下明白了吧。\x0d\x0aEnd Sub\x0d\x0a\x0d\x0a例如：若 t= C:\Documents and Settings\HackEr\桌面\x0d\x0a 则 数组a即为 元素分别为 C: Documents and Settings HackEr 桌面 的数组\x0d\x0a a(UBound(a) 为a（3）即 桌面，UBound(a)为 a数组的上界 3 \x0d\x0a Replace(t, a(UBound(a)), "") 即为 把t 中的第四个元素 桌面 替换 为空。

你好侯哥：用VBA 编写一段可以指定用户、指定路径才能打开EXCEL文件？方便分享一下吗

可以在工作簿上写Open事件代码，方法是按ALT+F11、CTRL+R，双击ThisWorkbook粘贴程序，最后如下图：

程序代码：

Private Sub Workbook_Open()

? If Me.FullName "c:\Temp\tmp.xlsm" Or Application.UserName "admin" Then Me.Close

End Sub

程序中的文件路径和用户名请自行修改。

怎样编写vba根据路径打开一个excel文件的代码？

subdakai()\x0d\x0amypath="文件路径"\x0d\x0aWorkbooks.Openmypath\x0d\x0a~\x0d\x0a~\x0d\x0a你需要的其他代码\x0d\x0a~\x0d\x0a~\x0d\x0aendsub