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]BIG5 字集判斷

前言，不是每個系統都支援UTF-8 UTF8的系統但要把資料拋入BIG5的系統內，如何讓使用者一看就知道字會有問題。 可以使用下面這段程式碼去判斷 請注意，這裡不另外處理補完計畫的字是否正常顯示 程式構想:http://blog.darkthread.net/blogs/darkthreadtw/archive/2007/04/21/733.aspx 原本是想說用字碼去判斷，但怪怪的 SOURSE: http://zh.wikipedia.org/wiki/%E5%A4%A7%E4%BA%94%E7%A2%BC //BIG5有定義的字 String testString = "峰"; //BIG5沒定義的UTF-8字集 //String testString = "峯"; //罕用字(3Byte呈現一個字UTF8字碼217E5) //String testString = "𡟥"; //BIUG5 自訂字FA40等自定義字集 //String testString = "";     String[] stringArray = testString.split("");     for (int i = 1; i < stringArray.length; i++) {       System.out.println(stringArray[i]);       //使用BIG5編碼再用UTF-8還原若有錯誤會顯示問號       String str = new String(stringArray[i].getBytes("BIG5"), "UTF-8");       if(str.equals("?")){         System.out.println(stringArray[i] + "非BIG5字集");       }     }
閱讀完整內容

[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"); 才會正確。
閱讀完整內容

[javascript]當月第一天、當月最後一天

 //取當日  var startdate = new Date(); //設定日期為第一天 startdate.setDate(1); //取當日  var enddate = new Date(); //將月份移至下個月份  enddate.setMonth(enddate.getMonth()+1); //設定為下個月份的第一天  enddate.setDate(1);  //將日期-1為當月的最後一天 enddate.setDate(enddate.getDate()-1);
閱讀完整內容