BOMなしUTF8のファイルを出力したいです。「パラメータが間違っています」とエラーがでます。解決策を教えてください。
オブジェクト作るところからのコードです。
※スマホで質問しているため、一部誤字や文字化けしている可能性があります
VBA
1 2With CreateObject ("ADODB.Stream") 3 4 .Charset = "UTF-8" 5 .LineSeparator = adLF 6 7 .Open 8 9 ‘中身 10 11 For i1 = 3 To WkEndRow 12 For i2 = To WkEndColumn 13 14 If i2 = WkEndColumn Then 15 16 WkParam Area = WkParam Area & vbTab & Cells (i1, i2).value & vbLf 17 18 ElseIf i2= 1 Then 19 20 WkParam Area=WkParamArea & Cells (i1, i2).value 21 22 Else 23 24 WkParamArea = WkParamArea & vbTab & Cells(i1, i2).value 25 26 End If 27 28 Next i2 29 Next i1 30 31 32 33 ‘bom削除 34 .Position = 0 35 .Type= adTypeBinary 36 .Position = 3 37 38 Dim byteData() As Byte 39 byteData = .Read 40 41 .Close 42 43 .Open 44 .Write byteData 45 46 ‘ファイル出力 47 .WriteText WkParamArea 48 .SaveToFile outFp, 2 49 50 .Close 51
回答2件
あなたの回答
tips
プレビュー