Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Servers
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-06-2012
Avatar de DarkBlue
DarkBlue DarkBlue is offline
Miembro
 
Registrado: jun 2010
Posts: 105
Poder: 15
DarkBlue Va por buen camino
Talking Dropdown list excel delphi

Ahora estoy con la idea de poner dropdown list en excel pero a la hora de seleccionar sus valores me sale un error , lo que pasa es que no puedo acceder al dropdown list :S he visto los macros en excel y pone las siguentes propiedades


ActiveSheet.Shapes("Drop Down 2").Select
With Selection
.ListFillRange = "$B$4:$B$6"
.LinkedCell = "$C$4"
.DropDownLines = 8
.Display3DShading = False
End With

a lo que yo creo que debe de ser algo asi en delphi


Código Delphi [-]


procedure TForm5.Button2Click(Sender: TObject);
    var sheets,wb,xlapplication,ws:variant;
    listaencontrados:tstringlist;
    x,y:integer;
    z:extended;
begin
XLApplication:= CreateOleObject('Excel.Application');
XLApplication.WorkBooks.Open(FileName :='C:\'+'avalanch-vp1277-665-08'+'.xlsx', Password :='57-+@%*+090', ReadOnly := TRUE);
XLApplication.visible:=true;
 XLApplication.ActiveSheet.Unprotect('@%(05790¡$-');

    WB := XLApplication.ActiveWorkbook;
    sheets:=XLApplication.workbooks[1].Worksheets['hoja1'];
    sheets := XLApplication.Activesheet;
    y:=100;

    XLApplication.Range['a15','a15'].Value:='jk';
    XLApplication.Range['a16','a16'].Value:='jkff';
    XLApplication.Range['a17','a17'].Value:='jjhuk';




  for x:=0 to 10 do
    begin
   

    sheets.DropDowns.Add(483, 221.25+(x*15), 93, 15.75).Select;
    seleccion:= sheets.DropDowns.Add(483, 221.25+(x*15), 93, 15.75).Select;//ningun problema
    seleccion.ListFillRange['"$B$4:$B$6"'].select;//esto da error
    seleccion.ListFillRange.LinkedCell:= '"$C$4"';
  
    end;
  XLApplication.Activesheet.Shapes('Drop Down 1').Select;//esto me da error 

Gracias por su tiempo prometo estar pendiente de las publicaciones buen dia amigos!
__________________
Todo es Relativo
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
list box delphi juaarias Varios 9 03-05-2011 05:58:58
Problema con el DropDown de DBLookUpComboBox NPIdea Conexión con bases de datos 4 14-06-2008 10:15:14
excel a delphi, como mostrar columnas de excel Vyckso Servers 2 13-08-2007 13:38:08
DropDown con TDBLookupComboBox AGAG4 Varios 1 28-09-2004 23:20:25
Menu DropDown en Boton lafirma Varios 8 11-08-2004 12:51:24


La franja horaria es GMT +2. Ahora son las 00:53:29.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi