Excel 多個工作表轉匯 TXT

巨集如下

 Sub Macro1() Dim ws As Worksheet For Each ws In Worksheets ws.Select ActiveWorkbook.SaveAs Filename:=ws.Name & ".txt", FileFormat _ :=xlText, CreateBackup:=False Next End Sub

 來源:https://www.ptt.cc/bbs/Office/M.1228059386.A.081.html

留言

張貼留言

這個網誌中的熱門文章

[java]半型轉全型

半型轉全形沒有現成的code可用，所以要自己寫 有更好版本請提供!!! code: static public String toBigChat(String input) { String q1[] = {"A", "B", "C", "D", "-", "1", "2", "#", "[?]"}; String q2[] = {"Ａ", "Ｂ", "Ｃ", "Ｄ", "－", "１", "２", "＃", "？"}; for (int i = 0; i < 9; i++) { input = input.replaceAll(q1[i], q2[i]); } return input; } q1為需要取代的字串 q2為轉換後的字串 q1與q2必須互相對應 比對的方是我是用比較簡單的兩個陣列 當然你想用json去包一對一的關係也可以 主要的核心在replaceall 其中要注意的是replaceall支援正則表達式 所以在下特殊的字例如^、?、*這些對正則表達式有意含的特殊符號時必須使用[]包起來，才不至於錯誤 另外\在java內要記得是\\ 取代\要下 str.replaceAll("\\\\", "a"); 才會正確。
閱讀完整內容

[API Server]jersey 檔案上傳

1. POM           org.glassfish.jersey.containers       jersey-container-servlet       2.17                  org.glassfish.jersey.containers       jersey-container-servlet-core       2.17               org.glassfish.jersey.media       jersey-media-multipart       2.17     2.上傳網頁 <html>   <head>     <title>TODO supply a title</title>     <meta charset="UTF-8">     <meta name="viewport" content="width=device-width, initial-scale=1.0">   </head>   <body>     <form action="API/file/upload" method="post" enctype="multipart/form-data" >       <p>         Select a file : <input type="file" name="file" />  ...
閱讀完整內容