¿Cómo convierto un excel a formato .QIF?
rd2d2
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.
Héctor Miguel
> 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/quicken/2002/win/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/AboutXLQIFConverter.htm?gclid=CLTg8ZPglI8CFRUsagodyT7GeQ
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
rd2d2
"Héctor Miguel" escribió: