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

如题所述

推荐答案 2020-03-05

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

温馨提示：答案为网友推荐，仅供参考

当前网址：http://77.wendadaohang.com/zd/NIp8IYp8Yp3YpNvG3W.html

其他回答

第1个回答推荐于2019-09-01

sub dakai()
mypath="文件路径"
Workbooks.Open mypath
~
~
你需要的其他代码
~
~
end sub本回答被网友采纳

相似回答

...一段可以指定用户、指定路径才能打开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文件,代码应该怎么写答：Sub s() On Error Resume Next Dim pth$, fn$, wb As Workbook pth = "d:\test\" '在这里输入要打开的工作簿的完整路径 fn = "a.xlsx" '在这里输入要打开的工作簿的文件名，包括扩展名 Set wb = Application.Workbooks.Open(pth & fn) If wb Is Nothing Then MsgBo...

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\x0a...

vba怎样打开指定路径的excel文件答：打开文件如下：Workbooks.Open ("C:\对账单\对帐单.xlsx")这里你可以把“C:\对账单\”换成你的绝对路径，你可以用：a = ThisWorkbook.Patha = ThisWorkbook.PathWorkbooks.Open ("" & a & "&" \ "&对帐单.xlsx")来获取你当前表的绝对路径，然后再打开，因为不知道你的具体情况，如果有问题...

VBA中如何打开一个文件夹内的所有EXCEL文件?答：点选到你存放文件的那个Set myFolder = FSO.GetFolder(.InitialFileName)Set myFiles = myFolder.FilesFor Each oFile In myFilesstrName = UCase(oFile.Name)strName = VBA.Right(strName, 3)If strName = "xls" Or strName = "XLS" Then '这是扩展名选择'下面就可接着写打开文件读取...

在VBA中,怎样打开或者调用另一个EXCEL文件答：ThisWorkbook属性可以返回一个 Workbook 对象，该对象代表当前宏代码运行的工作簿，而Path属性可以返回文件的路径这样就可以用在Workbook_Open事件中加入下面的代码打开“报表.xls”了。Private Sub Workbook_Open()Dim FN As String FN = ThisWorkbook.Path & "\报表.xls"If Len(Dir(FN)) = 0 Then M...

在VBA中,怎样打开或者调用另一个EXCEL文件答：Set wb = Workbooks.Open("F:\2017\汇总\物料.xls")wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("物料").Range("a1")wb.Close False MsgBox "物料更新完毕！"End Sub 这段代码为，打开"F:\2017\汇总\物料.xls"工作簿，并把sheet1的数据复制到当前工作簿，物料工作表，你可以参考一下 ...

大家正在搜

excelvba编写插件 excel如何写vba代码 excel编写vba程序 excel vba代码 excelvba代码大全 excel怎么进入vba excel vba编程能干什么 excel的vba功能 excelvba怎么运行