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中那樣使用通用對話框,可以任意選擇文件路徑和文件名