文件管理 · 2022年8月18日

vba打开一个excel文件路径|VBA如何获取当前EXCEL文件的路径

『壹』 VBA如何获取当前EXCEL文件的路径

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

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

你都用VBA了,怎么还问这么种问题啊。。。thisworkbook.path就是A文件夹的路径。B文件夹的路径就用文本函数把A截取掉连上B或者把thisworkbook.path中的A替换成B都可以。。。。

『叁』 VBA语言如何打开指定文件名的文件

在D盘新建一个名为文件的文件夹,在里面创建几个Excel文件。

『肆』 如何用VBA实现导入自定义路径的Excel文件

方法/步骤首先,Excel已有自定义函数(这里就不多说了,如果不了解自定义函数的,可以在我关于自定义函数的经验中找找看)。点击Excel左上角的”Office按钮“,选择”另存为“,”其他格式“。在弹出的新对话框中,选择”Excel97-2003加载宏(*.xla),然后选择保存的路径和保存的文件名,点击“保存”键即可。到这一步,实际上就完成了制作自定义加载项的工作,接下来,就是添加自定义加载项到Excel中了。随便打开一个新的Excel文件,点击左上角的“Office按钮”,选择下面的“Excel选项”,继续选择“加载项”。然后点击下方的“转到”按钮。这时候又弹出一个新的对话框出来,选择其中的“浏览”按钮。此时会出现一个“打开”对话框,找到在步骤3中储存的xla格式的文件,并点击“确定”按钮。8这时候,就可以看到左侧多了一个文件名,这说明按照正确的路径找到了这个文件,点击“确定”按钮,返回Excel。9这时候,就可以在Excel中,像自带的函数一样,随意使用模块中的两个函数了。而且任意时候,打开Excel,这个函数都是可以使用的。

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

fl=application.getopenfilename(,,"打开目标文件")此句是打开一个选择文件的对话框,fl得到的是你选择文件的具体路径;workbooks.openfilename:=fl这句是打开你选择的文件!当然如果想打开指定文件,你可以不写第1句,直接把第2句的fl改成具体路径的字符串即可!

『陆』 EXCEL如何使用VBA打开相对路径下的文件或文件夹急!!!

打开文件如源下:

Workbooks.Open ("C:对账单对帐单.xlsx")

这里你可以把“C:对账单”换成你的绝对路径,

你可以用:a = ThisWorkbook.Path

a = ThisWorkbook.Path

Workbooks.Open ("" & a & "&" "&对帐单.xlsx")

来获取你当前表的绝对路径,然后再打开,因为不知道你的具体情况,如果有问题可以hai我

如果当前文件夹下还有A文件夹可以用代码:

Workbooks.Open ("" & a & "&" A"&b.xlsx")

『柒』 vba怎么打开并读取一个指定路径下的excel文件

sub 读取文件()dim PH$, FN$ph = '路径,注意最后要是“\”fn = dir(ph & "*.xls")do until fn = ""……你需要的处理fn = dir '依次读取 xls 文件,文件名赋值给fnloopend sub

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

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

程序代码:

Private Sub Workbook_Open()

If Me.FullName <> "c:Temp mp.xlsm" Or Application.UserName <> "admin" Then Me.Close

End Sub

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

『玖』 EXCEL如何使用VBA打开相对路径下的文件或文件夹

打开文件如下:

Workbooks.Open ("C:对账单对帐单.xlsx")

这里你可以把“C:对账单”换成你的绝对路径,

你可以用回:a = ThisWorkbook.Path

a = ThisWorkbook.Path

Workbooks.Open ("" & a & "&" "&对帐单.xlsx")

来获取你当答前表的绝对路径,然后再打开,因为不知道你的具体情况,如果有问题可以hai我

如果当前文件夹下还有A文件夹可以用代码:

Workbooks.Open ("" & a & "&" A"&b.xlsx")

『拾』 Excel 如何使用VBA打开指定路径下的文件夹

将当前文件夹设为默认即可。在你的语句前面加上下面两句:ChDir ThisWorkbook.PathChDrive ThisWorkbook.Path