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

看板Visual_Basic作者osiris901 (魚)時間13年前 (2012/10/10 11:22)推噓2(2推 0噓 4→)

留言6則, 4人參與討論串1/1

請益... 我已經可以把工作表輸出到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

10/10 12:54, , 1^F

10/10 12:54, 1^F

→

zhangzhixuan

10/10 12:55, , 2^F

10/10 12:55, 2^F

→

MOONRAKER

10/10 18:13, , 3^F

10/10 18:13, 3^F