Dim fp As New ADODB.Stream
'Dim fp As ADODB.Stream
'Set fp = New ADODB.Stream
With fp
 .Type = adTypeText
 .Charset = "UTF-8"
 .LineSeparator = adLF 'LFのみ
End With

fp.WriteText "出力したい文字列", adWriteLine
fp.SaveToFile ActiveWorkbook.Path & "\temp.txt", adSaveCreateOverWrite
その中の「Microsoft ActiveX Data Objects 2.8 Library」にチェックを入れて「OK」をクリックする。
comments (2)


sharenmcandrews.hatenablog.com | 2017/07/31 04:13 PM
Appreciating the commitment you put into your blog and detailed information you offer.

It's awesome to come across a blog every
once in a while that isn't the same old rehashed
information. Great read! I've bookmarked your site and
I'm adding your RSS feeds to my Google account.
Can you have an operation to make you taller? | 2017/07/29 05:52 AM
Greetings! I've been following your weblog for a while now and finally
got the bravery to go ahead and give you a shout out from Dallas Texas!
Just wanted to mention keep up the great work!

Comment Form