Хоть и не неактуально, но не упомянули ещё вариант - генерить файл csv как текст макросом, на лету перекодируя строки в UTF-8. Код конвертера можно найти в сети, например (проверено):  
 
Помогите чайнику!  
Есть переменная типа стринг, в ней есть русские буквы, как сохранить её в файл(temp.txt), кодировка UTF-8 обязательна  
 
Option Explicit  
 
Private Declare Function MultiByteToWideChar Lib "kernel32.dll" (ByVal CodePage As Long, _  
   ByVal dwFlags As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, _  
   ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long  
Private Declare Function WideCharToMultiByte Lib "kernel32.dll" (ByVal CodePage As Long, _  
   ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, _  
   ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, _  
   ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long  
 
Public Function EncodeUTF8(strSrc As String) As String  
   Dim nLen As Long  
   Dim strDst As String  
   Dim strRet As String  
   Dim nRet As Long  
   Dim p As Long  
     
   nLen = Len(strSrc)  
   strDst = String(nLen * 2, Chr(0))  
   strRet = String(nLen * 2, Chr(0))  
   p = StrPtr(strDst)  
   nRet = MultiByteToWideChar(1251, &H1, strSrc, nLen, p, nLen)  
   nRet = WideCharToMultiByte(65001, 0, p, nRet, StrPtr(strRet), nLen * 2, ByVal 0, 0)  
   EncodeUTF8 = Left$(StrConv(strRet, vbUnicode), nRet)  
End Function  
 
Sub WriteToFile()  
Dim MyFile1$  
Dim fso  As Object  
Dim Textfile  As Object  
Dim strUtf$  
 
MyFile1 = "c:\Trans.txt"  
Set fso = CreateObject("Scripting.FilesystemObject")  
Set Textfile = fso.OpenTextFile(MyFile1, 2, True)  
 
Textfile.WriteLine "encoding=""UTF-8"""  
strUtf = EncodeUTF8("Текст с кириллицей")  
Textfile.WriteLine strUtf  
Textfile.Close  
 
End Sub