Programacion avanzada
Saludos
Quisiera una ayuda para poder adquirir los datos desde celdas de Excel via DDE con Visual BAsic y a su vez generar un archivo .txt que se llene con dichos datos en forma de columnas.
Quisiera una ayuda para poder adquirir los datos desde celdas de Excel via DDE con Visual BAsic y a su vez generar un archivo .txt que se llene con dichos datos en forma de columnas.
mira Sergio
DDE (Dynamic Data Exchange)
es un protocolo que utiliza Windows para intercambiar la información entre distintas aplicaciones, como serÃa por ejemplo, hacer un Copiar en Word y Pegar en Excel.
podrÃa entenderse como cuando creamos un objeto:
Set ObjExcel = CreateObject("Excel.Application")
ObjExcel.WorkBooks.Open "c:Libro.xls"
ObjExcel.Sheets("Hoja1").Range("a1") = Form1.Text1.Text
o incluso utilizando el Clipboard como
Clipboard.SetText ObjExcel.Sheets("Hoja1").Range("a3")
Form2.List1.AddItem Clipboard.GetText
si tienes curiosidad, en esta página hay un ejemplo de la MSDN
http://support.microsoft.com/default.aspx?scid=kb;es;550375
o si prefieres la laaaaarga pero interesante explicación (en inglés) que da la MSDN
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/WinUI/WindowsUserInterface/DataExchange/DynamicDataExchange/AboutDynamicDataExchange.asp
Un saludo.
DDE (Dynamic Data Exchange)
es un protocolo que utiliza Windows para intercambiar la información entre distintas aplicaciones, como serÃa por ejemplo, hacer un Copiar en Word y Pegar en Excel.
podrÃa entenderse como cuando creamos un objeto:
Set ObjExcel = CreateObject("Excel.Application")
ObjExcel.WorkBooks.Open "c:Libro.xls"
ObjExcel.Sheets("Hoja1").Range("a1") = Form1.Text1.Text
o incluso utilizando el Clipboard como
Clipboard.SetText ObjExcel.Sheets("Hoja1").Range("a3")
Form2.List1.AddItem Clipboard.GetText
si tienes curiosidad, en esta página hay un ejemplo de la MSDN
http://support.microsoft.com/default.aspx?scid=kb;es;550375
o si prefieres la laaaaarga pero interesante explicación (en inglés) que da la MSDN
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/WinUI/WindowsUserInterface/DataExchange/DynamicDataExchange/AboutDynamicDataExchange.asp
Un saludo.
El DDE está hecho pero necesito alguna subrutina para reescribir en dicho txt. Me imagino que dentro de un lazo (Bucle) se mandarÃa a leer esos datos.
Do while EOF(1)
OPEN "C:TEXTO.TXT" FOR APPEND AS #1
{AQUI ESTARA EL LAZO QUE REESCRIBA LOS DATOS???
Y SERIA CON UN APPEND O UN OUTPUT O INPUT
??????????
CLOSE #1
Do while EOF(1)
OPEN "C:TEXTO.TXT" FOR APPEND AS #1
{AQUI ESTARA EL LAZO QUE REESCRIBA LOS DATOS???
Y SERIA CON UN APPEND O UN OUTPUT O INPUT
??????????
CLOSE #1
