vba怎么打开excel文件路径(vba打开指定路径文件夹)

1. vba打开指定路径文件夹

返回应用程序完整路径 Application.Path 返回当前工作薄的路径 ThisWorkbook.Path 返回当前默认文件路径： Application.DefaultFilePath Application.ActiveWorkbook.Path 只返回路径 Application.ActiveWorkbook.FullName 返回路径及工作簿文件名 Application.ActiveWorkbook.Name 返回工作簿文件名

2. vba如何打开文件夹

1.打开一个表格文件；

2.按组合按键【Alt+F11】调出VBA编辑器，插入宏取名为【打开文件选择对话框】；

3.定义对话框变量（Dim fd As FileDialog：Set fd = Application.FileDialog(msoFileDialogFilePicker)）；

4.设置文件默认目录及显示对话框;

5.执行宏后就会弹出文件选择对话框。

3. excel vba 获取文件路径

Sub save() Dim str As String Dim ws As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False str = Application.InputBox(prompt:="请输入想要保存的文件名", Type:=2) If str = "" Then Exit Sub End If Set ws = ActiveSheet ws.SaveAs Filename:=str, FileFormat:=xlExcel8 ActiveWindow.Close Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub ****PS：在输入想要保存的文件名的时候，可以以这种格式输入D:文件名.xls就可以改变文件名和保存路径

4. vba选择路径保存文件

1、CurDir$是标识当前路径的函数，返回值为String类型。

激活磁盘并作为当前路径

2、ChDrive能够激活相应磁盘，并将磁盘根目录作为当前路径，即让CurDir$的返回值为被激活的磁盘根目录。如ChDrive "D"激活D盘，并将D盘根目录作为当前路径。

激活相应路径并将其作为当前路径

3、ChDir 路径（如ChDir “D:\新建 Microsoft Office Excel 工作表.xlsx”）激活相应路径，并将其作为当前路径。

彻底删除相应路径下的文件

1

Kill “D:\新建 Microsoft Office Excel 工作表.xlsx”——表示彻底删除相应文件，要删除的文件必须存在，否则会出错。

5. vba打开指定路径

不知道你是不是要改变复制后文件夹的名称，如果只是一两个的话，很简单的PublicSubfuzhi()Application.Workbooks.Open"C:\Users\jason\Desktop\VBA\wenjuan.xlsm"’打开文件ActiveWorkbook.SaveAs"C:\Users\jason\Desktop\VBA1111\wenjuan.xlsm"‘复制路径ActiveWorkbook.Close’关闭文件EndSubC:\Users\jason\Desktop\VBA1111这个就是你的文件的位置，不管是打开的还是保存的都是可以变的，你看看行不行，有问题再补充吧

顶一下

(0)

0%

踩一下

(0)

0%