⑴ 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 读取指定文件夹的名字和循环打开文件夹
就是遍历文件夹嘛,关键代码如下在工程-引用里添加 microsoft scripting run time 然后用下面的两个函数递归遍历 就可以了 sub main() Dim objFSO As Object Dim objTemplateFolder As ObjectSet objFSO = New Scripting.FileSystemObject Set objTemplateFolder = objFSO.GetFolder(“D:\”)getFiles objTemplateFolder end subSub getFiles(ByRef theFolder As Object) Dim folder As Object Dim c As New Scripting.FileSystemObject‘此处执行你的操作:打开关闭文件夹,取名字等 For Each folder In theFolder.subFolders getFiles folder ’递归遍历子文件夹 NextEnd Sub
⑶ 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就开始成为所适用操作平台上的电子制表软件的霸主。
⑷ 你好侯哥:用VBA 编写一段可以指定用户、指定路径才能打开EXCEL文件方便分享一下吗
可以在工作簿上写Open事件代码,方法是按ALT+F11、CTRL+R,双击ThisWorkbook粘贴程序,最后如下图:
程序代码:
Private Sub Workbook_Open()
If Me.FullName <> "c:Tempmp.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打开指定的文件夹
打开E盘Shell "explorer.exe " & "E:\", vbNormalFocus
⑺ 用VBA循环打开指定文件夹中的各个EXCEL,执行对应的宏操作后关闭。期间一直报找不到文件。
那肯定就是文件路径不对喽 你完全可以msgbox CStr(varFileList(l)) 来看看这个变量具体是什么内容 核对下就清楚了
⑻ Excel 如何使用VBA打开指定路径下的文件夹
将当前文件夹设为默认即可。在你的语句前面加上下面两句:ChDir ThisWorkbook.PathChDrive ThisWorkbook.Path
未经允许不得转载:山九号 » excelvba打开指定文件夹|EXCEL如何使用VBA打开相对路径下的文件或文件夹