我試了一下，
你如果先把utf-8轉成unicode，
然後再做寫入excel的動作就可以了，
fso開檔的參數部份設成objfso.opentextfile("your file", 1, true, -1)
-1表以unicode開檔。