VBAで、.SaveToFile の部分で エラーになります「'実行時エラー 3004' ファイルへ書き込めませんでした」昨日までずっと使えてたのですが。何かしてしまったのでしょうか。プログラムは以下の通りです。Sub Sample() Dim Target As String Target = \u0026quot;C:\\Sample.txt\u0026quot; With CreateObject(\u0026quot;ADODB.Stream\u0026quot;) .Charset = \u0026quot;UTF-8\u0026quot; .Open .WriteText \u0026quot;test\u0026quot; .SaveToFile Target, 2 .Close End WithEnd Subその他の情報：●参照しているライブラリ Visual Basic For Applications Microsoft Excel 16.0 Object Library OLE Automation Microsoft Office 16.0 Object Library Windoews Script Host Object Library Microsoft Forms 2.0 Object Library Microsoft ActiveX Data Objects 6.1 Library●動作環境：windows 11Office 2016