Excel file to Quicken (QIF) Format

Location: http://www.mvps.org/dmcritchie/excel/xl2qif.htm      
Home page: http://www.mvps.org/dmcritchie/excel/excel.htm
[View without Frames]

Create a QIF file from Excel

Creating a Quicken QIF file for data transfer from Excel to Quicken

 ABCDE
1DTNP M
203/23/2001 -174.9515216 Michael B Saul Dmdfinal payment
303/26/2001 5,000.00391 Transfer from Insured Money Market 
403/26/2001 -39.62  Verizon Phone Bi Payments 
503/26/2001 -387.8615223 Citibank-MastercardLisa's credit card

To Generate a QIF file as follows:

^
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
^
XL2QIF Macro used to produce the above and can be found in this posting and the thread associated with it.
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

Related


You are one of many distinguished visitors who have visited my site here or in a previous location  since this page was created on December 30, 2001.

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