改用VBA寫入txt file或許能解決你的問題
不是用你指定的方法 @@
open thisworkbook.path & "\" & "text.txt" for output as #5
for i = 1 to 20
print #5 ,worksheets("sheet1").range(cells(i,"A"),cells(i,"D")).value
next i
--------------------
方法拙劣，
待各位高手指正...
※ 引述《Amao (夢遺在愛琴海)》之銘言：
: 小弟想以Shell來操作外部程式 目前做的很簡單 只是要開txt檔
: ex.
: Sub Shelltxt()
: Shell "F:\WINDOWS\system32\notepad.exe"
: End sub
: 沒錯 這樣是能打開 exe檔 但我後續要做的動作是
: 將Sheet1的Range("A1: D20") 複製貼到 txt檔中
: 然後再將txt檔存檔存到某一個我指定的路徑 (ex. C:\temp )
: 請問該如何操作呢?
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.119.235.181