Nav noslēpums, ka veiksmīga 1C aplikācija tika izstrādāta, lai palīdzētu grāmatvežiem, ļaujot viņiem veikt vairākas operācijas ātri un pēc iespējas efektīvāk. Tomēr iesācējiem grāmatvežiem dažreiz nākas “nedaudz pasvīst”, lai saprastu visas šīs programmatūras iespējas. Protams, iedziļinoties individuālo operāciju veikšanas mehānismā, sapratuši visu līdz pat vissīkākajām detaļām, grāmatveži ne tikai paliek apmierināti programmatūra, bet arī pamana sava darba produktivitātes pieaugumu.

Viena no aktuālajām problēmām, ar ko saskaras iesācēji grāmatveži, kuriem nav pieredzes ar 1C, ir ielāde 1C no iepriekš izveidotas Excel. Patiešām, ir grūti patstāvīgi izdomāt, kā saglabāt dokumentu programmā Excel 1C formātā, un ir arī problemātiski izdomāt, kā to saglabāt programmā Excel no 1C, lai pēc tam strādātu tieši ar izklājlapu redaktoru.

Tātad, lai novērstu visas problēmas, jums vajadzētu koncentrēties un izpētīt instrukcijas, iedziļinoties katrā piedāvātā algoritma solī. Protams, iesācējiem, veicot šādas manipulācijas, nevajadzētu parādīt savu radošumu. Tikai pieredzējuši lietotāji var atļauties veikt sarežģītākas darbības. Iesācējiem grāmatvežiem vispirms vienkārši ir “jāiedziļinās” un jāiemācās veikt darbības, kas ļauj saglabāt datus programmā Excel. Tikai pēc tam jūs varat paplašināt savas zināšanas par to, kā importēt Excel programmā 1C.

Darījumu mehānismi

Vēlos arī atzīmēt, ka vēlamo darbību veikšanas mehānisms var atšķirties atkarībā no tā, kura 1C: Grāmatvedības programmas versija ir instalēta datorā. Visvairāk jaunākās versijasšo procesu vairs nepavada īpašas problēmas. Tāpēc pieredzējuši lietotāji iesaka uzraudzīt atjauninājumus, un, ja tie tiek atrasti, noteikti atjauniniet programmu. Ja esat instalējis savā datorā jaunākā versija Programmatūru, tad būs vieglāk izdomāt, kā to augšupielādēt programmā Excel 1C formātā vai saglabāt programmā.

Ielādes algoritms

Vispirms izlemiet, ko tieši vēlaties saglabāt 1C. Atveriet iepriekš izveidoto tabulu programmā Excel, pārbaudiet, vai visi dati ir svarīgi, lai ielādētu programmā. Ja pēc tam dažas izklājlapas dokumenta kolonnas nav vajadzīgas, jo tām nav vērtības, vienkārši izdzēsiet tās iepriekš, lai nepārslogotu programmu 1C: Grāmatvedība. Pēc tam neaizmirstiet atkārtoti saglabāt rediģēto tabulu.

Tagad varat sākt tiešas darbības, kas ļauj augšupielādēt 1C no Excel. Vispirms atveriet pašu programmu, kreisajā pusē atrodiet rindu “Directory”, noklikšķiniet uz tās. Tiks atvērtas papildu apakšsadaļas, starp kurām atlasiet rindu “Nomenklatūra”. Tagad horizontālajā panelī būs izvēlne, kurā atrodiet “Nomenklatūra un cenas”, noklikšķinot uz tās, tiks atvērts apakšsaraksts, kurā atradīsit vajadzīgo vārdu “Lejupielādēt”.

Lai importēšana būtu veiksmīga, ir svarīgi nodrošināt, lai lejupielādētais dokuments tiktu saglabāts pareizā formātā. Varat importēt 1C:Grāmatvedības dokumentos, kurus izdevās saglabāt programmā Excel 2003 vai jaunākās versijās. Dokumentu var saglabāt arī mxl un ods formātā. Ja esat visu izdarījis tieši šādā veidā iepriekš, tad varat importēt.

Ir viegli saprast, kā to saglabāt programmā Excel 1C, noklikšķinot uz pogas Lejupielādēt. Ekrānā parādīsies parastais ielādes logs. Atliek tikai norādīt ceļu, kur atrodas dokuments, kuru vēlaties lejupielādēt. Kad importēšana programmā 1C no Excel ir pabeigta, lūdzu, ņemiet vērā, ka programmā tas būs tieši tāds pats kā izklājlapu redaktorā.

Šajā brīdī importēšana ir pabeigta, bet jūsu darbības turpinās, it īpaši, ja vispirms neesat rediģējis tabulu, tāpēc tajā ir palikušas papildu rindas un kolonnas. Virs kolonnām jūs atradīsiet tādu teikumu kā "Norādīt informāciju", noklikšķinot uz tā, jums būs jāizvēlas viena no sarakstā piedāvātajām opcijām. Kad esat veiksmīgi strādājis ar katru kolonnu, pārskatiet rindas. Ja atrodat kaut ko nevajadzīgu, droši izdzēsiet to.

Lai veiktu šādas manipulācijas, atlasiet rindu un pēc tam noklikšķiniet uz pogas “Dzēst rindu”.

Izpētot instrukcijas, kā augšupielādēt 1C no esoša Excel, jūs viegli atradīsit padomu, ka pēc tabulas rediģēšanas ir jāaizpilda trūkstošie dati. Ja šādas manipulācijas veicat rūpīgi, vēlāk būs vieglāk strādāt ar programmu. Tādā pašā veidā būs vieglāk meklēt.

Tas pabeidz tabulas redaktora importēšanu programmā 1C: Grāmatvedība. Ja stingri ievērojat norādījumus, kā lejupielādēt no Excel programmā 1C, taču kaut kas noiet greizi, pārliecinieties, vai programmai ir pievienota jaunākā versija.

Augšupielādes algoritms

Tātad, rūpīgi sapratis, kā programmā Excel iepriekš izveidotos dokumentus ielādēt 1C, tagad varat iedziļināties tajā, kā saglabāt dokumentu programmā Excel no 1C. Arī daži grāmatveži bieži saskaras ar šo vajadzību. Par laimi, jaunajās programmas versijās ir ne tikai šī iespēja, bet šādu uzdevumu veikšanu jau pavada manāmi uzlabojumi.

Pirmkārt, augšupielādēto dokumentu var izmantot kā cenrādi, ko var nosūtīt partneriem un piegādātājiem. Lai “piespiestu” augšupielādēt failu, sākumā jāseko jau pazīstamajā maršrutā, vispirms atverot “Nomenklatūra”, tad “Nomenklatūra un cenas” un visbeidzot šoreiz rindiņa “Augšupielāde”. Pēc tam parādīsies logs, kurā jums būs jānorāda kolonnas, kuras vēlaties redzēt vēlāk programmā Excel.

Šādu starpuzdevumu risināšanai ir iespējams pievienot arī papildu kolonnas, kas atrodas augšējā horizontālajā panelī. Kad esat pārliecināts, ka visi nepieciešamie dati ir iekļauti un atzīmēti, jums jānoklikšķina uz pogas “Augšupielādēt”, jānorāda ceļš, kurā vēlaties saglabāt šādu failu, un vienkārši jāgaida pašas programmas veiktā procesa pabeigšana.

Jums nebūs ilgi jāgaida, jo operācija tiek pabeigta diezgan ātri.

Kad programma paziņo par procesa pabeigšanu, atliek tikai atvērt lejupielādēto failu un pārliecināties, ka tajā ir viss, kas būs nepieciešams turpmākajam darbam. Pieredzējuši grāmatveži var izveidot slodzi ne tikai no vienas amata vietas, bet vairākām uzreiz, numurējot nevis desmitos, bet simtos. Pateicoties šādām darbībām, laiks tiek ievērojami ietaupīts, ko atzinīgi vērtē tie, kuriem iepriekš bija jātērē milzīgi laika resursi šādu uzdevumu veikšanai.

Tātad Excel dokumentu augšupielādes un ielādes procesu programmā 1C: Grāmatvedība iepriekš pavadīja palielinātas problēmas. Pašlaik programma ir atjaunināta līdz visvairāk pašreizējā versija un studējis noderīgi ieteikumi, jebkurš grāmatvedis var tikt galā ar šādiem uzdevumiem.

Pēdējā nodarbībā mēs skatījāmies.

Tomēr visizplatītākais piemērs ir apmaiņa starp grāmatvedību un algu uzskaiti. Šīs bāzes nav viena otrai pakārtotas un var pat sākotnēji nebūt savienotas.

Viss, kas mums nepieciešams, ir periodiski izkraut no algas uz grāmatvedību.

Apskatīsim datu lejupielādes procesu no 1C.

1C datu augšupielādes un lejupielādes principi

Grāmatvedībā dokumentā Preču un pakalpojumu pārdošana var būt 30 lauki. Tā ir grāmatvedība, tai ir savi mērķi, daudzas jomas ir veltītas kontu plānam un apakškontiem.

Tirdzniecības vadībā vienā un tajā pašā dokumentā Preču pārdošana var būt 25. Tā ir operatīvā uzskaite, tai ir savi mērķi. Bet konti no kontu plāna tur nav norādīti.

Šo divu datu bāzu lauku nosaukumi var atšķirties. Tad kā augšupielādēt vienu dokumentu no vienas datu bāzes un ielādēt citu citā datubāzē?

Lai aprakstītu, kā dokuments ir jāpārveido, lai to varētu ielādēt no vienas datu bāzes citā, ir apmaiņas noteikumi.

Tie ir faili ar XML paplašinājumu. Lai to izveidotu, ir īpaša 1C konfigurācija ar nosaukumu “Datu konvertēšana”.

Apmaiņai starp standarta konfigurācijām ir standarta datu apmaiņas noteikumi, kas ir pievienoti tipiski iestatījumi maiņas (Service/Exchange ar xxx) vai tiek piegādātas atsevišķi ar .

Izkraut BU-ZP 1C

No standarta konfigurācijas Algas un personāla vadība līdz standarta konfigurācijai Grāmatvedība parasti periodiski augšupielādē informāciju par algu uzskaites rezultātiem, tai skaitā par nodokļu nomaksu.

Lai tas būtu iespējams, vispirms ir jāaugšupielādē iestatījumi no Grāmatvedības uz algu sarakstu.

Lai augšupielādētu 1C no 1C grāmatvedības uz 1C algu - atlasiet izvēlnes vienumu Pakalpojums/Datu apmaiņa ar algu/Augšupielādēt datus grāmatvedībā.

Pirmo reizi augšupielādējot 1C, neaizmirstiet atzīmēt izvēles rūtiņu “Informācija par 1C augšupielādi jaunā informācijas bāzē”.

Kā augšupielādēt sākotnējo informāciju algā - skatiet nākamo rakstu 1C augšupielāde.

Izkraut ZP-BU 1C

Pēc tam, kad Algā ir ielādēta sākotnējā informācija no Grāmatvedības nodaļas, jūs varat augšupielādēt uzkrājumus no Algas uz Grāmatvedību.

Sadaļā Alga izvēlieties izvēlni Pakalpojums/Datu apmaiņa/Datu lejupielāde grāmatvedības programmā.

1C augšupielādes iestatījumu veidlapā pēc noklusējuma ir jāizvēlas tikai periods un ceļš, kurā vēlaties augšupielādēt datu failu.

1C augšupielādes formāts tiek parādīts kā hipersaite - zilā tekstā. To var mainīt, noklikšķinot uz hipersaites un izvēloties citu uzskaites konfigurāciju.

Izkraut BU-UT 1C

Lai augšupielādētu 1C no Grāmatvedības uz tirdzniecības pārvaldību, jums ir jāizveido maiņas iestatījumi. Tas ļaus jums veikt ne tikai vienreizēju 1C augšupielādi, bet arī izveidot pilnvērtīgu periodisku apmaiņu, kā tas ir.

Lai veiktu iestatījumus, izvēlieties izvēlnes vienumu Pakalpojums/Datu apmaiņa ar Tirdzniecības vadību/Iestatīt datu apmaiņu grāmatvedībā.

Iestatījumi tiek izveidoti, izmantojot “vedni”.

Mēs neiesim vieglo ceļu, un visus iestatījumus kontrolēsim paši, lai to izdarītu, jums jāizvēlas darbības režīms Eksperts.

Tā kā mēs veidojam iestatīšanu no nulles, mēs atlasīsim “Izveidot apmaiņas iestatījumu” (attiecīgi jūs varat “turpināt”, ja vedņa darbību pārtraucāt agrāk, vai mainīt, ja vednis tika pabeigts).

Šī apmaiņas iestatīšana tiek veikta divās datu bāzēs - vispirms vienā, tad otrā.

Attiecīgi mēs atlasīsim “Izveidot, izmantojot failu”, ja Tirdzniecības pārvaldībā sākāt izveidot jaunu no nulles, un šeit jums ir jāpabeidz iestatīšana (līdzīgi, ja sākat grāmatvedību, tas būs jāpabeidz tirdzniecības pārvaldībā) .

Iestatījumi “caur failu” apmaiņai ir vienkārši un nav parādīti šeit attēlos. Bet “tiešajam” COM savienojumam šeit ir piemēri.

Piemēram, ja Trade Management ir “fails” - tas atrodas diskā. .

Piemēram, ja Tirdzniecības pārvaldība atrodas 1C serverī. Servera un datu bāzes nosaukums ir .

Ceļš uz failu datu bāze, kā arī serveris un serverī esošās datu bāzes nosaukums tiek parādīti 1C datu bāzes atlases logā.

Šeit jānorāda, vai plānojat kaut ko lejupielādēt no Trade Management. Ja tā, tad šī ir “divvirzienu” apmaiņa.

Mēs varam norādīt filtrus augšupielādētajiem dokumentiem. Piemēram, attiecībā uz organizācijām.

Nākamajā lapā ir norādīts periods, no kura gaidāma apmaiņa, kā arī saraksts ar dokumentiem, kas tiks augšupielādēti.

Tas pabeidz pirmo iestatīšanas daļu. Pamatojoties uz rezultātiem, 1C izveido iestatījumu failu. Tagad jums jāiet uz Tirdzniecības pārvaldību un tur jāturpina iestatīšana, atlasot opciju “Turpināt lietot failu” un norādot šo failu.

Pēc apmaiņas iestatīšanas no abām datu bāzēm 1C piedāvā veikt sākotnējo 1C direktoriju augšupielādi un salīdzināt objektus. Šis ir 1C primārās izkraušanas analogs apmaiņas turpmākai normālai darbībai.

Pievērsiet uzmanību šim punktam, ja Trade Management nav tukša datu bāze, tai ir savi direktoriji, it īpaši, ja tie ir uzturēti ilgu laiku.

Ja neesat pārliecināts par šo punktu:

• Izveidojiet abu datu bāzu dublējumus (īpaši, ja apmaiņa ir divvirzienu)
• Lūdziet lietotājus nestrādāt šajās datu bāzēs, kamēr veicat sākotnējo 1C izkraušanu (nedēļas nogalēs un vakaros :)
• Izlādējiet 1C, pārbaudiet, vai direktoriji nav dublēti
• Ja kaut kas nav kārtībā, atgriezieties pie dublējuma.

Izlādējiet UT-Retail 1C

Tipiskā 1C mazumtirdzniecības konfigurācija bieži tiek izmantota kopā ar tirdzniecības pārvaldības konfigurāciju. Parasti UT izmanto mazumtirdzniecības veikalos, bet mazumtirdzniecību birojā.

Mēs aplūkojam piemēru, kā izveidot UT 11. izdevuma apmaiņu ar mazumtirdzniecību.

Interfeisā atlasiet Administrēšana, pēc tam Datu apmaiņa, Pievienot/izveidot apmaiņu ar mazumtirdzniecības konfigurāciju.

Apmaiņas iestatīšana notiek divās datu bāzēs – vispirms vienā, tad otrā.

Attiecīgi mēs atlasīsim “Turpināt”, ja mazumtirdzniecībā sākāt izveidot jaunu no nulles, un šeit jums ir jāpabeidz iestatīšana (līdzīgi, ja sākat Tirdzniecības pārvaldību, tā būs jāpabeidz mazumtirdzniecībā).

Šajā cilnē jūs izvēlaties informācijas pārsūtīšanas metodi starp divām datu bāzēm - izmantojot failu (kopīgošanu). Izlaidiet šo lapu, ja vēlaties izmantot citu opciju.

Šajā cilnē jūs izvēlaties informācijas pārsūtīšanas metodi starp divām datu bāzēm — izmantojot failu (FTP). Izlaidiet šo lapu, ja vēlaties izmantot citu iespēju.

Galīgo iestatījumu lapa. Lai norādītu precizējumus, noklikšķiniet uz pogas “Konfigurēt ierobežojumus”.

Šeit var norādīt datumu, no kura tiks augšupielādēti dokumenti, kā arī atlases (filtrus) pēc organizācijām, noliktavām utt.

Korespondences cilnē varat konfigurēt dažu direktoriju korespondenci (veikali = nodaļas un kases).

Tas pabeidz pirmo iestatīšanas posmu. Rezultātā tika izveidots iestatījumu fails. Jums jāpabeidz iestatīšana mazumtirdzniecības datu bāzē, norādot Turpināt, izmantojot failu.

Šī metode ir vienkārša. Tās būtība ir tāda, ka objekts Tabulārais dokuments ir metodes:

• Pierakstīt (< ИмяФайла>, < ТипФайлаТаблицы >) augšupielādēt datus failā;
• Lasīt (< ИмяФайла>, < СпособЧтенияЗначений >), lai ielādētu datus no faila.

Uzmanību!

Write() metode ir pieejama gan klientā, gan serverī. Lasīšanas () metode ir pieejama tikai servera pusē. Tas ir jāatceras
plānojot klienta un servera mijiedarbību.

Apskatīsim piemēru izklājlapas dokumenta saglabāšanai failā. Ir nepieciešams izveidot un aizpildīt TabularDocument objektu jebkurā veidā, un izkraušana failam tiek veikta tikai viena rindiņa:

TabDoc . Write(FilePath, TabularDocumentFileType. XLSX);

Šeit TabDoc- veidojas izklājlapas dokuments, Ceļš uz failu— augšupielādējamā faila nosaukums, TabularDocumentFileType.XLSX— izveidotā faila formāts. Tiek atbalstīti šādi Excel formāti:

• XLS95 - Excel 95 formāts;
• XLS97 - Excel 97 formāts;
• XLSX ir Excel 2007 formāts.

TabDoc = jauns tabulas dokuments;
TabDoc . Lasīt(PathToFile, Lasīšanas metodeTabularDocumentValues.Value);

Šeit Ceļš uz failu— ceļš uz lejupielādēto Excel failu. Tabulas dokumenta vērtību nolasīšanas metode. Vērtība nosaka, kā jāinterpretē no avota dokumenta nolasītie dati. Pieejamās opcijas:

• Nozīme;
• Teksts.

Apmaiņa, izmantojot OLE

Apmaiņa, izmantojot OLE automatizācijas tehnoloģiju, iespējams, ir visizplatītākā programmatūra darbam ar Excel faili. Tas ļauj izmantot visas Excel sniegtās funkcionalitātes, taču ir lēnāks salīdzinājumā ar citām metodēm. Lai apmainītos ar OLE, ir nepieciešama MS Excel instalēšana:

• Gala lietotāja datorā, ja apmaiņa notiek klienta pusē;
• 1C:Enterprise servera datorā, ja apmaiņa notiek servera pusē.

Piemērs izkraušana:

// Izveidojiet COM objektu
Excel = jauns COMObject("Excel.Application");
// Atspējot brīdinājumus un jautājumus
Excel . DisplayAlerts = False;
// Izveidojiet jaunu grāmatu
Grāmata = Excel. Darba burtnīcas. Pievienot();
// Pozīcija uz pirmās lapas
Lapa = Grāmata. Darba lapas(1);

// Ierakstiet šūnā vērtību
Lapa . Šūnas (rindas numurs, kolonnas numurs). Vērtība = CellValue;

// Saglabājiet failu
Grāmata . SaveAs(Faila nosaukums);

Excel . Iziet ();
Excel = 0;

Piemēri lasīšana:

// -- 1. IESPĒJA --

// Izveidojiet COM objektu
Excel = jauns COMObject("Excel.Application");
// Atveriet grāmatu
Grāmata = Excel. Darba burtnīcas. Atvērt( Ceļš uz failu );

Lapa = Grāmata. Darba lapas(1);

// Grāmatas aizvēršana
Grāmata . Aizvērt (0);

// Aizveriet programmu Excel un atbrīvojiet atmiņu
Excel . Iziet ();
Excel = 0;

// —— 2. IESPĒJA ——

// Atveriet grāmatu
Grāmata = GetCOMObject( Ceļš uz failu );
// Pozicionēšana uz vēlamās lapas
Lapa = Grāmata. Darba lapas(1);

// Lasiet šūnas vērtību, parasti šeit atrodas šūnu šķērsošanas cilpa
CellValue = lapa. Šūnas (rindas numurs, kolonnas numurs). Vērtība;

// Grāmatas aizvēršana
Grāmata . Pieteikums. Qui t();

Priekš apvedceļš Visām Excel darblapas aizpildītajām rindām varat izmantot šādas metodes:

// -- 1. IESPĒJA --
Rindu skaits = lapa. Šūnas (1, 1). SpecialCells(11). Rinda;
Ja rindas skaits = 1 pēc rindu skaita, cikls
CellValue = lapa. Šūnas (rindas numurs, kolonnas numurs). Vērtība;
EndCycle;

// —— 2. IESPĒJA ——
RindasNumurs = 0;
Kamēr patiesības cikls
RindasNumurs = RindasNumurs + 1 ;
CellValue = lapa. Šūnas (rindas numurs, kolonnas numurs). Vērtība;
Ja NAV ValueFilled(CellValue) Tad
Pārtraukt;
endIf;
EndCycle;

Tā vietā, lai secīgi šķērsotu visas lapas rindas, varat izmest visus datus masīvā un strādāt ar viņu. Šī pieeja būs ātrāka, lasot lielu datu apjomu:

TotalColumns = lapa. Šūnas (1, 1). SpecialCells(11). Kolonna;
TotalRows = Lapa. Šūnas (1, 1). SpecialCells(11). Rinda;

Novads = Lapa. Diapazons(Sheet. Cells(1, 1), Sheet. Cells(Total Rows,Total Columns));
Dati = Reģions. Vērtība. Izkraut();

Tālāk esošajā tabulā parādīti populārākie rekvizīti un metodes darbam ar Excel, izmantojot OLE:

Darbība	Kods	Komentārs
Darbs ar lietojumprogrammu
Lietojumprogrammas loga redzamības iestatīšana	Excel . Redzams= Nepatiesi;
Brīdinājuma izvades režīma iestatīšana (rādīt/nerādīt)	Excel . Display Alerts= Nepatiesi;
Lietojumprogrammas aizvēršana	Excel . Iziet ();
Darbs ar grāmatu
Jaunas grāmatas izveide	Grāmata = Excel. Darba burtnīcas. Pievienot();
Esošas darbgrāmatas atvēršana	Grāmata = Excel. Darba burtnīcas. Atvērt (Faila nosaukums);
Grāmatas saglabāšana	Grāmata . Saglabāt kā (faila nosaukums);
Grāmatas aizvēršana	Grāmata . Aizvērt (0);
Darbs ar lapu
Pašreizējās lapas iestatīšana	Lapa = Grāmata. Darba lapas (SheetNumber);
Nosaukuma iestatīšana	Lapa . Vārds = Vārds;
Aizsardzības iestatīšana	Lapa . Aizsargāt();
Aizsardzības noņemšana	Lapa . Noņemt aizsardzību();
Lapas orientācijas iestatīšana	Lapa . Lapas iestatīšana. Orientācija = 2;	1 - portrets, 2 - ainava
Kreisās robežas iestatīšana	Lapa . Lapas iestatīšana. LeftMargin = Excel. Centimetri līdz punktiem (centimetri);
Augšējās robežas iestatīšana	Lapa . Lapas iestatīšana. TopMargin = Excel. Centimetri līdz punktiem (centimetri);
Labās robežas iestatīšana	Lapa . Lapas iestatīšana. RightMargin = Excel. Centimetri līdz punktiem (centimetri);
Apakšējās robežas iestatīšana	Lapa . Lapas iestatīšana. BottomMargin = Excel. Centimetri līdz punktiem (centimetri);
Darbs ar rindām, kolonnām, šūnām
Kolonnas platuma iestatīšana	Lapa . Kolonnas(SlejasNumurs). ColumnWidth = platums;
Dzēst rindu	Lapa . Rindas (Rindas numurs). Dzēst();
Kolonnas noņemšana	Lapa . Kolonnas(SlejasNumurs). Dzēst();
Dzēst šūnu	Lapa . Šūnas (rindas numurs, kolonnas numurs). Dzēst();
Vērtības iestatīšana	Lapa . Šūnas (rindas numurs, kolonnas numurs). Vērtība = vērtība;
Šūnu sapludināšana	Lapa . Diapazons(Lapa. Šūnas(RindasNumurs, KolonnasNumurs), Lapa. Šūnas(RindasNumurs1, KolonnasNumurs1)). Apvienot();
Fonta iestatīšana	Lapa . Šūnas (rindas numurs, kolonnas numurs). Fonts. Vārds = FontName;
Fonta lieluma iestatīšana	Lapa . Šūnas (rindas numurs, kolonnas numurs). Fonts. Izmērs = fonta lielums;
Treknraksta fonta iestatīšana	Lapa . Šūnas (rindas numurs, kolonnas numurs). Fonts. Treknrakstā = 1 ;	1 — treknraksts, 0 — normāli
Slīpraksta iestatīšana	Lapa . Šūnas (rindas numurs, kolonnas numurs). Fonts. Kursīvs = 1 ;	1 — slīpraksts, 0 — normāls
Pasvītrotā fonta iestatīšana	Lapa . Šūnas (rindas numurs, kolonnas numurs). Fonts. Pasvītrot = 2 ;	2 - pasvītrots, 1 - nē

Lai noskaidrotu, kurš īpašums ir jāmaina vai kādu metodi zvanīt, varat izmantot makro Excel. Ja ierakstāt makro ar nepieciešamajām darbībām, tad varat apskatīt ierakstītā makro VBA kodu.

Izmantojot COMSafeArray

Lejupielādējot lielu datu apjomu no 1C programmā Excel, varat izmantot objektu, lai paātrinātu COMSafeArray. Saskaņā ar sintakses palīga definīciju COMSafeArray ir objekta iesaiņojums daudzdimensiju masīvs SafeArray no COM. Ļauj izveidot un izmantot SafeArray datu apmaiņai starp COM objektiem. Vienkārši sakot, tas ir vērtību masīvs, ko var izmantot, lai apmainītos starp lietojumprogrammām, izmantojot OLE tehnoloģiju.

// Izveidojiet COMSafeArray
ArrayCom = jauns COMSafeArray("VT_Variant" , TotalColumns, TotalRows);
// Aizpildiet COMSafeArray
Priekš Lapa = 0 pēc TotalLines — 1 cikls
Priekš Skaits = 0 kopējais kolonnu skaits — 1 cikls
ArrayKom . SetValue (skaits, lapa, vērtība);
EndCycle;
EndCycle;
// Excel darblapas apgabala piešķiršana vērtībām no COMSafeArray
Lapa . Diapazons (Lapa. Šūnas (1, 1), Lapa. Šūnas (Rindas kopā, Kolonnas kopā)). Vērtība = ArrayCom;

Apmaiņa caur ADO

Excel fails, apmainoties ar ADO, ir datu bāze, kurai var piekļūt, izmantojot SQL vaicājumus. MS Excel instalēšana nav nepieciešama, taču ir jābūt ODBC draiverim, ar kuru tiks nodrošināta piekļuve. Izmantojamais ODBC draiveris tiek noteikts, norādot faila savienojuma virkni. Parasti nepieciešamais draiveris jau ir instalēts datorā.

Apmaiņa caur ADO ir manāmi ātrāka nekā apmaiņa caur OLE, taču, augšupielādējot, nav iespējams izmantot Excel funkcionalitāti šūnu noformēšanai, lapu izkārtošanai, formulu iestatīšanai utt.

Piemērs izkraušana:

Savienojums = jauns COMObject("ADODB.Savienojums");

Savienojums . ConnectionString = "

|Datu avots=" + Faila nosaukums + ";
;
Savienojums . Atvērt (); // Atveriet savienojumu

// Izveidojiet komandai COM objektu
Komanda = jauns COMObject("ADODB.Command");
Komanda

// Komandas teksta piešķiršana tabulas izveidei
Komanda . Komandas teksts = "IZVEIDOT TABULU [1. lapa] (1. sleja char(255), 2. kolonnas datums, 3. slejas int, 4. kolonna peld)";
Komanda . Izpildīt(); // Izpildi komandu

// Komandas teksta piešķiršana tabulas rindas pievienošanai
Komanda . Komandas teksts = "INSERT INTO [Sheet1] (Slee1, Column2, Column3, Column4) vērtības ('abvwhere', '8/11/2017', '12345', '12345,6789')";
Command.Execute(); // Izpildi komandu

// Noņemiet komandu un aizveriet savienojumu
Komanda = Undefined;
Savienojums . Aizvērt();
Savienojums = Nedefinēts;

Lai izveidotu jaunu lapu un izveidotu tās struktūru, varat izmantot objektus ADOX.Katalogs Un ADOX.Tabula. Šajā gadījumā kods izskatīsies šādi:

// Izveidojiet COM objektu darbam ar grāmatu
Grāmata = Jauns COMObject("ADOX.Katalogs");
Grāmata . ActiveConnection = savienojums;

// Izveidojiet COM objektu, lai strādātu ar datu struktūru lapā
Tabula = jauns COMObject("ADOX.Tabula");
Tabula . Nosaukums = "1. lapa" ;
Tabula . Kolonnas. Pievienot("1. kolonna", 202);
Tabula . Kolonnas. Pievienot("2. kolonna", 7);
Tabula . Kolonnas. Pievienot("3. kolonna", 5);
Tabula . Kolonnas. Pievienot("4. kolonna", 5);

// Izveidojiet darbgrāmatā lapu ar aprakstīto struktūru
Grāmata . Tabulas. Pievienot(tabula);
Tabula = Undefined;
Grāmata = Undefined;

Iepriekš minētajā piemērā metodē

Tabula . Kolonnas. Pievienot(“1. kolonna”, 202.);

otrais parametrs norāda kolonnas veidu. Parametrs nav obligāts, šeit ir dažas kolonnas veida vērtības:

• 5 - adDouble;
• 6 - adValūta;
• 7 - addDate;
• 11 - adBoolean;
• 202 - adVarWChar;
• 203 — adLongVarWChar.

Piemērs lasīšana:

// Izveidojiet savienojumam COM objektu
Savienojums = jauns COMObject("ADODB.Savienojums");

// Iestatiet savienojuma virkni
Savienojums . ConnectionString = "
|Provider=Microsoft.ACE.OLEDB.12.0;
|Datu avots=" + Faila nosaukums + ";
|Extended Properties=""Excel 12.0 XML;HDR=YES"";";
Savienojums . Atvērt (); // Atveriet savienojumu

// Izveidojiet COM objektu, lai saņemtu atlasi
Select = New COMObject("ADODB.Recordset");
Pieprasījuma teksts = "SELECT * FROM [Sheet1$]";

// Izpildi pieprasījumu
Paraugs . Atvērt(QueryText, Savienojums);

// Apiet parauga rezultātu
Vēl nav izlase. EOF() cilpa
1. kolonnas vērtība = atlase. Lauki. Vienums ("1. kolonna"). Vērtība ; // Piekļuve pēc kolonnas nosaukuma
Column2Value = atlase. Lauki. Vienums (0). Vērtība; // Piekļuve pēc kolonnas indeksa
Paraugs . MoveNext();
EndCycle;

Paraugs . Aizvērt ();
Paraugs = Nedefinēts;
Savienojums . Aizvērt ();
Savienojums = Nedefinēts;

Savienojuma virknē parametrs HDR nosaka, kā tiks uztverta pirmā rinda uz lapas. Iespējamie varianti:

• JĀ — pirmā rinda tiek uzskatīta par kolonnu nosaukumiem. Vērtībām var piekļūt pēc nosaukuma un kolonnas indeksa.
• NĒ — pirmā rinda tiek uzskatīta par datiem. Vērtībām var piekļūt tikai ar kolonnas indeksu.

Šie piemēri aptver tikai dažus ADO objektus. ADO objektu modelis sastāv no šādiem objektiem:

• savienojums;
• Komanda;
• ierakstu kopums;
• Ieraksts;
• Lauki;
• Straume;
• Kļūdas;
• parametri;
• Īpašības.

Augšupielādēt bez programmēšanas

Lai saglabātu datus no 1C uz Excel, ne vienmēr ir ieteicams ķerties pie programmēšanas. Ja Enterprise režīmā lietotājs var parādīt lejupielādei nepieciešamos datus, tad tos Excel var saglabāt bez programmēšanas.

Lai saglabātu izklājlapas dokumentu (piemēram, atskaites rezultātu), varat izsaukt komandu Saglabāt vai Saglabāt kā… galvenā izvēlne.

Atvērtajā logā ir jāizvēlas saglabātā faila direktorijs, nosaukums un formāts.

Lai saglabātu datus dinamiskie saraksti(piemēram, vienumu saraksts), jums ir:

1. Izvadiet datus izklājlapas dokumentā, izmantojot komandu Vairāk ⇒ Saraksts...;
2. Saglabājiet izklājlapas dokumentu vajadzīgajā formātā.

Neskatoties uz to, ka 1C ir vispopulārākais, ērtākais un uzticamākais informācijas sistēma, kurā ir risinājumu kopums absolūti visu biznesa procesu automatizēšanai un apstrādei jebkura lieluma un darbības jomas uzņēmumos, lietotājiem joprojām ir ikdienas nepieciešamība lejupielādēt datus no 1C uz trešo pušu programmas vai faili. Šajā rakstā mēs apskatīsim, kas ir izkraušana no 1C, un mēs parādīsim, kā izkraut no 1C un kādas problēmas var rasties šī procesa laikā.

Dati, kurus var lejupielādēt no 1C

1C jebkurā konfigurācijā parasti atbalsta šādu datu augšupielādi:

• Drukas veidlapas;
• Pārskati;
• Tabulas un saraksti.

Datu augšupielāde no 1C 8.3 ir iespējama daudzos populāros formātos:

• Microsoft Excel;
• Microsoft Word;
• Augšupielādēt CSV formātā;
• HTML un citi.

Drukātu veidlapu un atskaišu augšupielāde

Jebkuru drukātu veidlapu vai pārskatu 1C var saglabāt vēlamajā formātā. Lai to izdarītu, jums būs jāatver veidlapa vai atskaite un pēc tam atlasiet to galvenajā izvēlnē Fails — Saglabāt kā.

Pēc tam tiks atvērts faila saglabāšanas logs, kurā būs norādīts faila nosaukums un veids:

Iespējamas problēmas izkraujot no 1C

Tas ir saistīts ar faktu, ka iespiesta forma vai pārskats pašlaik nav aktivizēts. Lai drukātā veidlapa būtu pieejama saglabāšanai, jums vienkārši jānoklikšķina ar peli jebkurā vietā uz tās:

Augšupielādēt programmā Excel

Lai apstrādātu datus vispopulārākajā tabulas formātā, nepieciešama atbilstoša augšupielāde. Lai saglabātu nepieciešamos datus Excel formātā, faila saglabāšanas dialoglodziņā jānorāda lapas veids Excel2007-...(*.xlsx). Retāk ir nepieciešams saglabāt datus vecajā Excel lapas formātā (*.xls):

Tāpat, izvēloties vēlamo formātu, varat augšupielādēt no 1C uz PDF, no 1C uz WORD, no 1C uz CSV un arī citos formātos.

Patvaļīgu tabulu augšupielāde no 1C

Šajā sadaļā ir parādīts, kā varat augšupielādēt datus, ja jums ir tiesības to darīt.

1C ir izstrādājis standarta mehānismu, kas ļauj augšupielādēt jebkuru sarakstu (piemēram, dokumentu sarakstu vai direktorijas elementus). Lai to izdarītu, jebkura saraksta komandu panelī grupā "Vairāk" pieejama komanda "Saņemt sarakstu":

Informācija tiks parādīta īpašā izklājlapas dokumentā. Šis dokuments izskatās tāpat kā jebkurš cits 1C pārskats, un to var augšupielādēt tādā pašā veidā, izmantojot komandu Fails — Saglabāt kā:

Kā augšupielādēt datus, kas nav redzami sarakstā

Bieži vien saraksta izkraušanas uzdevumu pavada nepieciešamība pievienot kolonnas, kas noteikti ir dokumentā (direktorijā), bet kaut kādu iemeslu dēļ pašreizējā sarakstā nav redzamas. Piemērs: sarakstā “Klienti” pievienojiet augšupielādei lauku “Tālrunis”, kas tiek parādīts tikai papildu panelī labajā pusē:

Lai tālrunis tiktu izlādēts no 1C, tas vispirms ir jāpievieno sarakstam. Lai to izdarītu, jums ir jāizsauc komanda "Vairāk — mainīt formu." Tālāk kolonnu sarakstā jāatrod mums vajadzīgais. Šeit ir viens triks: izstrādātāji tipiskas konfigurācijas gandrīz vienmēr pievienojiet lauku "Saite". Ja jūs stāvat uz tā un pēc tam nospiediet pogu tad mēs redzēsim visus iespējamos šī direktorija laukus. Lauka atrašana "Telefons" un atzīmējiet lietošanas rūtiņu.

Pēc tam klientu datu bāzi ar tālruņu numuriem var augšupielādēt failā, izmantojot standarta komandu "Saņemt sarakstu" un pārdot konkurentiem.

Kods 1C v 8.x // Procedūra lejupielādē datus no norādītā direktorija eksporta režīmā uz failu Microsoft Excel formātā
// ar norādīto nosaukumu, izmantojot datu konvertēšanu uz skaitļa tipu un virknes tipu;
Procedūra BasicActionsFormsExport (poga)
Mēģinājums
Mēģinājums
// Ielādējiet Microsoft Excel objektu
Statuss("Notiek datu augšupielāde no 1C uz Microsoft Excel...");
ExcelApplication = jauns COMObject("Excel.Application");
Izņēmums
Report ("Kļūda, startējot Microsoft Excel."
+ Simboli.PS + ErrorDescription(), MessageStatus.Uzmanību);
Atgriezties;
EndAttempt;

// Izveidojiet grāmatu, pēc noklusējuma tai jau ir lapas
Grāmata = ExcelApplication.WorkBooks.Add();

// Izmantojiet Excel darbgrāmatas pirmo lapu
Lapa = Book.WorkSheets(1);

// Izveidojiet dokumenta galveni lapas pirmajā rindā
Kolonna = 1;
Katrai TP cikla lapai
Ja lapa.Izlādēt Tad
Sheet.Cells(1, Column).Vērtība = page.AttributeName;
Kolonna = kolonna + 1;
endIf;
EndCycle;

// Augšupielādējiet direktoriju datus
atlase = Katalogi[Kataloga nosaukums].Izvēlēties();
SheetString = 2;
Kamēr atnest.Next() Loop
Kolonna = 1;
Katrai TP cikla lapai

Ja lapa.Izlādēt Tad
Mēģinājums
// Iestatiet vērtību rindā un kolonnā
Ja TypeValue(selection[page.AttributeName])=Tips("Numurs"), tad
// Iestatiet skaitļa veida formātu
Sheet.Cells(SheetRow, Column).NumberFormat = "0,00";

Formāts(atlase[lapa.Atribūta nosaukums],"CH=0");
citādi
// Visiem citiem veidiem iestatiet formātu uz "Teksts"
Sheet.Cells(SheetRow, Column).NumberFormat = "@";
Lapa.Šūnas(SheetRow, Column).Vērtība =
Line(atlase[lapa.Atribūta nosaukums]);
endIf;
izņēmums
// kļūdas gadījumā parādīt rindas un kolonnas numuru
Report("Kļūda, iestatot vērtību: " +
atlase[lapas atribūta nosaukums]);
Report("Lapa: " +SheetLine+ "Skaits: " +
Kolonna + " Rec: " + lapa.Rekvizītu nosaukums);
EndAttempt;
Kolonna = kolonna + 1;
endIf;

EndCycle;
SheetString = SheetString + 1;
State("Eksportēt no 1C uz Excel" + SheetString);
EndCycle;

// Saglabājiet izveidoto grāmatu xls failā
Book.SaveAs(Faila nosaukums);

// Noteikti aizveriet savienojumu ar COM objektu, lai atbrīvotu atmiņu
ExcelApplication.Quit();

Notify("Fails veiksmīgi augšupielādēts: " + faila nosaukums);

Izņēmums
// Kļūdu apstrāde, eksportējot datus no 1C uz Excel
Report("Kļūda rakstot faila datus:" + Faila nosaukums);
Report(ErrorDescription());
Mēģinājums
ExcelApplication.Quit();
Izņēmums
EndAttempt;
EndAttempt;
Procedūras beigas
Kods 1C v 7.x // Vienkāršākais piemērs izvade no 1C:Enterprise 7.7 uz MS Excel. Nodrošinot, ka darbgrāmatā ir viena lapa,
//fonta lieluma, treknuma un krāsas, kolonnu platuma, rāmju un šūnu aizpildījuma iestatīšana. Teksta izlīdzināšana
//šūnas, rindu grupēšana, šūnu skaita formāta iestatīšana, apgabala iesaldēšana.

Procedūras izvade()
Mēģinājums
Application=CreateObject("Excel.Application");
Izņēmums
Report(ErrorDescription(),"!!!");
Report ("MS Excel var nebūt instalēts šajā datorā.");
Atgriezties;
EndAttempt;

//Izveidot darbgrāmatu

WorkBook=Application.WorkBooks.Add();
//Loga iegūšana

Window=WorkBook.Windows(1);
//Iestatiet logu neredzamu, lai paātrinātu izvadi

Logs.Redzams=0;
//Nodrošina, lai darbgrāmatā būtu viena lapa

Ja WorkBook.Worksheets.Count=0 Tad
WorkBook.Worksheets.Add();
Citādi
Application.DisplayAlerts=0;//neizdod brīdinājumus

Kamēr WorkBook.Worksheets.Count>1 cikls
WorkBook.Worksheets(1).Delete();
EndCycle;
Application.DisplayAlerts=-1;//atjauno brīdinājuma karogu

endIf;
//Darblapas iegūšana

Worksheet=WorkBook.Worksheets(1);
//Iestatiet darblapas nosaukumu

Worksheet.Name="Piemēra izvade";

//Dokumenta nosaukums

Worksheet.Range("A1").Value="Piemēra izvade no 1C:Enterprise programmā MS Excel";!}
Worksheet.Range("A2").Value="today"+ТекущаяДата();!}
Worksheet.Range("A1:A2").Font.Size=14;//fonta lielums

Worksheet.Range("A1:A2").Font.Bold=-1;//bold font

//Iestatīt kolonnas platumu

Worksheet.Columns(1).ColumnWidth=60;
Worksheet.Columns(2).ColumnWidth=15;
Worksheet.Columns(3).ColumnWidth=15;

//Dokumenta galvene

Worksheet.Range("A4").Value="Pirmā kolonna";!}
Ja s=7 līdz 10 Cikls//kadri

Worksheet.Range("A4").Borders(s).LineStyle=1;
Darblapa. Diapazons("A4"). Apmales(s). Svars=-4138;//xlVidējs

EndCycle;
Worksheet.Range("A4").Interior.ColorIndex=15;//aizpildīt ar pelēku

Worksheet.Range("A4").HorizontalAlignment=-4108;//līdzināt tekstu centrā

Worksheet.Range("B4").Value="Second";!}
Ciklam s=7 līdz 10
Worksheet.Range("B4").Borders(s).LineStyle=1;
Darblapa.Diapazons("B4").Robežas(s).Svars=-4138;
EndCycle;
Worksheet.Range("B4").Interjers.ColorIndex=15;
Worksheet.Range("B4").HorizontalAlignment=-4108;

Worksheet.Range("C4").Value="Third";!}
Ciklam s=7 līdz 10
Worksheet.Range("C4").Borders(s).LineStyle=1;
Darblapa.Diapazons("C4").Robežas(s).Svars=-4138;
EndCycle;
Worksheet.Range("C4").Interjers.ColorIndex=15;
Worksheet.Range("C4").HorizontalAlignment=-4108;

//Lai grupētu rindas:
Worksheet.Outline.SummaryRow=0;//"kopsavilkuma" rindas tiek rādītas augšpusē (ja apakšā, tad 1)

//Izvades virknes
Worksheet.Range("A5").Value="Analytics Object";!}
Worksheet.Range("A5").Font.ColorIndex=5;//fonta krāsa — zila

Worksheet.Range("B5").Vērtība=123,45;
Worksheet.Range("B5").Font.ColorIndex=5;
Worksheet.Range("C5").Vērtība=678,9;
Worksheet.Range("C5").Font.ColorIndex=5;

Worksheet.Range("A6").Value="Analytics Object";!}
Worksheet.Range("A6").Font.ColorIndex=3;//fonta krāsa — sarkana

Worksheet.Range("B6").Vērtība=123,45;
Worksheet.Range("B6").Font.ColorIndex=3;
Worksheet.Range("C6").Vērtība=678,9;
Worksheet.Range("C6").Font.ColorIndex=3;

Worksheet.Range("A7").Value="Analytics Object";!}
Worksheet.Range("B7").Vērtība=123,45;
Worksheet.Range("C7").Vērtība=678,9;

Worksheet.Range("A8").Value="Analytics Object";!}
Worksheet.Range("B8").Vērtība=123,45;
Worksheet.Range("C8").Vērtība=678,9;

Worksheet.Range("A9").Value="Analytics objekts";!}
Worksheet.Range("A9").Font.ColorIndex=3;//fonta krāsa — sarkana

Worksheet.Range("B9").Vērtība=123,45;
Worksheet.Range("B9").Fonts.ColorIndex=3;
Worksheet.Range("C9").Vērtība=678,9;
Worksheet.Range("C9").Font.ColorIndex=3;

Worksheet.Range("A10").Value="Analytics Object";!}
Worksheet.Range("B10").Vērtība=123,45;
Worksheet.Range("C10").Vērtība=678,9;

Worksheet.Range("A11").Value="Analytics Object";!}
Worksheet.Range("B11").Vērtība=123,45;
Worksheet.Range("C11").Vērtība=678,9;

Worksheet.Range("A12").Value="Analytics Object";!}
Worksheet.Range("A12").Font.ColorIndex=5;//fonta krāsa — zila

Worksheet.Range("B12").Vērtība=123,45;
Worksheet.Range("B12").Fonts.ColorIndex=5;
Worksheet.Range("C12").Vērtība=678,9;
Worksheet.Range("C12").Fonts.ColorIndex=5;

Worksheet.Range("A13").Value="Analytics Object";!}
Worksheet.Range("A13").Font.ColorIndex=3;//fonta krāsa — sarkana

Worksheet.Range("B13").Vērtība=123,45;
Worksheet.Range("B13").Fonts.ColorIndex=3;
Worksheet.Range("C13").Vērtība=678,9;
Worksheet.Range("C13").Fonts.ColorIndex=3;

Worksheet.Range("A14").Value="Analytics Object";!}
Worksheet.Range("B14").Vērtība=123,45;
Worksheet.Range("C14").Vērtība=678,9;

Worksheet.Range("A15").Value="Analytics Object";!}
Worksheet.Range("B15").Vērtība=123,45;
Worksheet.Range("C15").Vērtība=678,9;

Worksheet.Range("A16").Value="Analytics Object";!}
Worksheet.Range("A16").Font.ColorIndex=3;//fonta krāsa — sarkana

Worksheet.Range("B16").Vērtība=123,45;
Worksheet.Range("B16").Fonts.ColorIndex=3;
Worksheet.Range("C16").Vērtība=678,9;
Worksheet.Range("C16").Fonts.ColorIndex=3;

Worksheet.Range("A17").Value="Analytics Object";!}
Worksheet.Range("B17").Vērtība=123,45;
Worksheet.Range("C17").Vērtība=678,9;

Worksheet.Range("A18").Value="Analytics Object";!}
Worksheet.Range("B18").Vērtība=123,45;
Worksheet.Range("C18").Vērtība=678,9;

//Iestatiet rāmjus

Ciklam NomStr=5 līdz 18
Ciklam s=7 līdz 10
Worksheet.Range("A"+LineNumber).Apmales(s).LineStyle=1;
Worksheet.Range("B"+LineNumber).Apmales(s).LineStyle=1;
Worksheet.Range("C"+LineNumber).Robežas(s).LineStyle=1;
EndCycle;
EndCycle;

//Rindu grupēšana

Darblapa.Diapazons("7:8").Rindas.Grupa();
Darblapa.Diapazons("10:11").Rindas.Grupa();
Worksheet.Range("14:15").Rindas.Grupa();
Darblapa.Diapazons("17:18").Rindas.Grupa();
Darblapa.Diapazons("6:11").Rindas.Grupa();
Worksheet.Range("13:18").Rindas.Grupa();

//Grupējumu sabrukums līdz pirmajam līmenim

Worksheet.Outline.ShowLevels(1);

//Iestatiet skaitļa formātu

Mēģinājums
Worksheet.Range("B5:C18").NumberFormat="# ##0.00";

Izņēmums
Mēģinājums
Worksheet.Range("B5:C18").NumberFormat="# ##0.00";

Izņēmums
EndAttempt;
EndAttempt;

//Iestatiet lietojumprogrammas un tās loga redzamību

Lietojumprogramma.Redzams=-1;
Logs.Redzams=-1;

//Piespraudiet apgabalu

Worksheet.Range("A5").S_elect();
Window.FreezePanes = -1;
EndProcedure //Izvade