ΠΠ°ΠΊ Π·Π°Π³ΡΡΠ·ΠΈΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΈΠ· 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 ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅. Π‘ΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ Π΅ΡΠ΅ ΠΎΠ΄ΠΈΠ½ Π²Π°ΡΠΈΠ°Π½Ρ Π·Π°Π³ΡΡΠ·ΠΊΠΈ ΠΈΠ· ΠΠΊΡΠ΅Π»Ρ.