| 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