帖子: 4
主題: 3
精華: 0
積分: 8
點名: 0
作業系統: XP
軟體版本: Office2007
閱讀權限: 10
性別: 男
註冊時間: 2010-9-7
最後登錄: 2017-3-23

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2010-9-7 09:20 | 只看該作者

Excel VBA 建立文字檔

各位先進，小弟有的問題想請教一下
我想在Excel中運用VBA寫出下列的文字,並在欄位中輸入可以變更的文字
例如：在A1欄位中輸入p8p67後按下確認鍵後就會建立一個txt檔(或是文字檔)

~ Update `getnewdir` `new_dir_input` \
`p8p67-pre`
~ Activate `getnewdir` `OK_button`
~ Activate `file_open` `Open`
!%CISuccessfully changed to D:\p8p67-pre directory.
1 `Assembly`
~ Input `new` `InputPanel1` \
`p8p67-pre`
~ Update `new` `InputPanel1` \
`p8p67-pre`
~ Activate `new` `OK`

!01-Sep-10 11:41:38 Start D:\p8p67-pre\p8p67-pre.asm.1
!01-Sep-10 11:41:38 End D:\p8p67-pre\p8p67-pre.asm.1

若我在A1欄位中輸入p8p58的話則會建立如下

~ Update `getnewdir` `new_dir_input` \
`p8p58-pre`
~ Activate `getnewdir` `OK_button`
~ Activate `file_open` `Open`
!%CISuccessfully changed to D:\p8p58-pre directory.
1 `Assembly`
~ Input `new` `InputPanel1` \
`p8p58-pre`
~ Update `new` `InputPanel1` \
`p8p58-pre`
~ Activate `new` `OK`

!01-Sep-10 11:41:38 Start D:\p8p58-pre\p8p58-pre.asm.1
!01-Sep-10 11:41:38 End D:\p8p58-pre\p8p58-pre.asm.1

是否能夠這樣做？？

樓主熱帖

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2010-9-7 10:23 | 只看該作者

這些亂七八糟的字符無法放在程式碼中，建議放在儲存格中，執行程式時以尋找取代方式改變須改變的字符，如p8p67，再寫入文字檔。

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 42
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-17

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2010-9-7 18:22 | 只看該作者

回復 1# hochoc

Sub nn()
mystr = "~ Update `getnewdir` `new_dir_input` \" & Chr(10) & _
"`" & [A1] & "`" & Chr(10) & _
"~ Activate `getnewdir` `OK_button`" & Chr(10) & _
"~ Activate `file_open` `Open`" & Chr(10) & _
"!%CISuccessfully changed to D:\" & [A1] & " directory." & Chr(10) & _
"1 `Assembly`" & Chr(10) & _
"~ Input `new` `InputPanel1` \" & Chr(10) & _
"`" & [A1] & "`" & Chr(10) & _
"~ Update `new` `InputPanel1` \" & Chr(10) & _
"`" & [A1] & "`" & Chr(10) & _
"~ Activate `new` `OK`" & Chr(10) & _
"!01-Sep-10 11:41:38 Start D:\" & [A1] & "\" & [A1] & ".asm.1" & Chr(10) & _
"!01-Sep-10 11:41:38 End D:\" & [A1] & "\" & [A1] & ".asm.1"
Open "E:\TESTFILE.txt" For Output As #1 '輸出檔名自行修改
For Each a In Split(mystr, Chr(10))
Print #1, a
Next
Close #1
End Sub

複製代碼

學海無涯_不恥下問

TOP

hochoc

小學生 Rank: 1

帖子: 4
主題: 3
精華: 0
積分: 8
點名: 0
作業系統: XP
軟體版本: Office2007
閱讀權限: 10
性別: 男
註冊時間: 2010-9-7
最後登錄: 2017-3-23

4^#

發表於 2010-9-7 19:24 | 只看該作者

本帖最後由 hochoc 於 2010-9-7 19:32 編輯

H哥,你好
假如如果我有一千多條像這樣的行列文字，當我運用你上述的方法
會出現"換行接續符號過多"的視窗
小弟在想，是否也可以用Notepad(記事本)中的取代功能，在Excel VBA中寫出程式
例如有固定字眼可以找出來，在Excel欄位中輸入所要變更的字眼做取代的做作
小弟學淺，請不另吝教導，謝謝！！
不好意思，在補上附件
附件中有p8p67-pre及xxxxx-xxx是固定字眼

Test.rar (876 Bytes)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 42
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-2-17

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2010-9-7 19:46 | 只看該作者

回復 4# hochoc

樣本.txt的內容用特定字先將要用A1取代的字元取代
~ Update `getnewdir` `new_dir_input` \
`儲存格內容`
~ Activate `getnewdir` `OK_button`
~ Activate `file_open` `Open`
!%CISuccessfully changed to D:\儲存格內容 directory.
1 `Assembly`
~ Input `new` `InputPanel1` \
`儲存格內容`
~ Update `new` `InputPanel1` \
`儲存格內容`
~ Activate `new` `OK`

!01-Sep-10 11:41:38 Start D:\儲存格內容\儲存格內容.asm.1
!01-Sep-10 11:41:38 End D:\儲存格內容\儲存格內容.asm.1

Sub nn()
Open "C:\樣本.txt" For Input As #1 '樣本的完整路徑
Open "C:\完成.txt" For Output As #2 '輸出檔案的完整路徑
Do Until EOF(1)
Input #1, mystr
Print #2, Replace(mystr, "儲存格內容", [A1])
Loop
Close #1
Close #2
End Sub

複製代碼

學海無涯_不恥下問

TOP