[算表] 單一工作表內容分存多個txt

看板Office作者andy0626 (LKH)時間10年前 (2015/07/08 05:02)推噓0(0推 0噓 3→)

留言3則, 2人參與討論串1/1

軟體:Excel 版本:2013 A B C D E F ...... 1 4000 120W 4000 150W 2 vari... vari... 3 zone... zone... 4 0 143.21 0 560.112 5 1 166.48 1 865 6 2 .... 2 .... 我的資料大概長這個樣子我想要把A1+B1、D1+E1的內容當做檔名然後4000 120W.txt存的是A2:B81的內容，4000 150W.txt存的是D2:E81的內容往右以此類推到CD1+CE1 然後希望可以一次執行做到底，和指定路徑大概兩三天前才知道可以用excel巨集來做一堆重複的工作原本是用錄製再修改複製貼上的方式來做，但是另存新檔無法錄下來 Google跟爬文找到一些東西但是想寫出來就一下卡這裡的語法，一下卡那裏的語法感覺與某篇windknife大的內容相近但是看不太懂所以不知道怎麼修直接用也會路徑有錯以下大概是最接近的屍體(改自stack overflow上的發問) -------------- Sub Move() ' ' Move Macro ' Dim filename As Range Set filename = ActiveCell.Range("A1:B1") Sheets("工作表1").Select Range("A2").Select ActiveCell.Range("A1:B80").Select Selection.Copy Workbooks.Add ActiveSheet.Paste ThisWorkbook.saveas "D:\Dropbox\...\...\實驗數據\出圖\" & filename.txt , FileFormat:=xlTextWindows End Sub ---------------- 其他是用open ...for output as #1 再套迴圈print的方法但是都卡在把儲存格內容寫成檔名或是變數、或是saveas路徑的格式不對之類的因為這資料之後還會更新，要重新出一次，覺得手動實在有點費時先謝謝回答的版友了 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.116.31.192 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1436302924.A.A72.html