excel - Apple スクリプト - 韓国語のファイル名を Unicode で保存する

Question

複数の Excel ファイルを .csv ファイルに保存しようとしています。また、各Excelファイルの名前を各ファイルのセルとして入れたいです。問題は、私のファイル名が韓国語で、ファイル内に名前を入れると文字が壊れることです。私が思いついた解決策は、韓国語のファイル名をユニコードに変換することですが、その方法がわかりませんでした。以下は私が使用するコードです。ありがとう。

set theFolder to choose folder with prompt "Choose the folder that contains your Excel files"
tell application "Finder" to set theFiles to (files of theFolder)
set fileCount to count theFiles
repeat with i from 1 to fileCount
set fName to text 1 thru -5 of ((name of item i of theFiles) as text)
if ((name of item i of theFiles) as text) ends with ".xls" then
    set tName to (theFolder as text) & fName & ".csv"
    tell application "Microsoft Excel"
        activate
        open (item i of theFiles) as text
        insert into range column 1 of active sheet
        set lastcell to last cell of used range of active sheet
        set value of range ("A1:A" & first row index of lastcell) of active sheet to fName
        save fName in tName as CSV file format
        close active workbook without saving
    end tell
end if
end repeat