在Mac Excel VBA中使用AppleScript生成UTF8文件

Dim script As String
script = "do shell script ""<AppleScript命令>"""
Shell script

set theFilePath to "<文件路径>"
set theContent to "<文件内容>"

set theFile to open for access theFilePath with write permission
set eof of theFile to 0
write theContent to theFile as «class utf8»
close access theFile

Sub GenerateUTF8File()
    Dim script As String
    script = "do shell script ""set theFilePath to """"<文件路径>"""" & return & " & _
             """set theContent to """"<文件内容>"""" & return & " & _
             """set theFile to open for access theFilePath with write permission" & return & " & _
             """set eof of theFile to 0" & return & " & _
             """write theContent to theFile as «class utf8»" & return & " & _
             """close access theFile"""

    Shell script
End Sub

Sub Test()
    GenerateUTF8File
End Sub