① 如何在Excel中用VBA打開指定的文件夾
打開E盤
Shell "explorer.exe " & "E:\", vbNormalFocus
② excel宏命令如何打開另一個excel文件
Function OpenExcelFile(sPath As String, ByVal sFileName As String, bDisplay As Boolean, sPwd As String) As Integer
'打開Excel文件
'Ver 1.05
'完成時間：2007.12.01
'設計：智能Excel 網站
'參數說明：
'sPath:文件絕對路徑；sFileName:Excel文件名；bDisplay:True顯示錯誤信息；sPwd:文件打開密碼
'返回值：-1:同名文件已經打開；-2:文件不存在或密碼錯誤；0:成功打開；1:文件已經被打開
Dim bOpen As Boolean
Dim sFullName As String
On Error Resume Next
If InStr(LCase(sFileName), ".xls") = 0 Then sFileName = sFileName & ".xls"
sFullName = Workbooks(sFileName).FullName
'檢查是否已經打開同名的Excel文件
'如果有sFullName不為空
On Error GoTo 0
bOpen = False
If sFullName <> "" Then
If LCase(sFullName) = LCase(sPath & "\" & sFileName) Then
bOpen = True
'判斷已經打開的同名文件是否本次需要打開的文件
OpenExcelFile = 1
'文件已經被打開
Else
If bDisplay Then
MsgBox "請首先關閉「" & sFileName & "」文件！" & Chr(13) & "不能同時打開同名文件，這是Excel的規定！", vbOKOnly + vbExclamation, "文件的打開錯誤"
End If
bOpen = True
OpenExcelFile = -1
'不能同時打開同名文件，這是Excel的規定
End If
End If
If Not bOpen Then
On Error GoTo errOpen
Workbooks.Open Filename:=sPath & "\" & sFileName, Password:=sPwd
On Error GoTo 0
OpenExcelFile = 0
'成功打開文件
End If
Exit Function
errOpen:
If bDisplay Then MsgBox Err.Description, vbOKOnly + vbExclamation, "文件的打開錯誤"
OpenExcelFile = -2
'文件不存在或密碼錯誤
On Error GoTo 0
End Function
③ excel中如何實現用VBA的ope函數打開某個txt文件
open打開文件需要有個完全的路徑名稱,
建議先使用GetOpenFilename獲取需要打開的文件全名稱.
再使用open進行文件流操作.
dim count as long
Dim Filt As String
Dim FilterIndex As Integer
Dim Title As String
Dim File As Variant
Dim fText As String
'創建文件篩選列表
Filt = "Text Files (*.txt),*.txt,"
'默認顯示*.*
FilterIndex = 1
'設置對話框標題
Title = "打開文本文件"
'獲取文件路徑以及文件名
File = Application.GetOpenFilename _
(FileFilter:=Filt, _
FilterIndex:=FilterIndex, _
Title:=Title)
'如果取消對話框則退出
If File = False Then
MsgBox "您未選擇文件"
Exit Sub
End If
'excel獲取文本數據
Open File For Input As #1
count = 0
Do While Not EOF(1)
count = count + 1
Line Input #1, fText
Worksheets("Sheet1").Cells(count, 1).Value = fText
Loop
Close #1
④ vba怎樣打開指定路徑的excel文件
打開文件如下：Workbooks.Open ("C:\對賬單\對帳單.xlsx")這里你可以把「C:\對賬單\」換成你的絕對路徑，你可以用：a = ThisWorkbook.Patha = ThisWorkbook.PathWorkbooks.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打開指定路徑下的文件夾
將當前文件夾設為默認即可。
在你的語句前面加上下面兩句：
ChDir ThisWorkbook.Path
ChDrive ThisWorkbook.Path