怎么正确改换vba中文件夹路径

A. vba 另存文件如何设置默认路径

名字自己改下：

1、默认为目前文档所在的文件夹呢？

ThisWorkbook.SaveAsThisWorkbook.Path&"2.xls"

2、保存到 我的文档

ThisWorkbook.SaveAs"C:.xls"

B. Excel vba 函数,这个怎么把目标改成路径,而不是文件名

使用Application.GetOpenFilename，得到的就是
文件完整路径，或者FALSE(未选择文件时)

C. 如何运用VBA将指定路径下的某一文件复制到另一指定路径下

1、我们需要批量提取新建文件夹里的文件完整路径，打开批量提取文件名的excel文件。

D. 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")

E. VBA如何设置路径,使文件夹移动时,仍能打开某一文档

只要excel和word放在同一个路径就行了，先获取excel自己所在的路径，然后打开word文档即可。
pth=Thisworkbook.Path
If
right(pth,1)
<>
"\"
then
pth=
pth
&
"\"
Set
odoc
=
docApp.
Documents
.Open(pth
&
"3-B02-01
在用压力容器全面
检验报告
_v1_0.doc")
如果不在同一个路径，只要相对位置是固定的也可以使用类似方法来实现。

F. VBA当前路径设置问题

我应该明白你的意思了!
那个别人提出的问题,在D盘设置的当前路径为"D:\test" ,并且将当前盘更改为D盘,可是在打开文件进行操作(确切的说是因为执行了.Save)之后,当前盘却更改回了默认盘(非D盘),当然当前路径也变为了默认盘的当前路径.这个问题唯一的解释就是把他当作一个Bug了.
只要可以区别这几个函数的作用就可以了:
要注意,CurDir是返回当前盘的当前路径,而CurDir("D")所返回的是D盘的当前路径,这里你设置的为D:\test,当然返回的就是这个路径了.他们之间是有区别的.
------------------------------------
参考:
CurDir 函数
返回一个 Variant (String)，用来代表当前的路径。
语法
CurDir[(drive)]
可选的 drive 参数是一个字符串表达式，它指定一个存在的驱动器。如果没有指定驱动器，或 drive 是零长度字符串 ("")，则 CurDir 会返回当前驱动器的路径。 在 Macintosh上，CurDir 忽略任何指定的 drive ,并只简单地返回当前驱动器的路径。

CurDir 函数示例
本示例使用 CurDir 函数来返回当前的路径 在 Macintosh 中， 使用CurDir可以省略驱动器名称。 默认驱动器名称是 “HD” 并且路径部分由冒号取代反斜线隔开。 同样，可以指定 Macintosh 的文件夹代替 \Windows。。

' 假设 C 驱动器的当前路径为“C:\WINDOWS\SYSTEM”(在 Microsoft Windows 中)。
' 假设 D 驱动器的当前路径为“D:\EXCEL”。
' 假设 C 为当前的驱动器。
Dim MyPath
MyPath = CurDir ' 返回“C:\WINDOWS\SYSTEM”。
MyPath = CurDir("C") ' 返回“C:\WINDOWS\SYSTEM”。
MyPath = CurDir("D") ' 返回“D:\EXCEL”。

G. 有关VBA指定路径的问题

可以用open方法中的filename参数指定吧

Workbooks.Open "D\学习成绩.XLS"
然后用其他的语句操作你打开的这个工作簿就可以了

以下内容来自EXCEL VBA的帮助文件

Open 方法
参阅应用于示例特性应用于 Workbooks 对象的 Open 方法。

打开一个工作簿。

expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)
expression 必选。该表达式返回一个 Workbooks 对象。

FileName String 类型，必需。要打开的工作簿的文件名。

UpdateLinks Variant 类型，可选。指定文件中链接的更新方式。如果省略本参数，则提示用户选择链接的更新方式。否则，该参数的取值应为下表中的某个值。

值 含义
0 不更新任何引用。
1 更新外部引用，但不更新远程引用。
2 更新远程引用，但不更新外部引用。
3 同时更新远程引用和外部引用。

如果 Microsoft Excel 正在打开以 WKS、WK1 或 WK3 格式存储的文件并且 UpdateLinks 参数为 2，则 Microsoft Excel 根据与该文件关联的图形创建图表。如果该参数为 0，则不创建任何图表。

ReadOnly Variant 类型，可选。如果该值为 True，则以只读模式打开工作簿。

Format Variant 类型，可选。如果 Microsoft Excel 正在打开一个文本文件，则该参数用于指定分隔字符，如下表所示。如果省略本参数，则使用当前的分隔符。

值 分隔符
1 制表符
2 逗号
3 空格
4 分号
5 没有分隔符
6 自定义字符（请参阅 Delimiter 参数）

Password Variant 类型，可选。该字符串指定打开一个受保护工作簿的密码。如果省略该参数并且指定工作簿已设置密码，则提示用户输入密码。

WriteResPassword Variant 类型，可选。该字符串为一个写保护工作簿的写入权密码。如果省略该参数并且指定工作簿已设置密码，则提示用户输入密码。

IgnoreReadOnlyRecommended Variant 类型，可选。如果该值为 True，则设置 Microsoft Excel 不显示建议只读消息（如果该工作簿以“建议只读”选项保存）。

Origin Variant 类型，可选。如果该文件为文本文件，则该参数用于指示该文件来源于何种操作系统（以便正确映射代码页和回车/换行 (CR/LF)）。可为以下 XlPlatform 常量之一：xlMacintosh、xlWindows 或 xlMSDOS。如果省略本参数，则使用当前操作系统。

Delimiter Variant 类型，可选。如果该文件为文本文件并且 Format 参数为 6，则此参数用于指定用作分隔符的字符。例如，可使用 Chr(9) 代表制表符，使用“,”代表逗号，使用“;”代表分号或者使用自定义字符。如果该参数为字符串，则只使用该字符串的第一个字符。

Editable Variant 类型，可选。如果该文件为 Microsoft Excel 4.0 加载宏，则该参数的值为 True 时可打开该加载宏以便在窗口中看到。如果该参数的值为 False 或者省略该参数，则该加载宏以隐藏方式打开，并且无法设为可见。本选项不能应用于由 Microsoft Excel 5.0 或更高版本的 Microsoft Excel 创建的加载宏。如果该文件是 Excel 模板，则参数的值为 True 时，会打开指定模板用于编辑。参数为 False 时，可根据指定模板打开新的工作簿。默认值为 False。

Notify Variant 类型，可选。当该文件不能以可读写模式打开时，如果该参数的值为 True，则可将该文件添加到文件通知列表。Microsoft Excel 将以只读模式打开该文件并轮询文件通知列表，当文件通知列表中的该文件可用时通知用户。如果该参数的值为 False 或省略该参数，则不请求任何通知，并且不能打开任何不可用的文件。

Converter Variant 类型，可选。打开文件时试用的第一个文件转换器的索引号。首先使用的是指定的文件转换器：如果该转换器不能识别此文件，则试用所有的转换器。转换器索引号由 FileConverters 属性返回的转换器行号组成。

AddToMru Variant 类型，可选。如果该值为 True，则将该工作簿添加到最近使用的文件列表中。默认值为 False。

Local Variant 类型，可选。如果该值为 True，则以 Microsoft Excel （包括控制面版设置）的语言保存文件。如果该值为 False（默认值），则以 Visual Basic for Applications (VBA) 的语言保存文件，其中 Visual Basic for Applications (VBA) 为典型安装的美国英语版本，除非 VBA 项目的 Workbooks.Open 来自旧的国际化的 XL5/95 VBA 项目。

CorruptLoad Variant 类型，可选。可为以下常量之一：xlNormalLoad、xlRepairFile 和 xlExtractData。如果未指定任何值，则默认值通常为普通状态，但如果 Excel 已尝试打开该文件，则可以是安全加载或数据恢复状态。首选值为普通状态。如果 Excel 在打开文件时停止操作，则为安全加载状态。如果 Excel 再次停止操作，则为数据恢复状态。

应用于 RecentFile 对象的 Open 方法。

打开一个最近使用的工作簿。

expression.Open
expression 必选。该表达式返回一个 RecentFiles 对象。

示例
本示例打开 Analysis.xls 工作簿，然后运行 Auto_Open 宏。

Workbooks.Open "ANALYSIS.XLS"
ActiveWorkbook.RunAutoMacros xlAutoOpen

H. VBA合并工作表中保存文件和如何改成路径选择

用Application.GetSaveAsFilename方法：

sFilePath=Application.GetSaveAsFilename(filefilter:="Excel工作簿,*.xlsx,Excel97-2003工作簿,*.xls,文本文件,*.txt")

会弹出Excel的另存为对话框，用户输入文件名后，按下确定会返回文件的绝对路径，按下取消按钮则返回False

所以

If sFilePath & "" = "" Then End 这句要改为

IfsFilePath&""="False"ThenEnd

I. vba 文件相对路径问题

Sub 宏1()
mypath = ActiveWorkbook.Path
mypath = Left(mypath, InStrRev(mypath, "\") - 1)
MsgBox mypath
End Sub

J. 请问高人 vba中 选择文件的路径，和文件名 放在哪个控件中 怎么实现谢谢你

二楼的回答文不对题，正解 是 在部件里应用 通用对话框控件，然后就和在vb6.0中那样使用通用对话框，可以任意选择文件路径和文件名