profile="http://gmpg.org/xfn/11"> Как Π·Π°Π³Ρ€ΡƒΠ·ΠΈΡ‚ΡŒ ΠΈΠ½Ρ„ΠΎΡ€ΠΌΠ°Ρ†ΠΈΡŽ ΠΈΠ· Excel Π² 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅? ΠŸΡ€ΠΈ ΠΏΠΎΠΌΠΎΡ‰ΠΈ COMObject. Π’Π°Ρ€ΠΈΠ°Π½Ρ‚ 1. | Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΡƒ ΠΎ Ρ€Π°Π±ΠΎΡ‚Π΅ с 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅, Pascal, Паскаль

Как Π·Π°Π³Ρ€ΡƒΠ·ΠΈΡ‚ΡŒ ΠΈΠ½Ρ„ΠΎΡ€ΠΌΠ°Ρ†ΠΈΡŽ ΠΈΠ· Excel Π² 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅? ΠŸΡ€ΠΈ ΠΏΠΎΠΌΠΎΡ‰ΠΈ COMObject. Π’Π°Ρ€ΠΈΠ°Π½Ρ‚ 1.

Как Π·Π°Π³Ρ€ΡƒΠ·ΠΈΡ‚ΡŒ ΠΈΠ½Ρ„ΠΎΡ€ΠΌΠ°Ρ†ΠΈΡŽ ΠΈΠ· Excel Π² 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅? ΠŸΡ€ΠΈ ΠΏΠΎΠΌΠΎΡ‰ΠΈ COMObject. Π’Π°Ρ€ΠΈΠ°Π½Ρ‚ 1.
Часто Π² ΠΏΡ€Π°ΠΊΡ‚ΠΈΠΊΠ΅ 1Π‘ программиста Π²ΠΎΠ·Π½ΠΈΠΊΠ°Π΅Ρ‚ Π·Π°Π΄Π°Ρ‡Π° Π·Π°Π³Ρ€ΡƒΠ·ΠΊΠΈ Π΄Π°Π½Π½Ρ‹Ρ… ΠΈΠ· ЭксСля.
Π’Π°Ρ€ΠΈΠ°Π½Ρ‚ 1:

ΠŸΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π° Π‘ΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅Excel(ОшибкаБоСдинСния,Π’Π°Π±Π»ΠΈΡ†Π°Π­ΠΊΡΠ΅Π»ΡŒ)
	ОшибкаБоСдинСния = 1;
	ΠŸΠΎΠΏΡ‹Ρ‚ΠΊΠ°
		Π’Π°Π±Π»ΠΈΡ†Π°Π­ΠΊΡΠ΅Π»ΡŒ = Новый COMObject ("Excel.Application");
		ОшибкаБоСдинСния = 0;
		Π‘ΠΎΠΎΠ±Ρ‰ΠΈΡ‚ΡŒ ("Π‘ΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅ установлСно");
	Π˜ΡΠΊΠ»ΡŽΡ‡Π΅Π½ΠΈΠ΅
		Π‘ΠΎΠΎΠ±Ρ‰ΠΈΡ‚ΡŒ ("НСт соСдинСния, Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ Π½Π΅ установлСн Excel");
		ОшибкаБоСдинСния = 1;
	ΠšΠΎΠ½Π΅Ρ†ΠŸΠΎΠΏΡ‹Ρ‚ΠΊΠΈ;
ΠšΠΎΠ½Π΅Ρ†ΠŸΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρ‹

ΠŸΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π° Π—Π°Π³Ρ€ΡƒΠ·ΠΈΡ‚ΡŒΠ˜Π·Excel()
	ΠŸΠ΅Ρ€Π΅ΠΌ ОшибкаБоСдинСния,Π’Π°Π±Π»ΠΈΡ†Π°Π­ΠΊΡΠ΅Π»ΡŒ;
        Π‘ΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅Excel(ОшибкаБоСдинСния,Π’Π°Π±Π»ΠΈΡ†Π°Π­ΠΊΡΠ΅Π»ΡŒ);
	Если ОшибкаБоСдинСния=1 Π’ΠΎΠ³Π΄Π°
		Π’ΠΎΠ·Π²Ρ€Π°Ρ‚;
	ΠšΠΎΠ½Π΅Ρ†Π•ΡΠ»ΠΈ;
	ИмяЀайла="C:\Temp\ВСстовая ΠΊΠ½ΠΈΠ³Π°.xlsx";
	Π’Π°Π±Π»ΠΈΡ†Π°Π­ΠΊΡΠ΅Π»ΡŒ.Workbooks.Open(ИмяЀайла);
	Π›ΠΎΠΊΠ—Π½Π°Ρ‡=Π’Π°Π±Π»ΠΈΡ†Π°Π­ΠΊΡΠ΅Π»ΡŒ.Cells("1,1").Value;
	Π‘ΠΎΠΎΠ±Ρ‰ΠΈΡ‚ΡŒ(" "+Π›ΠΎΠΊΠ—Π½Π°Ρ‡);
        Π’Π°Π±Π»ΠΈΡ†Π°Π­ΠΊΡΠ΅Π»ΡŒ.Quit();
	Π‘ΠΎΠΎΠ±Ρ‰ΠΈΡ‚ΡŒ ("Π‘ΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅ Π·Π°Π²Π΅Ρ€ΡˆΠ΅Π½ΠΎ");
	Π’Π°Π±Π»ΠΈΡ†Π°Π­ΠΊΡΠ΅Π»ΡŒ=0;
ΠšΠΎΠ½Π΅Ρ†ΠŸΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρ‹

Π’ ΠΏΠ΅Ρ€Π²ΠΎΠΉ ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π΅ устанавливаСм соСдинСниС с ΠΎΠ±ΡŠΠ΅ΠΊΡ‚ΠΎΠΌ Excel. Π’ΠΎ Π²Ρ‚ΠΎΡ€ΠΎΠΉ ΠΏΡ€ΠΎΠΈΡΡ…ΠΎΠ΄ΠΈΡ‚ΡŒ Π·Π°Π³Ρ€ΡƒΠ·ΠΊΠ°, отсоСдинСниС ΠΎΡ‚ com ΠžΠ±ΡŠΠ΅ΠΊΡ‚Π° Excel.

Π’Π°Π±Π»ΠΈΡ†Π°Π­ΠΊΡΠ΅Π»ΡŒ.Quit();

Π”Π°Π½Π½Ρ‹ΠΉ способ называСтся OLE соСдинСниС. БущСствуСт Π΅Ρ‰Π΅ ΠΎΠ΄ΠΈΠ½ Π²Π°Ρ€ΠΈΠ°Π½Ρ‚ Π·Π°Π³Ρ€ΡƒΠ·ΠΊΠΈ ΠΈΠ· ЭксСля.

ΠšΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΈ Π·Π°ΠΏΡ€Π΅Ρ‰Π΅Π½Ρ‹.