作者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