|   | 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