我有一个a.xlsx文件,在它同级目录下还有一个A文件夹,A文件夹下有一个b.xlsx。现在,我要做的事情就是,用VBA写一段代码,能够打开“A/b.xlsx”文件,并在a.xlsx文件中应用这段代码,请问要怎么做,尽可能详细!十分感谢!
打开文件如下:
Workbooks.Open ("C:\对账单\对帐单.xlsx")
这里你可以把“C:\对账单\”换成你的绝对路径,
你可以用:a = ThisWorkbook.Path
a = ThisWorkbook.Path
Workbooks.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打开相对路径下的文件或文件夹?急!!!
打开文件如下:Workbooks.Open ("C:\\对账单\\对帐单.xlsx")这里你可以把“C:\\对账单\\”换成你的绝对路径,你可以用:a = ThisWorkbook.Path a = ThisWorkbook.Path Workbooks.Open ("" & a & "&" \\ "&对帐单.xlsx")来获取你当前表的绝对路径,然后再打开,因为不知道你的具体情况,如果有问...
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...
excel中如何用vba打开一个相对路径下的资料
1.当前路径:path = Application.ThisWorkbook.path然后,打开时,加入其余路径,和文件名。Workbooks.Open filename:= _ path & "\\model\\" & "book1.xls", Notify:=False 2.同级别文件夹路径:Sub hjs111()t = ThisWorkbook.path '当前文件的路径a = Split(t, "\\") '以 \\ 为分割,把t 保存为数组apath...
用EXCEL VBA获取指定目录下的文件名(包括文件夹名)
1、首先利用快捷键“Windows键+R”打开“运行”窗口 2、接着输入“cmd”并点击“打开”3、比如是需要复制输出c盘下的Progam Data中文件夹的名字 4、在命令窗口中输入“cd c:\\Progam Data”5、点击“回车键”后出现下面情况 6、然后输入“dir \/b>d:21.xls”命令并点击“回车键”7、接着就在D...
Excel VBA和文件夹-1.7通过对话框灵活选定文件夹并打开对应文件
首先,我们创建一个对话框,让用户直接在VBA中选择所需的文件夹,无需预先指定路径,代码如下:对话框代码部分:这部分代码的作用是打开文件选择对话框:vb Sub OpenFolder()Dim fdlg As FileDialog Set fdlg = Application.FileDialog(msoFileDialogFolderPicker)If fdlg.Show = -1 Then '如果选择打开...
Excel VBA列出某文件夹下子文件夹及文件名
在文件夹内 新建 个 Excel文件 Excel文件内 按 Alt+F11 视图--代码窗口, 把如下代码复制进去, F5运行 Sub 遍历文件夹() 'On Error Resume Next Dim fn(1 To 10000) As String Dim f, i, k, f2, f3, x Dim arr1(1 To 100000, 1 To 1) As String, q As Integer Dim t...
如何利用vba依次打开指定文件夹里的所有excel表,进行某种
为了打开文件夹中的所有Excel文件并执行操作,首先需要使用FSO对象或通过DIR循环目录下所有文件。一旦文件被选中,使用VBA的Open方法可以打开Excel工作簿。具体操作步骤如下:Sub 保存你的工作簿()ThisWorkbook.Save 'Save相当于你手工单击保存按钮;这个函数无参数 ThisWorkbook.SaveAs ' 另存为工作簿,把当前...
Excel VBA和文件夹-1.5遍历文件夹并打开
具体代码部分,首先定义文件夹路径,然后使用`do while`循环,每次循环都会检查`dir`的返回值,直到找到所有文件。找到的文件名会与文件夹路径结合,形成如`FileName & "\\\\" & f`这样的完整路径,用于`Workbooks.Open`打开Excel文件。每处理完一个文件后,使用`Workbooks.Close`关闭文件,然后继续下一...
EXCEL2010 vba 循环打开某些文件夹下的excel文件
“D:\\”)getFiles objTemplateFolder end sub Sub getFiles(ByRef theFolder As Object)Dim folder As Object Dim c As New Scripting.FileSystemObject ‘此处执行你的操作:打开关闭文件夹,取名字等 For Each folder In theFolder.subFolders getFiles folder ’递归遍历子文件夹 Next End Sub ...
如何用VBA遍历指定目录下的所有子文件夹Excel文件的所有工作表_百度知 ...
功能: 查找指定文件夹含子文件夹内所有文件名或文件夹名(含路径)'函数名: FileAllArr'参数1: Filename 需查找的文件夹名 不含最后的""'参数2: FileFilter 需要过滤的文件名,可省略