vba string concatenate open notepad write

2023.10.25

Sub zExport_todo()

Dim myApp As String
Dim zStr As String

i = 3
zStr = Date & vbCr
Do While Cells(i, 7) <> ""

  ztmp = Cells(i, 5)
  If ztmp = "" Then
    ztmp = Cells(i, 4)
  End If
  If Cells(i, 1) = 1 Then
    'ztmp = "-[ ] " & ztmp & vbNewLine
    ztmp = "- [x] " & i - 2 & "_" & ztmp
  Else
    ztmp = "- [ ] " & i - 2 & "_" & ztmp
  End If
  
  zStr = zStr & ztmp & vbCr
  i = i + 1
Loop

myApp = Shell("Notepad", vbNormalFocus)
SendKeys zStr, True

Shell "Z:\Drive\zKDB\zApp\bar_generator_QR code\bar_generator.exe"

End Sub