Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

Transferencia de datos a una celda de la hoja de cálculo de Excel Encontrar ramas similares


Striker   (2001-12-13 07:59) [0]

Por favor, dígame cómo escribir una variable de tipo string o real en la celda especificada de la hoja de EXCEL. (Me gustaría dar un ejemplo). Gracias antes.



perov   (2001-12-13 08:21) [1]

ExcelApplication.Connect; ExcelApplication.Workbooks.Add ("", 0); ExcelWorkbook.ConnectTo (ExcelApplication.ActiveWorkbook); ExcelWorksheet.ConnectTo (ExcelWorkbook.Sheets [1] as _WorkSheet); ExcelWorksheet.Activate; ExcelWorksheet.Cells.Item [j, 1] .Value: = j - i; ExcelApplication.Visible [0]: = True;



KIR   (2001-12-13 08:32) [2]

Esta es también una pregunta para ponerse al día, y ¿cómo después de eso este XL puede cerrarse correctamente? Y luego la transferencia una vez (aunque desde Excel "I) funciona para mí, y si vuelvo a intentarlo, entonces Error de asignación de memoria ...



perov   (2001-12-13 08:44) [3]

ExcelApplication.Disconnect;



Striker   (2001-12-13 09:00) [4]

Gran agradecimiento a casa intentarlo.



KIR   (2001-12-13 12:02) [5]

> perov
Ya escribi
y ExcelApplication.Disconnect,
y ExcelApplication.Quit,
y FreeAndNil (ExcelApplication) ...
No ayuda, aquí hay un trozo de código:

ExcelApplication1.Connect;
ExcelApplication1.WorkBooks.Add (n, 0); // n es el nombre del archivo
ExcelWorkBook1.ConnectTo (ExcelApplication1.ActiveWorkBook);

{} programa Cuerpo

ExcelApplication.WorkBook1.Close;
ExcelApplication1.Disconnect;



perov   (2001-12-13 12:33) [6]

ExcelWorksheet.Disconnect; ExcelWorkbook.Close; ExcelApplication.Disconnect;



Олег Лаукарт   (2001-12-13 13:33) [7]

En el Reino de Delphi tiene un par de artículos sobre el trabajo con Excel



Ынс   (2001-12-13 14:32) [8]

// los complementos es también el
utiliza ComObj;
// ...
var
xlApp: Variante;
DataArray: Variante; // hay una matriz de dos dimensiones
RV: real;
comenzar
rv: = 10.56568;
xlApp: = CreateOleObject ("Excel.Sheet"); // crear
xlApp.Application.Visible: = true;

xlApp.Application.Cells [1, 2] .Value: = "23456346"; // tu puedes

xlApp.Application.Range [ "RealValue1"] Valor: = rv ;. {Usted podría: "RealValue1" - el nombre de la célula en las "células"}

. XlApp.Application.Range ( "A1: B8") Valor: = "Sólo una línea para llenar la banda"; {Llenar rango de una fila}


DataArray: = VarArrayCreate ([0,2,0,2], varVariant); {crear una opción de almacenamiento de tipo de matriz para cualquier valor}
DataArray [0, 0]: = "array element";
DataArray [1, 0]: = 38754; // también un elemento de matriz

{Asignar el enlace completo rango de matriz de inmediato ... barato, fiable y praktYchno = -) = especialmente cuando se necesita reportar a aprobar un tamaño de matriz de esa manera 5 mil líneas ... si lo hace a través de un bucle for que genera un informe habrá devastadora larga}

xlApp.Application.Range ("A1: C3): = DataArray;

// guardar el archivo para las generaciones futuras = -)
xlApp.SaveAs ("c: \ docs \ reports \ sample1.xls");

DataArray: = sin asignar; // para la limpieza
xlApp: = sin asignar; // explosión y es ...
fin;



Striker   (2001-12-15 11:06) [9]

Yo he cavado alrededor y encontró un sitio (WWW.afalinasoft.com) .No es sólo para la interacción Delphi y Excel.



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba















Memoria: 0.84 MB
Tiempo: 0.036 c
14-22319
iea
2001-11-02 13:34
2002.01.08
Cualquiera que use (l) gafas! La pregunta no es ociosa.


1-22134
Rosco
2001-12-15 12:54
2002.01.08
¿Y esto ya está ahí?


6-22277
prosof
2001-10-02 10:21
2002.01.08
Definición del tráfico de cada corresponsal en la red por IP.


3-21920
Alex2
2001-12-04 15:14
2002.01.08
Error al finalizar


1-22219
dimonf
2001-12-16 17:23
2002.01.08
Cómo hacer un lienzo dibujado cuando una ventana pasa con una ventana





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish Francés
gallego georgiano Alemán Griego criollo haitiano hebreo hindi Húngaro islandés Indonesian irlandés Italiano Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español