1Jan

Xl2qif Excel 2010

1 Jan 2000admin

Oct 23, 2009 - I use Excel 2007 and it works perfectly with that, and it is also supported on older versions, with. Simply highlight the cells containing the info you wish to upload, then open the XL2QIF add-in. November 17, 2010 at 00:13. Jul 15, 2006 - Sainsburys so I wrote a program which converts from XLS or CSV into QIF so that you.

Hi John, You may have already seen these links but there may well be more than one XL2QIF addin around. Postavitj vk foto na avu chtobi lajki sohranilisj. 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 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. 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.

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 Classic VB Users Regroup! Comp.lang.basic.visual.misc microsoft.public.vb.general.discussion.

Pete Says: Try this great utility for converting csv files for Money. MT2OFX () It does what it says on the tin ( a lot better thatn all those other applications that appear to do it) I found downloading the csv file easy, converting it easy and importing it easy too and Monsy won’t import the same record twice wither so you can;t make a mistake there. Yes it’s a pain but it’s a working solution. It’s Freeware but do as I did an donate something. It helps the guys to develop the application and rewards great, hard work.

Great piece of customer relations nationwide I can understand why you dropped it ( costly support form Microsoft etc) but you could have come up with a better solution such as allowing OIF downloads. Remember, we can vote the directors out you know now whouldn’t that be a good lesson to the head in the sand big wigs!