vba怎麼打開excel文件路徑

① 在VBA中，怎樣打開或者調用另一個EXCEL文件

ThisWorkbook屬性可以返回一個 Workbook 對象，該對象代表當前宏代碼運行的工作簿，而Path屬性可以返迴文件的路徑這樣就可以用在Workbook_Open事件中加入下面的代碼打開「報表.xls」了。
Private Sub Workbook_Open()
Dim FN As String
FN = ThisWorkbook.Path & "\報表.xls"
If Len(Dir(FN)) = 0 Then
MsgBox "找不到文件：" & vbCrLf & FN, vbExclamation, "錯誤"
Else
Workbooks.Open Filename:=ThisWorkbook.Path & "\報表.xls"
End If
End Sub
而要打開一個文件夾里所有的文件，就需要用到FileSystemObject 對象，下面這個例子是在一個新工作表中列出指定文件夾內所有xls文件的實例：
Sub ShowAllXlsFile()
Dim GetFile As String, GetPFN As String, GetExt As String
Dim Fso, PF, AF, FN, i, j
GetFile = Application.GetOpenFilename("Excel 文件 (*.xls), *.xls", , "請選擇文件夾所在的任意一文件")
If CStr(GetFile) <> "False" Then
Sheets.Add
i = 0
j = 0
Set Fso = CreateObject("Scripting.FileSystemObject")
GetPF = Fso.GetParentFolderName(GetFile) & "\"
Set PF = Fso.GetFolder(GetPF)
Set AF = PF.Files
For Each FN In AF
j = j + 1
GetExt = Fso.GetExtensionName(FN)
If GetExt = "xls" Then
i = i + 1
Cells(i, 1) = FN.Name
End If
Next
MsgBox "總計所有類型文件" & j & "個！" & vbCrLf & "總計Excel文件" & i & "個！"
Else
MsgBox "沒有選擇文件夾！"
End If
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")

③ VBA如何獲取當前EXCEL文件的路徑

1、首先打來開Excel數據表，在開發自工具中打開VBA編輯器。

④ excel在vba中如何用單元格指定路徑，如：sheet1中在A1輸入路徑或者路徑文件，vba中如何讀取該路徑

不知道樓主想表達啥，路徑值在代碼里都是字元值，一個路徑就是一個字元串。比如讀取你的excel文件路徑：
sub test()
a=thisworkbook.path
end sub
其中a就是一字元串，也即是你的excel文件路徑。
再比如你想打開D:\123\456.xls (d盤的123文件夾的456.xls文件)
sub test1()
set book=workbooks.open("D:\123\456.xls")
end sub
其中D:\123\456.xls 就是一字元串。
希望能夠幫到你。

⑤ 你好侯哥：用VBA 編寫一段可以指定用戶、指定路徑才能打開EXCEL文件方便分享一下嗎

可以在工作簿上寫Open事件代碼，方法是按ALT+F11、CTRL+R，雙擊ThisWorkbook粘貼程序，最後如下圖：

程序代碼：

Private Sub Workbook_Open()

If Me.FullName <> "c:Temp mp.xlsm" Or Application.UserName <> "admin" Then Me.Close

End Sub

程序中的文件路徑和用戶名請自行修改。

⑥ 鍦╡xcel琛ㄦ牸涓浣跨敤vba鍑芥暟鎵撳紑宸ヤ綔鍚

excel涓鍙浠ヤ嬌鐢╲ba鏉ユ墦寮宸ヤ綔鍚勭殑錛屼笅闈㈠皬緙栧氨涓哄ぇ瀹惰︾粏浠嬬粛涓涓嬶紝鏈夐渶瑕佺殑鏈嬪弸鍙浠ュ弬鑰冩湰鏂囷紒

姝ラ

1銆侀栧厛鎴戜滑鎵撳紑涓涓宸ヤ綔鏍瘋〃浣滀負渚嬪瓙銆

2銆佹垜浠浣跨敤alt+f11緇勫悎蹇鎹烽敭榪涘叆vbe緙栬緫鍣錛屾彃鍏ヤ竴涓鏂扮殑妯″潡錛屽苟鍦ㄦā鍧椾腑杈撳叆浠ヤ笅浠ｇ爜錛

Sub openWorkbook1()

Workbooks.Open 闇鎵撳紑鏂囦歡鐨勮礬寰刓鏂囦歡鍚

End Sub

3銆佺湅浠ｇ爜鍐欑殑寰堟槑鐧戒簡錛屾瘮濡傛垜瑕佹墦寮妗岄潰涓婄殑涓涓宸ヤ綔鍚勶紝閭ｄ箞鎴戜滑灝辨槸杈撳叆鏂囦歡鐨勮礬寰勶紝鏌ユ壘璺寰勭殑鏂瑰紡鏄鍦ㄦ枃浠朵笂鐐瑰嚮榧犳爣鍙抽敭錛岀劧鍚庨夋嫨灞炴ц彍鍗曘傛爣娉ㄧ殑浣嶇疆澶勫嵆鏂囦歡鐨勮礬寰勩

4銆佺劧鍚庝嬌鐢ㄦ枩鏉犲垎闅旀枃浠跺悕銆傛枃浠跺悕鍗沖浘鐗囦腑鎸囩ず鎵鍦ㄧ殑鍦版柟銆傛枃浠跺悕鍜屾枃浠惰礬寰勯兘鍙浠ヤ嬌鐢ㄩ紶鏍囬夋嫨騫跺嶅埗綺樿創銆

5銆佽緭鍏ュ畬鏁寸殑浠ｇ爜

Workbooks.Open C:UsersjohnDesktop鏂板緩 Microsoft Excel 宸ヤ綔琛.xlsx

鐒跺悗榪愯岋紝鍒欏彲浠ユ墦寮榪欎釜宸ヤ綔鍚勩傚ぇ瀹舵敞鎰忓埌鎷鍙鋒槸涓嶉渶瑕佺殑錛岀洿鎺ヨ緭鍏ユ枃浠惰礬寰勫姞鍚嶇О灝卞彲浠ヤ簡銆

6銆佽繖閲岄渶瑕佹敞鎰忕殑鏄錛宱pen鏂規硶鉶界劧鍙浠ユ墦寮鍏朵粬鐨勬枃浠訛紝浣嗘槸瀹冩槸灞炰簬workbooks榪欎釜瀵硅薄錛屾墍浠ユ墦寮鏂囦歡鐨勬柟寮忓皢浼氭槸浠excel宸ヤ綔鍚勭殑鏂瑰紡鎵撳紑錛屾墍浠ュ彧鑳芥墦寮excel鏂囦歡錛岃屼笉鑳芥墦寮鍏朵粬鏍煎紡鐨勬枃浠躲

⑦ excel中如何用vba打開一個相對路徑下的資料

先定義路徑x0dx0a1.當前路徑：x0dx0apath = Application.ThisWorkbook.pathx0dx0a然後，打開時，加入其餘路徑，和文件名。x0dx0aWorkbooks.Open filename:= _x0dx0a path & "\model\" & "book1.xls", Notify:=False x0dx0a2.同級別文件夾路徑：x0dx0aSub hjs111()x0dx0at = ThisWorkbook.path '當前文件的路徑x0dx0aa = Split(t, "\") '以 \ 為分割，把t 保存為數組ax0dx0apath0= Replace(t, a(UBound(a)), "") '把字元串t中的字元串（a(UBound(a)）替換為空。x0dx0a 'path0 & "\B\" & "book1.xls" 這下明白了吧。x0dx0aEnd Subx0dx0ax0dx0a例如：若 t= C:\Documents and Settings\HackEr\桌面x0dx0a 則 數組a即為 元素分別為 C: Documents and Settings HackEr 桌面 的數組x0dx0a a(UBound(a) 為a（3）即 桌面，UBound(a)為 a數組的上界 3 x0dx0a Replace(t, a(UBound(a)), "") 即為 把t 中的第四個元素 桌面 替換 為空。