|   | A | B | C | D | E | 
| 1 | D | T | N | P | M | 
| 2 | 03/23/2001 | -174.95 | 15216 | Michael B Saul Dmd | final payment | 
| 3 | 03/26/2001 | 5,000.00 | 391 | Transfer from Insured Money Market | |
| 4 | 03/26/2001 | -39.62 | Verizon Phone Bi Payments | ||
| 5 | 03/26/2001 | -387.86 | 15223 | Citibank-Mastercard | Lisa's credit card | 
To Generate a QIF file as follows:
XL2QIF Macro used to produce the above and can be found in this posting and the thread associated with it.^ D03/23/2001 T-174.95 N15216 PMichael B Saul Dmd Mfinal payment ^ D03/26/2001 T5,000.00 N391 PTransfer from Insured Money Market ^ D03/26/2001 T-39.62 PVerizon Phone Bi Payments ^ D03/26/2001 T-387.86 N15223 PCitibank-Mastercard MLisa's credit card ^
Sub XL2QIF()
  Dim Rw As Long, Clm As Long, filename As String
  ' Columns("B:F").NumberFormat = "General"
  filename = "c:\temp\my.qif"
  Close #1
  Open filename For Output As 1
  For Rw = 2 To 10
    If Cells(Rw, 1) = "" Then GoTo done
    Print #1, "^"
    For Clm = 1 To 10
      If Trim(Cells(Rw, Clm)) <> "" Then
         Print #1, Cells(1, Clm) & Cells(Rw, Clm).Text
      End If
    Next Clm
  Next Rw
done:
  Print #1, "^"   'unless concatenating more files
  Close #1
  'The following can be included to view output,
  Shell "notepad.exe " & """" & filename & """", 1
End Sub
 
Visit [my Excel home page] [Index page] [Excel Onsite Search] [top of this page]
Please send your comments concerning this web page to: David McRitchie send email comments
Copyright © 1997 - 2004, F. David McRitchie, All Rights Reserved