※ 引述《sorry0920 (do something right)》之銘言：
: 成功了!!!太感謝了
: 因為他取的是執行中的檔案名稱
: 現在他現在跑出來的檔名是 85.xls 的txt檔
: 請問有辦法只取前面的數字85部分而不要.xls嗎??
: 抱歉~~初學者問題很多@@~~
: ※ 引述《menth (曼秀)》之銘言：
: : 應該是因為你把tt也包含在雙引號裡面，他被視為固定的名稱tt。
: : 如果把它改成：
: : Open ThisWorkbook.Path & "\" & tt & ".txt" For Output As #1
: : 應該可以解決。你可以試試看。
可以利用replace。巨集如下：
Dim tt as string
tt= Application.ActiveWorkbook.Name
tt= Replace(tt, ".xls", "", , , 1)
Open ThisWorkbook.Path & "\" & tt & ".txt" For Output As #1
Close #1
將你找到檔名中的".xls"刪掉，這樣就可以有你要的了。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.209.145.3
※ 編輯: menth 來自: 210.209.145.3 (07/09 23:11)