已解決430363個問題，去搜搜看，總會有你想問的

Excel VBA如何使用默認應用程序打開文件

首頁猿問 Excel...

Excel VBA如何使用默認應用程序打開文件

Html/CSS

慕無忌1623718 2019-11-02 14:27:01

我想要一個Excel電子表格，該文件在A列中具有文件路徑和名稱。運行宏時，假設應該在用戶計算機上打開A1中指定的文件。該文件可以是.doc，.xls，.txt等...，而不是我的vba需要知道應用程序的完整路徑，我如何讓vba告訴機器“請打開此文件并使用您的應用程序與擴展名相關聯”？我已經發現它可以使用完整路徑：dblShellReturned = Shell("C:\Windows\System32\notepad.exe myfile.txt, vbNormalFocus)我怎樣才能使它與類似的東西一起工作：dblShellReturned = Shell("myfile.txt", vbNormalFocus) ' how do I get this to work先感謝您！

查看完整描述

3 回答

慕慕森

TA貢獻1856條經驗獲得超17個贊

這適用于我在Excel和Word中

Sub runit()

Dim Shex As Object

Set Shex = CreateObject("Shell.Application")

tgtfile = "C:\Nax\dud.txt"

Shex.Open (tgtfile)

End Sub

或...按照下面的Expenzor的評論

CreateObject("Shell.Application").Open("C:\Nax\dud.txt")

反對回復 2019-11-02

MMTTMM

TA貢獻1869條經驗獲得超4個贊

下面的代碼是一個模板。但是，您可能需要將默認（工作）目錄更新為文件的位置。

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _

(ByVal hwnd As Long, ByVal lpszOp As String, _

ByVal lpszFile As String, ByVal lpszParams As String, _

ByVal LpszDir As String, ByVal FsShowCmd As Long) _

Function StartDoc(DocName As String) As Long

Dim Scr_hDC As Long

Scr_hDC = GetDesktopWindow()

StartDoc = ShellExecute(Scr_hDC, "Open", DocName, _

"", "C:\", SW_SHOWNORMAL)

End Function

反對回復 2019-11-02

3 回答
0 關注
1527 瀏覽

關注

亚洲在线久爱草,狠狠天天香蕉网,天天搞日日干久草,伊人亚洲日本欧美

Excel VBA如何使用默認應用程序打開文件

Excel VBA如何使用默認應用程序打開文件

3 回答

相關問題推薦

添加回答

亚洲在线久爱草,狠狠天天香蕉网,天天搞日日干久草,伊人亚洲日本欧美

熱搜

最近搜索清空

Excel VBA如何使用默認應用程序打開文件

Excel VBA如何使用默認應用程序打開文件

3 回答

相關問題推薦

添加回答