作者osiris901 (魚)
看板Visual_Basic
標題[VBA ] Excel輸出完txt..後如何開啟
時間Wed Oct 10 11:22:53 2012
請益...
我已經可以把工作表輸出到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
1F：推 zhangzhixuan:你試試看用錄製巨集在做開啟的動作 結束巨集後 10/10 12:54
2F：→ zhangzhixuan:在去看指令碼 也許對您會有幫助@@" 10/10 12:55
3F：→ MOONRAKER:你的filename前面加上路徑 後面也用這個filename打開 10/10 18:13
4F：→ MOONRAKER:比如說 "D:\" & filename 這樣不就結了 -_- 10/10 18:13
5F：→ osiris901:好..我試試看..謝謝 10/11 00:21
6F：推 ClubT:抓目前EXCEL的路徑 ThisWorkbook.Path 10/11 12:59