【Excel VBA】データ読み込み→UTF8かつ改行コードLFで出力

Question

ADODB.Streamを使ったファイル入出力です。

Set ado = CreateObject(“ADODB.Stream”)
ado.open
ado.Charger = “UTF-8”
ado.LineSeparator = adLF

などと定義した後…
rng に、Variant型で、シートと範囲を指定します。
ここまではなんとかなっていて…

ado. WriteText rng 
ado.SaveToFille outFileName

でエラーがでます。

outFileName、出力先はフルパス（パス部分は変化、ファイル名はセルの値で指定）のため、その時々で変化するので定数ではないです。今はString型で定義してます。

いきづまっています。
改善点等を教えてください

Answer 1

希望されることは、この様な内容でしょうか？
UTF8/LF改行で作成されました。
尚、参照設定でADOオブジェクトを追加しないと定義部エラーになります。
また、定義後にOption Explicitで、コーディングミスも少なくなります。

Sub Test_Sample_Miniature()
  
    Dim outFileName As String
    Dim ado As ADODB.Stream
    Dim Rng As String
    
    outFileName = ThisWorkbook.Path & "\OutUTF8.txt"

    Set ado = CreateObject("ADODB.Stream")
    ado.Charset = "UTF-8"
    ado.LineSeparator = adLF
    ado.Open
    
    ado.WriteText "123456789", adWriteLine
    ado.WriteText "abcabcabc", adWriteLine
    ado.WriteText "あいうえお", adWriteLine
    'ado. WriteText rng
    ado.SaveToFile outFileName
    
End Sub

rngは適当な文字列をセットされるのでしょうか？

Answer 2

とりあえず、

' ado.Charger = “UTF-8”
  ado.Charset = "UTF-8" 


' ado.SaveToFille outFileName
  ado.SaveToFile outFileName

は気になるとして、 rng の中身が気になります。
Variant型といいつつ実質がRange型なのだとしたら、
今の書き方だと成立しないと思います。

Comments

[MK-3108]

スペルミスごめんなさい。
実は、Range型だとしたら、どのように書けば成立するのでしょうか？

[jinoji]

ado.WriteText WorksheetFunction.TextJoin("", False, rng) とかですかね。