¿Cómo convierto un excel a formato .QIF?

16/10/2007 - 20:26 por rd2d2 | Informe spam
Quiero convertir un libro de Excel 2003 a formato .QIF, que es el estándar de
intercambio de información financiera segun Microsoft?

A QIF file is a specially formatted text file that’s used to transfer data
between financial programs.
 

Leer las respuestas

#1 Héctor Miguel
17/10/2007 - 03:41 | Informe spam
hola, 'anonimo/a' !

Quiero convertir un libro de Excel 2003 a formato .QIF, que es el estandar de intercambio de informacion financiera segun Microsoft?
A QIF file is a specially formatted text file that's used to transfer data between financial programs.



*segun* Intuit creadores del formato QIF (Quicken Interchange Format) y adoptado para MS-Money...
este es el formato "requerido" para los archivos del tipo que comentas:
QIF Definition
http://www.respmech.com/mym2qifw/qif_new.htm

otra pagina con informacion relativa al tema:
General structure of Quicken Interchange Format (QIF) files
http://www.intuit.com/support/quick.../1178.html

tambien podrias "seguir" las siguientes conversaciones:
http://tinyurl.com/2kb3cy (http://preview.tinyurl.com/2kb3cy)
donde aparece la macro que te apunto al final del presente

tambien existen herramientas (de terceros) para hacer la conversion (p.e.)

Excel to QIF Converter
http://www.bigredconsulting.com/Abo...agodyT7GeQ

Excel to QIF data conversion for Money & Quicken
http://xl2qif.chez-alice.fr/xl2qif_en.php

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

(la macro de las conversaciones)...

Sub XL2QIF()
Dim Fila As Long, Col As Byte, ArchivoQIF As String
ArchivoQIF = "c:\temp\my.qif"
Close #1
Open ArchivoQIF For Output As 1
For Fila = 2 To Cells.SpecialCells(xlCellTypeLastCell).Row
If Cells(Fila, 1) = "" Then GoTo Fin
Print #1, "^"
For Col = 1 To 10
If Cells(Fila, Col) <> "" Then _
Print #1, Cells(1, Col) & Cells(Fila, Col).Text
Next
Next
Fin:
Close #1
End Sub

Preguntas similares