推 sunev:推自問自答 XD 07/12 08:32
自問自答一下
clc
clear
e=actxserver('excel.application');
e.visible=1
eW=e.Workbooks;
eF=eW.Open('已存在的excel檔完整檔名');
eS=eF.ActiveSheet;
eS.Range('A1:Z1').EntireColumn.NumberFormat='@'
eF.Save
eF.Close
PS:若想知道其他格式該怎麼寫成字串，可先在Excel將該儲存格改成你希望的格式
再利用eS.Range('該儲存格位置').NumberFormat去查
希望對其他人有幫助
thanks
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 101.13.52.247