首頁猿問 Excel...

Excel VBA如何使用默認(rèn)應(yīng)用程序打開文件

Html/CSS

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

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

查看完整描述

3 回答

慕慕森

TA貢獻(xiàn)1856條經(jīng)驗(yàn) 獲得超17個(gè)贊

這適用于我在Excel和Word中

Sub runit()

Dim Shex As Object

Set Shex = CreateObject("Shell.Application")

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

Shex.Open (tgtfile)

End Sub

或...按照下面的Expenzor的評(píng)論

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

反對(duì) 回復(fù) 2019-11-02

MMTTMM

TA貢獻(xiàn)1869條經(jīng)驗(yàn) 獲得超4個(gè)贊

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

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

反對(duì) 回復(fù) 2019-11-02

3 回答
0 關(guān)注
1521 瀏覽

關(guān)注

第七色在线视频,2021少妇久久久久久久久久,亚洲欧洲精品成人久久av18,亚洲国产精品特色大片观看完整版,孙宇晨将参加特朗普的晚宴

Excel VBA如何使用默認(rèn)應(yīng)用程序打開文件

Excel VBA如何使用默認(rèn)應(yīng)用程序打開文件

3 回答

相關(guān)問題推薦

添加回答

第七色在线视频,2021少妇久久久久久久久久,亚洲欧洲精品成人久久av18,亚洲国产精品特色大片观看完整版,孙宇晨将参加特朗普的晚宴

熱搜

最近搜索清空

Excel VBA如何使用默認(rèn)應(yīng)用程序打開文件

Excel VBA如何使用默認(rèn)應(yīng)用程序打開文件

3 回答

相關(guān)問題推薦

添加回答