Need a QIF to CSV/XLS converter! Is there any??

J

John Hallgren

Have found via this forum the XL2QIF add-in, but that does
not handle investment info fields...I need to do a simple
convert of a QIF file to CSV so I can import it to
Excel...I found some shareware but it's limited to 20 rcds
for trial, it appears, and I have more than that to verify
if it would work properly...anyone know of any thing that
will do what I need? Thanks! PS. I DON'T need to create
a QIF..just READ it!
 
D

David McRitchie

Hi John,
You may have already seen these links but there may well be more than
one XL2QIF addin around. I guess it goes to and from QIF. There
are a couple of other links as well. In any case these are free not shareware.
The XL2QIF that I have the link for indicates
Converts bank statement or credit card statement information.

Quicken Interchange File used by Quicken and MS Money (#QIF)
Stocks, Quotes and keeping track of
http://www.mvps.org/dmcritchie/excel/stocks.htm

Habeeb's (McGyver) does stocks but the link is dead,
I found that his free software
is on a members only payfor free software site -- I expect that
he would not be very happy about someone else making personal gain
on what he provided for free. I would avoid such pay for sites on
general principle, but it probably not updated and it was a bit of a
hassle to have to have Quicken up when the addin was active.
 
Joined
Nov 18, 2009
Messages
1
Reaction score
0
Hi,

I have written this little macro.
1) Open the .QIF with text file
2) Copy and paste data into Sheet1 of workbook
3) Split text into column 1 as code column 2 as value
4) run the macro

Sub translate()
Dim String1, String2 As Variant
Dim i, n, EndofDataRow As Integer
Dim R As Object
Dim Cols As String
Dim thisRow As Integer

thisRow = 2

Cols = "A:B"
Columns(Cols).Select
ActiveWorkbook.Names.Add Name:="Check", RefersToR1C1:="=Sheet2!" & Cols
Set R = Range(Cols)
EndofDataRow = Selection.SpecialCells(xlLastCell).Row
For n = 1 To R.Rows.Count
If (Cells(n, 1).Value = "") And _
n > EndofDataRow Then
Exit For
End If
Select Case Cells(n, 1).Value
Case "!"

Case ""

Case "D" 'Date
Sheet1.Cells(thisRow, 5) = Sheet1.Cells(n, 2)
Case "M" 'Memo
Sheet1.Cells(thisRow, 6) = Sheet1.Cells(n, 2)
Case "N" 'Action
Sheet1.Cells(thisRow, 7) = Sheet1.Cells(n, 2)
Case "Y" 'Stock Name
Sheet1.Cells(thisRow, 8) = Sheet1.Cells(n, 2)
Case "I" 'Price
Sheet1.Cells(thisRow, 9) = Sheet1.Cells(n, 2)
Case "Q" 'Quantity
Sheet1.Cells(thisRow, 10) = Sheet1.Cells(n, 2)
Case "O" ' Commission
Sheet1.Cells(thisRow, 11) = Sheet1.Cells(n, 2)
Case "T" 'Total cost
Sheet1.Cells(thisRow, 12) = Sheet1.Cells(n, 2)
Case "^" 'Next item
thisRow = thisRow + 1
End Select
Next n
End Sub
 
S

seletit

Have found via this forum the XL2QIF add-in, but that does
not handle investment info fields...I need to do a simple
convert of a QIF file to CSV so I can import it to
Excel...I found some shareware but it's limited to 20 rcds
for trial, it appears, and I have more than that to verify
if it would work properly...anyone know of any thing that
will do what I need? Thanks! PS. I DON'T need to create
a QIF..just READ it!

Propersoft QIF2CSV at http://www.propersoft.net/qif2csv/
 
G

GS


I can appreciate the developers getting paid for their efforts, but...

Given that a QIF (or OFX) file is plain text then it can be read (and
parsed) via standard VB[A] I/O methods/functions and so negates any
point in paying for an app to do this, IMO.

Using VB[A] I/O permits reading the QIF/OFX directly into an Excel
worksheet, and allows one to customize the way the data displays in the
process.

If a CSV is required/desired then the Excel file can be saved as such
at any time. It just seems a bit counter-productive (IMO) to buy an
app, convert the QIF/OFX file so you can then import that CSV into
Excel when it can be done in Excel in a single step, thus bypassing all
that other nonsense!

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top