VB Code to change format, save in notepad file

Sub Save_K_as_Text()
    Application.ScreenUpdating = False
    With Columns("K:K")
        .NumberFormat = "#,##0.00;$-#,##0.00"
        Workbooks.Add xlWBATWorksheet
        .Copy Range("A1")
        ActiveWorkbook.SaveAs Filename:="C:\Temp\Test.qif", _
             FileFormat:=xlText, CreateBackup:=False
        ActiveWorkbook.Close False
    End With
    Application.ScreenUpdating = True
End Sub

Hello Riz,

Here is another macro to save the data as aNotepad file.

Sub SaveToNotepad()

    Dim Data        As Variant
    Dim Filepath    As String
    Dim Rng         As Range
    Dim row         As Long
    Dim Wks         As Worksheet
        
        Filepath = "C:\Temp\Test.qif"
        
        Set Wks = Worksheets("Sheet1")
        Set Rng = Wks.Range("K1", Wks.Cells(Rows.Count, "K").End(xlUp))
        
        ReDim Data(1 To Rng.Rows.Count, 1)
        
        Data = Rng.Value
        
        Open Filepath For Output Access Write As #1
            For row = 1 To Rng.Rows.Count
                If IsNumeric(Data(row, 1)) Then
                    If Data(row, 1) < 0 Then
                        Print #1, "$" & Data(row, 1)
                    End If
                Else
                    Print #1, Data(row, 1)
                End If
            Next row
        Close #1
        
End Sub

Hello Riz,

You're usually pretty good at making changes to simple code. I was hoping you could make the changes to my macro yourself.

Here is the revised macro code...

Sub SaveToNotepad()

    Dim Data        As Variant
    Dim Filepath    As String
    Dim Rng         As Range
    Dim row         As Long
    Dim Wks         As Worksheet
        
        
        Set Wks = Worksheets("Sheet1")
        Set Rng = Wks.Range("K1", Wks.Cells(Rows.Count, "K").End(xlUp))
        
        Filepath = Wks.Range("L1")

        ReDim Data(1 To Rng.Rows.Count, 1)
        
        Data = Rng.Value
        
        Open Filepath For Output Access Write As #1
            For row = 1 To Rng.Rows.Count
                If IsNumeric(Data(row, 1)) Then
                    Print #1, "$" & Data(row, 1)
                Else
                    Print #1, Data(row, 1)
                End If
            Next row
        Close #1
        
End Sub