VBA実行エラー3004

Question

前提

VBAで編集したcsvデータ（文字コード：ANSI)をUTF-8のBOM無しで書き出そうとしています。
VBA実行時に同名で上書き保存しようとするとエラー3004が発生します。
14行目で名前を変えればエラーは出ません。

実現したいこと

同名で上書き保存

発生している問題・エラーメッセージ

実行時エラー'3004':
ファイルへ書き込めませんでした。

該当のソースコード

Sub CSV書き出し()
    Dim i As Long
    Dim j As Long
    Dim strList As String
    Dim wb As Workbook
    Dim ws As Worksheet
    
    Dim csvFile As String
    MsgBox "編集元のファイルを選択してください。"
    Workbooks.Open Application.GetOpenFilename
    Set wb = ActiveWorkbook
    Set ws = wb.Worksheets(1)
    MsgBox "保存するファイルに任意の名前を付けてください"
    csvFile = Application.GetSaveAsFilename(filefilter:="CSVブック,*.csv") 

    Dim strA As String
    Dim strB As String
    Dim strC As String
    Dim adoSt As Object
    Set adoSt = CreateObject("ADODB.Stream")
    With adoSt
        .Type = adTypeText
        .Charset = "UTF-8"
        .Open
    End With
    With ActiveSheet.UsedRange
        For i = 1 To .Rows.Count
            strList = ""
            For j = 1 To .Columns.Count
                If j > 1 Then
                    strList = strList & ","
                End If
                If InStr(.Cells(i, j), "(") > 0 Then
                    strA = Left(.Cells(i, j), InStr(.Cells(i, j), "(") - 1)
                    strB = Mid(.Cells(i, j), InStr(.Cells(i, j), "(") + 1) 
                    strC = Left(strB, InStr(strB, ")") - 1)                
                    strC = """" & strA & "(" & """" & """" & strC & """" & """" & ")" & """"   
                    strList = strList & strC
                Else
                    strList = strList & .Cells(i, j)
                End If
            Next
            adoSt.WriteText strList, adWriteLine
        Next
    End With
    Dim byteData() As Byte
    With adoSt
        .Position = 0
        .Type = adTypeBinary
        .Position = 3
        byteData = .Read
        .Close
        .Open
        .Write byteData
        .SaveToFile csvFile, adSaveCreateOverWrite  '←ここで3004エラー
        .Close
    End With
    Set adoSt = Nothing
End Sub

試したこと

ネット検索で権限について書かれていたのでマクロファイルのプロパティからセキュリティ権限を確認しましたが実行アカウントにフルコントロール付与済でした。

補足情報（FW/ツールのバージョンなど）

Microsoft 365（Excelバージョン2211，ビルド15831.20208）

Answer 1

他のアプリがそのテキストファイルを開いているということはありません。もし、そうなら、そのアプリを閉じてから試してみてください。

下記で同様の質問がありますが、回答者さんは、ADODBで一時ファイルに保存してから、それをcopyコマンドで上書きコピーして解決しているようです。

Excel VBAでほかのアプリケーションで使用中（ロック）のファイルを上- その他（プログラミング・Web制作） | 教えて!goo

Answer 2

回答頂いた内容をヒントに、一旦別名で保存してから、FileSystemObjectで元ファイルを削除、別名で保存したファイルを元のファイル名にリネームで解決しました。
ありがとうございました。