返回列表 上一主題 發帖

Excel VBA 建立 文字檔

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2010-9-7 18:22 | 顯示全部帖子
回復 1# hochoc
  1. Sub nn()
  2. mystr = "~ Update `getnewdir` `new_dir_input` \" & Chr(10) & _
  3. "`" & [A1] & "`" & Chr(10) & _
  4. "~ Activate `getnewdir` `OK_button`" & Chr(10) & _
  5. "~ Activate `file_open` `Open`" & Chr(10) & _
  6. "!%CISuccessfully changed to D:\" & [A1] & " directory." & Chr(10) & _
  7. "1 `Assembly`" & Chr(10) & _
  8. "~ Input `new` `InputPanel1` \" & Chr(10) & _
  9. "`" & [A1] & "`" & Chr(10) & _
  10. "~ Update `new` `InputPanel1` \" & Chr(10) & _
  11. "`" & [A1] & "`" & Chr(10) & _
  12. "~ Activate `new` `OK`" & Chr(10) & _
  13. "!01-Sep-10 11:41:38 Start D:\" & [A1] & "\" & [A1] & ".asm.1" & Chr(10) & _
  14. "!01-Sep-10 11:41:38 End D:\" & [A1] & "\" & [A1] & ".asm.1"
  15. Open "E:\TESTFILE.txt" For Output As #1 '輸出檔名自行修改
  16. For Each a In Split(mystr, Chr(10))
  17. Print #1, a
  18. Next
  19. Close #1
  20. End Sub
複製代碼
學海無涯_不恥下問

TOP

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 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
  1. Sub nn()
  2. Open "C:\樣本.txt" For Input As #1 '樣本的完整路徑
  3. Open "C:\完成.txt" For Output As #2 '輸出檔案的完整路徑
  4. Do Until EOF(1)
  5.    Input #1, mystr
  6.    Print #2, Replace(mystr, "儲存格內容", [A1])
  7. Loop
  8. Close #1
  9. Close #2
  10. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題