[VBA ] Excel輸出完txt..後如何開啟

[osiris901 (魚)]

請益...

我已經可以把工作表輸出到txt檔案了

現在還想再繼續做用VBA方式，開啟這個存好的檔案

請問該怎麼下呢??

因為我的檔案是隨著Excel位置一起產生的，所以不知道路徑該怎麼給
我試過兩個方式，但都失敗
OpenTexeFile     但是要指定路徑..
Shell(notepad.ext) 也要指定路徑

以下是我的檔案...再請高手幫忙@@

Private Sub CommandButton1_Click()
    myDir = ThisWorkbook.Path
    ChDrive myDir
    ChDir myDir
    Set myRng = Range("F1").CurrentRegion
    Dim Cell1 As String
    Dim filename As String

    filename = Format(Cells(3, "B")) & ".txt"

    Open filename For Output As #1

    For i = 1 To 40

        Cell1 = myRng.Cells(i, 1).Text
        Print #1, Cell1

    Next
    Close #1

    MsgBox ("存檔成功! ")


End Sub

--

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 123.194.109.214
推 zhangzhixuan:你試試看用錄製巨集在做開啟的動作 結束巨集後
→ zhangzhixuan:在去看指令碼  也許對您會有幫助@@"
→ MOONRAKER:你的filename前面加上路徑 後面也用這個filename打開
→ MOONRAKER:比如說 "D:\" & filename 這樣不就結了 -_-
→ osiris901:好..我試試看..謝謝
推 ClubT:抓目前EXCEL的路徑 ThisWorkbook.Path