Mathematica 教學 Excel檔簡單轉換

(* 設定目錄 *)

home=SetDirectory["~/Temp"];

(* 新增目錄 *)

CreateDirectory["new"];

(* 將副檔名為xls的檔案取出 *)

fn=FileNames["*.xls"];

exceltrans[file_String,cell1_String,cell2_String]:=Block[{data},

(* 資料輸入 *)
data=Import[file,"Data"][[1]];

(* 加上自訂字元 *)

data[[1]]=cell2<>#&/@data[[1]];
data[[1,1]]=cell1;

(* 資料輸出 *)

Export[home<>"/new/"<>StringReplace[file,".xls"->""]<>"-head.xls",data]
]

(* 全部轉換 *)

Map[exceltrans[#,"Name","Score"]&,fn]

Tags: Mathematica 教學, Teaching

• 編輯文章
• 此文章網址
• 轉寄此文章
• 目前有0 意見