Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Transferir dados para uma célula da planilha do Excel Encontre agências semelhantes


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

Por favor, diga-me como escrever alguma variável da string ou tipo real para a célula especificada da planilha EXCEL (eu gostaria de um exemplo). Obrigado por ela anteriormente.



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

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



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

Aqui está a questão do catch-up, mas como fechar esse XL corretamente? E então eu tenho uma transferência de tempo (embora o Excel do Excel "I) funciona, e se você tentar novamente, então - Erro de alocação de memória ...



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

ExcelApplication.Disconnect;



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

Muito obrigado vou tentar em casa.



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

> perov
Já escrevi
e ExcelApplication.Disconnect,
e ExcelApplication.Quit,
e FreeAndNil (ExcelApplication) ...
não ajuda, aqui está um pedaço de código:

ExcelApplication1.Connect;
ExcelApplication1.WorkBooks.Add (n, 0); // n - nome do arquivo
ExcelWorkBook1.ConnectTo (ExcelApplication1.ActiveWorkBook);

{program body}

ExcelApplication.WorkBook1.Close;
ExcelApplication1.Disconnect;



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

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



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

Há alguns artigos sobre como trabalhar com o Excel no Reino do Delphi



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

// adicione este aos módulos
usa ComObj;
// ...
var
xlApp: variante;
DataArray: Variant; // array bidimensional estará aqui
rv: real;
começar
rv: = 10.56568;
xlApp: = CreateOleObject ("Excel.Sheet"); // create
xlApp.Application.Visible: = True;

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

xlApp.Application.Range ["RealValue1"]. Valor: = rv; {você pode fazer isso: "RealValue1" - o nome da célula nas "células"}

xlApp.Application.Range ("A1: B8"). Value: = "Apenas uma string para preencher o intervalo"; {preencha o intervalo com uma linha}


DataArray: = VarArrayCreate ([0,2,0,2], varVariant); {criar uma opção do tipo array para armazenar quaisquer valores}
DataArray [0, 0]: = "elemento da matriz";
DataArray [1, 0]: = 38754; // também um elemento de matriz

{atribuir a matriz inteira ao link de uma só vez ... barato, confiável e praticamente = =) = especialmente quando você precisa enviar um array de milhares de linhas 5 para o relatório ... se você fizer isso através de um loop for, o relatório será gerado como mortal}

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

// salve este arquivo para a posteridade = -)
xlApp.SaveAs ("c: \ docs \ reports \ sample1.xls");

DataArray: = não atribuído; // varre faixas
xlApp: = não atribuído; // bang e isso ...
end;



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

Eu vasculhei por aqui e encontrei um site (WWW.afalinasoft.com) lá, é precisamente devido à interação do Delphi & Excel.



Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima





Memória: 0.57 MB
Hora: 0.023 c
6-22297
Questionador
2001-10-10 17:09
2002.01.08
Aconselhar quem pode


3-21964
Nickolaus
2001-12-05 22:09
2002.01.08
Com erro BatchMove.batUpdate.


3-21967
SklifF
2001-12-05 11:32
2002.01.08
sobre SQL


3-21927
Aleks_Vl
2001-12-04 09:47
2002.01.08
DTS + Delphi


1-22196
T2
2001-12-16 07:18
2002.01.08
Desktop off





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese Romeno Russa sérvio Slovak esloveno Espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol