Ruajtja e një dokumenti spreadsheet në excel 1c. Truket e ruajtjes së një dokumenti spreadsheet në Excel për punë të mëtejshme me të

Për punë të mëtejshme me të dhënat e marra në dokumentin e fletëllogaritjes nga sistemi 1C i çdo versioni, ato mund të ruhen në formatin xls (x).

Gjithçka do të ishte mirë, por kur hapet në Excel-e, përdoruesi e kupton menjëherë se diçka nuk është në rregull me tabelën, mirë, po, nuk ka shkurtore për fletët e librit të punës. %)

Pra, ishte në versionin e 7-të të 1C dhe migroi në të 8-tin, po, ka përparim, në 8-ke mund të ruani në format xlsx, formati origjinal i versioneve të fundit të Excel.

Për të zgjidhur problemin, ka disa manipulime të thjeshta, gjëja e parë që i vjen në mendje çdo përdoruesi është të ri-ruaj tabelën në një format tjetër, por edhe atëherë nuk ka asnjë rezultat të dëshiruar, atëherë fillojmë të bëjmë copy-paste në nje liber i ri Excel.
Ekziston një mundësi tjetër, sikur për përdoruesit e avancuar, është të shkoni te cilësimet Excel dhe në seksionin Shtesë, kontrolloni kutinë "Trego shkurtoret e fletës". Është e saktë, por edhe rutinë, në dritën e përpunimit të shpeshtë të të dhënave të marra nga 1C në formën e tabelave të sheshta dhe analizave të mëtejshme të të dhënave në formën e tabelave kryesore dhe mënyrave të tjera të paraqitjes së të dhënave në Excel.

Ai vetë u lodh duke vrapuar nëpër kutitë e kontrollit në të njëjtën mënyrë dhe e zgjidhi problemin, pasi kishte gërmuar në pafundësinë e internetit, për shembull, dhe pasi kishte parë disa zhvillime të tjera, doli të zbatonte një të thjeshtë (për disa është një fizarmonikë me butona, për dikë një paterica, megjithatë, nuk ka asnjë mosmarrëveshje për shijet) zgjidhje mekanizmi automatizimi për problemin me shfaqjen e etiketave të fletëve.

E tëra çfarë ju duhet të bëni është të përdorni dy veti të dritares së Excel:

DisplayWorkbookTabs // flamuri për shfaqjen e fletëve të librit të librit TabRatio // raporti i gjerësisë së zonës së faqeshënuesve të librit të punës me gjerësinë e shiritit të lëvizjes horizontale të dritares (si një numër midis 0 (zero) dhe 1, vlera e paracaktuar 0,6)

TabDocument.Write (FullFileName, TabularDocumentFileType.XLS); Excel = New COMObject ("Excel.Application"); Excel.WorkBooks.Open (FullFileName); Excel.E dukshme = 0; Excel.ActiveWindow.DisplayWorkbookTabs = 1; Excel.ActiveWindow.TabRatio = 0.6; Emri i plotë = Excel.ActiveWorkbook.FullName; Excel.DisplayAlerts = false; Excel.ActiveWorkbook.SaveAs (Emri i plotë, 18); // 18 - xls 97-2003; 51 - xlsx 2007-2013 //Excel.E dukshme = 1; // nëse duhet të punoni më tej me librin
//Excel.Application.Quit () // nëse thjesht dalim

TabDocument.Write (FullFileName, "XLS"); Excel = CreateObject ("Excel.Application"); Excel.WorkBooks.Open (FullFileName); Excel.E dukshme = 0; Excel.ActiveWindow.DisplayWorkbookTabs = 1; Excel.ActiveWindow.TabRatio = 0.6; Emri i plotë = Excel.ActiveWorkbook.FullName; Excel.DisplayAlerts = false; Excel.ActiveWorkbook.SaveAs (Emri i plotë, 18); // 18 - xls 97-2003; 51 - xlsx 2007-2013 //Excel.E dukshme = 1; // nëse duhet të punoni më tej me librin
//Excel.Application.Quit () // nëse thjesht dalim

Kjo metodë është e thjeshtë. Thelbi i saj qëndron në faktin se objekti Dokument tabelor ka metoda:

• Shkruani (< ИмяФайла>, < ТипФайлаТаблицы >) për të ngarkuar të dhëna në një skedar;
• Lexoni (< ИмяФайла>, < СпособЧтенияЗначений >) për të ngarkuar të dhëna nga një skedar.

Kujdes!

Metoda Write () është e disponueshme si në klient ashtu edhe në server. Metoda Lexo () është e disponueshme vetëm në anën e serverit. Mbaje mend këte
kur planifikohet ndërveprimi klient-server.

Le të shqyrtojmë një shembull të ruajtjes së një dokumenti spreadsheet në një skedar. Është e nevojshme të krijohet dhe plotësohet objekti TabularDocument në çfarëdo mënyre, dhe shkarkimin te skedari kryhet vetëm me një rresht:

TabDoc ... Shkruani (FilePath, TabularDocumentFileType. XLSX);

Këtu TabDoc- dokument i gjeneruar i fletëllogaritjes, Rruga për në skedar- emrin e skedarit për të ngarkuar, Lloji i skedarit tabelor të dokumentit.XLSX- formati i skedarit që po krijohet. Formatet e mëposhtme të Excel mbështeten:

• XLS95 - format Excel 95;
• XLS97 - format Excel 97;
• XLSX - Formati Excel 2007.

TabDoc = TabularDocument i ri;
TabDoc ... Lexoni (Rruga drejt skedarit, Si të lexoni vlerat tabelare të dokumentit.);

Këtu Rruga për në skedar- rruga për në skedarin e shkarkuar Excel. Metoda e leximit të vlerave të dokumenteve tabelare. përcakton mënyrën e interpretimit të të dhënave të lexuara nga dokumenti burimor. Opsionet janë:

• Kuptimi;
• Teksti.

Shkëmbim me OLE

Shkëmbimi përmes teknologjisë së automatizimit OLE është ndoshta mënyra më e zakonshme për të punuar në mënyrë programore me skedarët Excel. Ju lejon të përdorni të gjithë funksionalitetin e ofruar nga Excel, por është më i ngadalshëm se metodat e tjera. Për shkëmbim përmes OLE, duhet të instaloni MS Excel:

• Në kompjuterin e përdoruesit përfundimtar, nëse shkëmbimi bëhet në anën e klientit;
• Në kompjuterin e serverit 1C: Enterprise, nëse shkëmbimi bëhet në anën e serverit.

Shembull shkarkimin:

// Krijo një objekt COM
Excel = New COMObject ("Excel.Application");
// Çaktivizo shfaqjen e paralajmërimeve dhe pyetjeve
Excel ... DisplayAlerts = False;
// Krijo një libër të ri
Libër = Excel. Librat e punës. Shto ();
// Pozicionimi në fletën e parë
Fletë = Libër. Fletët e punës (1);

// Shkruani vlerën në qelizë
Fletë ... Qelizat (Numri i linjës, numri i kolonës). Vlera = Vlera e qelizës;

// Ruani skedarin
Libër ... SaveAs (Emri i skedarit);

Excel ... Hiq dorë ();
Excel = 0;

Shembuj të duke lexuar:

// -- OPSIONI 1 --

// Krijo një objekt COM
Excel = New COMObject ("Excel.Application");
// Hap librin
Libër = Excel. Fletore pune. Hapur ( Rruga drejt skedarit);

Fletë = Libër. Fletët e punës (1);

// Mbyll librin
Libër ... Mbylle (0);

// Mbyll Excel dhe liro memorie
Excel ... Hiq dorë ();
Excel = 0;

// —— OPTION 2 ——

// Hap librin
Libër = GetCOMObject ( Rruga drejt skedarit);
// Pozicionimi në fletën e dëshiruar
Fletë = Libër. Fletët e punës (1);

// Lexoni vlerën e qelizës, zakonisht ky është cikli për kalimin e qelizave
Vlera e qelizës = Fletë. Qelizat (Numri i linjës, numri i kolonës). Vlera;

// Mbyll librin
Libër ... Aplikacion. Qui t ();

Për anashkalojë nga të gjitha rreshtat e mbushura të një flete Excel, mund të përdorni teknikat e mëposhtme:

// -- OPSIONI 1 --
Numri i rreshtave = Fletë. Qelizat (1, 1). SpecialCells (11). Rreshti;
Për Numrin e Linjës = 1 Nga Numri i Linjave Loop
Vlera e qelizës = Fletë. Qelizat (Numri i linjës, numri i kolonës). Vlera;
Fundi i Ciklit;

// —— OPTION 2 ——
Numri i linjës = 0;
Ndërsa Cikli i së Vërtetës
LineNumber = LineNumber + 1;
Vlera e qelizës = Fletë. Qelizat (Numri i linjës, numri i kolonës). Vlera;
Nëse NUK është e mbushur me vlerë (CellValue) Pastaj
Aborti;
FundNëse;
Fundi i Ciklit;

Në vend që të përshkoni në mënyrë sekuenciale të gjitha rreshtat e fletës, mundeni hidhni të gjitha të dhënat në një grup dhe punoni me të. Kjo qasje do të jetë më e shpejtë kur lexoni sasi të mëdha të dhënash:

Kolonat totale = Fletë. Qelizat (1, 1). SpecialCells (11). Kolona;
Totali i rreshtave = Fletë. Qelizat (1, 1). SpecialCells (11). Rreshti;

Rajon = Fletë. Gama (Fletë. Qelizat (1, 1), Fleta. Qelizat (Linjat Totale, Kolonat Totale));
Të dhënat = Rajoni. Vlera. Shkarko();

Tabela më poshtë tregon vetitë dhe metodat më të njohura për të punuar me Excel përmes OLE:

Për të gjetur se cila pronë duhet të ndryshohet ose cilën metodë të telefononi, mund të përdorni makro Excel. Nëse regjistroni një makro me veprimet e kërkuara, atëherë mund të shikoni kodin e programit VBA të makros së regjistruar.

Duke përdorur COMSafeArray

Kur shkarkoni sasi të mëdha të dhënash nga 1C në Excel, mund ta përdorni objektin për të shpejtuar COMSafeArray... Sipas përkufizimit nga ndihmësi i sintaksës, COMSafeArray është një mbështjellës objekti mbi një grup shumëdimensional SafeArray nga COM. Ju lejon të krijoni dhe përdorni SafeArray për të shkëmbyer të dhëna midis objekteve COM. Me fjalë të thjeshta, është një grup vlerash që mund të përdoren për të shkëmbyer midis aplikacioneve duke përdorur teknologjinë OLE.

// Krijo COMSafeArray
ArrayCom = COMSafeArray i ri ("VT_Variant", TotalColumns, TotalStrings);
// Plotësoni COMSafeArray
Për Linjat = 0 Sipas linjave totale - 1 cikël
Për Numri = 0 Kolonat Total - 1 Cikli
ArrayCom ... SetValue (Numërimi, Faqe, Vlera);
Fundi i Ciklit;
Fundi i Ciklit;
// Caktoni vlera nga COMSafeArray në zonën e fletës së punës Excel
Fletë ... Gama (Fletë. Qelizat (1, 1), Fleta. Qelizat (Rreshtat gjithsej, Totali i Kolonave)). Vlera = ArrayCom;

Shkëmbim nëpërmjet ADO

Një skedar Excel i shkëmbyer përmes ADO është një bazë të dhënash që mund të aksesohet duke përdorur pyetjet SQL. Nuk ka nevojë të instaloni MS Excel, por duhet të jetë i pranishëm një drejtues ODBC, i cili do të përdoret për akses. Drejtuesi ODBC për t'u përdorur përcaktohet duke specifikuar një varg lidhjeje me skedarin. Zakonisht drejtuesi i kërkuar është i instaluar tashmë në kompjuter.

Shkëmbimi përmes ADO është dukshëm më i shpejtë se shkëmbimi përmes OLE, por kur shkarkohet, nuk ka asnjë mënyrë për të përdorur funksionalitetin Excel për formatimin e qelizave, shënimin e faqeve, vendosjen e formulave, etj.

Shembull shkarkimin:

Connection = New COMOobject ("ADODB.Connection");

Kompleksi ... ConnectionString = "

| Burimi i të dhënave = " + Emri i skedarit + “;
;
Kompleksi ... Hapur (); // Hap lidhjen

// Krijo një objekt COM për komandën
Command = New COMOobject ("ADODB.Command");
Komanda

// Cakto tekstin e komandës për të krijuar tabelën
Komanda ... CommandText = "KRIJO TABELE [Fletë1] (Shkronja e kolonës 1 (255), data e kolonës 2, kolona 3 int, float e kolonës 4)";
Komanda ... Ekzekutoni (); // Ekzekutoni komandën

// Cakto tekstin e komandës për shtimin e një rreshti tabele
Komanda ... CommandText = "INSERT INTO [Fletë1] (Kollona 1, Kolona 2, Kolona 3, Kolona 4) vlerat (' '' '' ',' 8/11/2017 '", '12345', '12345.6789') ";
Komanda.Ekzekutoni (); // Ekzekutoni komandën

// Fshini komandën dhe mbyllni lidhjen
Komanda = E papërcaktuar;
Kompleksi ... Mbylle();
Lidhja = E pacaktuar;

Për të krijuar një fletë të re dhe për të formuar strukturën e saj, mund të përdorni objektet ADOX.Katalog dhe ADOX.Tabela... Në këtë rast, kodi do të marrë formën:

// Krijo një objekt COM për të punuar me librin
Libër = New COMOobject ("ADOX.Catalog");
Libër ... ActiveConnection = Lidhje;

// Krijoni një objekt COM për të punuar me strukturën e të dhënave në fletë
Tabela = New COMOobject ("ADOX.Table");
tabela ... Emri = "Fleta1";
tabela ... Kolonat. Shtojca (“Kolona 1”, 202);
tabela ... Kolonat. Shtojca ("Kollona 2", 7);
tabela ... Kolonat. Shtojca ("Kollona 3", 5);
tabela ... Kolonat. Shtojca ("Kollona 4", 5);

// Krijo një fletë me strukturën e përshkruar në libër
Libër ... Tabelat. Shtojca (Tabela);
Tabela = E papërcaktuar;
Libri = I papërcaktuar;

Në shembullin e mësipërm, në metodën

tabela ... Kolonat. Shtoji(“Kollona 1”, 202);

parametri i dytë specifikon llojin e kolonës. Parametri është opsional, këtu janë disa vlera të llojit të kolonës:

• 5 - addDouble;
• 6 - Monedha e caktuar;
• 7 - data e shtimit;
• 11 - adBoolean;
• 202 - adVarWChar;
• 203 - adLongVarWChar.

Shembull duke lexuar:

// Krijoni një objekt COM për lidhjen
Connection = New COMOobject ("ADODB.Connection");

// Vendosni vargun e lidhjes
Kompleksi ... ConnectionString = "
Ofruesi = Microsoft.ACE.OLEDB.12.0;
| Burimi i të dhënave = " + Emri i skedarit + “;
| Vetitë e zgjeruara = "" Excel 12.0 XML; HDR = PO ""; ";
Kompleksi ... Hapur (); // Hap lidhjen

// Krijo një objekt COM për të marrë përzgjedhjen
Zgjedhja = New COMOobject ("ADODB.Recordset");
Teksti i Kërkesës = "ZGJIDH * NGA [Fleta1 $]";

// Ekzekutoni kërkesën
Mostra ... Hap (QueryText, Connection);

// Anashkaloni rezultatin e përzgjedhjes
NUK ka marrë ende mostra. EOF () Lak
Vlera e kolonës 1 = Mostra. Fushat. Artikulli ("Kollona 1"). Vlera ; // Referencimi sipas emrit të kolonës
Kolona 2-Vlera = Mostra. Fushat. Artikulli (0). Vlera; // Duke iu referuar indeksit të kolonës
Mostra ... MoveNext ();
Fundi i Ciklit;

Mostra ... Mbylle ();
Mostra = E pacaktuar;
Kompleksi ... Mbylle ();
Lidhja = E pacaktuar;

Në vargun e lidhjes, parametri HDR përcakton se si do të perceptohet rreshti i parë në fletë. Opsionet janë:

• PO - rreshti i parë interpretohet si emrat e kolonave. Vlerat mund të arrihen sipas emrit dhe indeksit të kolonës.
• JO - rreshti i parë trajtohet si të dhëna. Vlerat mund të arrihen vetëm nga indeksi i kolonës.

Në shembujt e dhënë, janë diskutuar vetëm disa objekte ADO. Modeli i objektit ADO përbëhet nga objektet e mëposhtme:

• Lidhje;
• Komanda;
• Set regjistrimi;
• Regjistro;
• Fushat;
• Rrjedha;
• Gabimet;
• Parametrat;
• Vetitë.

Ngarkoni pa programim

Për të kursyer të dhëna nga 1C në Excel, nuk këshillohet gjithmonë t'i drejtoheni programimit. Nëse në modalitetin Enterprise përdoruesi mund të shfaqë të dhënat e kërkuara për ngarkim, atëherë është e mundur që ato të ruhen në Excel pa programim.

Për të ruajtur një dokument spreadsheet (për shembull, një rezultat raporti), mund të telefononi komandën Ruaj ose Ruaje si… menuja kryesore.

Në dritaren që hapet, duhet të zgjidhni drejtorinë, emrin dhe formatin e skedarit të ruajtur.

Për të ruajtur të dhënat nga listat dinamike (për shembull, një listë artikujsh), duhet:

1. Nxjerrja e të dhënave në një dokument spreadsheet duke përdorur komandën Më shumë ⇒ Shfaq listën ...;
2. Ruani dokumentin e tabelës në formatin e kërkuar.

Për punë të mëtejshme me të dhënat e marra në dokumentin e fletëllogaritjes nga sistemi 1C i çdo versioni, ato mund të ruhen në formatin xls (x).

Gjithçka do të ishte mirë, por kur hapet në Excel-e, përdoruesi e kupton menjëherë se diçka nuk është në rregull me tabelën, mirë, po, nuk ka shkurtore për fletët e librit të punës. %)

Pra, ishte në versionin e 7-të të 1C dhe migroi në të 8-tin, po, ka përparim, në 8-ke mund të ruani në format xlsx, formati origjinal i versioneve të fundit të Excel.

Për të zgjidhur problemin, ka disa manipulime të thjeshta, gjëja e parë që i vjen në mendje çdo përdoruesi është të ri-ruaj tabelën në një format tjetër, por edhe atëherë nuk ka asnjë rezultat të dëshiruar, atëherë fillojmë të bëjmë copy-paste në nje liber i ri Excel.
Ekziston një mundësi tjetër, sikur për përdoruesit e avancuar, është të shkoni te cilësimet Excel dhe në seksionin Shtesë, kontrolloni kutinë "Trego shkurtoret e fletës". Është e saktë, por edhe rutinë, në dritën e përpunimit të shpeshtë të të dhënave të marra nga 1C në formën e tabelave të sheshta dhe analizave të mëtejshme të të dhënave në formën e tabelave kryesore dhe mënyrave të tjera të paraqitjes së të dhënave në Excel.

Ai vetë u lodh duke vrapuar nëpër kutitë e kontrollit në të njëjtën mënyrë dhe e zgjidhi problemin, pasi kishte gërmuar në pafundësinë e internetit, për shembull, dhe pasi kishte parë disa zhvillime të tjera, doli të zbatonte një të thjeshtë (për disa është një fizarmonikë me butona, për dikë një paterica, megjithatë, nuk ka asnjë mosmarrëveshje për shijet) zgjidhje mekanizmi automatizimi për problemin me shfaqjen e etiketave të fletëve.

E tëra çfarë ju duhet të bëni është të përdorni dy veti të dritares së Excel:

DisplayWorkbookTabs // flamuri për shfaqjen e fletëve të librit të librit TabRatio // raporti i gjerësisë së zonës së faqeshënuesve të librit të punës me gjerësinë e shiritit të lëvizjes horizontale të dritares (si një numër midis 0 (zero) dhe 1, vlera e paracaktuar 0,6)

TabDocument.Write (FullFileName, TabularDocumentFileType.XLS); Excel = New COMObject ("Excel.Application"); Excel.WorkBooks.Open (FullFileName); Excel.E dukshme = 0; Excel.ActiveWindow.DisplayWorkbookTabs = 1; Excel.ActiveWindow.TabRatio = 0.6; Emri i plotë = Excel.ActiveWorkbook.FullName; Excel.DisplayAlerts = false; Excel.ActiveWorkbook.SaveAs (Emri i plotë, 18); // 18 - xls 97-2003; 51 - xlsx 2007-2013 //Excel.E dukshme = 1; // nëse duhet të punoni më tej me librin
//Excel.Application.Quit () // nëse thjesht dalim

TabDocument.Write (FullFileName, "XLS"); Excel = CreateObject ("Excel.Application"); Excel.WorkBooks.Open (FullFileName); Excel.E dukshme = 0; Excel.ActiveWindow.DisplayWorkbookTabs = 1; Excel.ActiveWindow.TabRatio = 0.6; Emri i plotë = Excel.ActiveWorkbook.FullName; Excel.DisplayAlerts = false; Excel.ActiveWorkbook.SaveAs (Emri i plotë, 18); // 18 - xls 97-2003; 51 - xlsx 2007-2013 //Excel.E dukshme = 1; // nëse duhet të punoni më tej me librin
//Excel.Application.Quit () // nëse thjesht dalim