Ko'rsatmalar
1C: Enterprise har qanday katalogni faqat o'rnatilgan vositalardan foydalangan holda yuklash / tushirish bo'yicha murakkab ishlov berishni yozishga murojaat qilmasdan tushirishga imkon beradi. Birinchidan, biz ma'lumotlarni qaysi formatda olishni xohlayotganimiz haqida qaror qabul qilishimiz kerak:
* .mxl - boshqa 1C ma'lumotlar bazasiga yuklash uchun mos bo'lgan 1C jadval ma'lumotlarining ichki formati;
* .xls - Excel elektron jadvallari;
* .pdf - Adobe Reader elektron hujjati;
* .html - Internetda nashr etish uchun veb-sahifa;
* .txt - bu oddiy matnli fayl, har qanday ma'lumotlar bazasiga yuklash uchun foydalidir.
Agar katalog ierarxik bo'lsa, u holda ro'yxat * .mxl va * .xls formatlariga ierarxiyani saqlab qolish va guruhlarni qulatish / kengaytirish qobiliyati bilan tushiriladi. Boshqa barcha formatlar oddiy ro'yxat bilan yuklanadi va guruh nomlarini uning nomidan keyin sanab chiqadi.
Bo'shatishimiz kerak bo'lgan katalogni ochamiz. Bizning holatlarimizda bu "Nomenklatura". Amaliyotlar -\u003e Adabiyotlar -\u003e Nomenklatura. Siz butun katalogni emas, balki faqat ma'lum bir guruhni yuklab olishingiz mumkin, buning uchun ushbu guruhga o'tishingiz kerak. Katta hajmdagi ma'lumotlar bilan ishni tezlashtirish uchun turli xil fayllarga guruhlarga yuklash mantiqan to'g'ri keladi.
Ochilgan ro'yxatning har qanday satrida sichqonchaning o'ng tugmachasini bosing va "Displey ro'yxati" bandini tanlang. Sozlamalar oynasi paydo bo'ladi.
Sozlamalar oynasida katakchalarni faqat oxirgi hujjatda kerak bo'lgan maydonlar uchun qoldiring. "Chiqish ..." maydonida biz "Jadval hujjati" bandini qoldiramiz ("Matnli hujjat" ni tanlashingiz mumkin, ammo jadval hujjati ko'proq universaldir). "OK" tugmasini bosing.
1C-da elektron jadval hujjatlari va bosma shakllarni yaratish mexanizmi juda o'ylangan va yaxshi ishlab chiqilgan, ammo bu, albatta, Microsoft Excel-da qo'llaniladigan funksiyalardan uzoqdir. Shuning uchun, ko'plab foydalanuvchilar quyidagi algoritm bo'yicha ishlashni afzal ko'rishadi:
- 1C da bosma shakl yarating;
- Ma'lumotlarni Excel varag'i sifatida saqlash (1-rasm) yoki jadvalni nusxalash;
- Boshqa dasturda ma'lumot bilan ishlashni davom eting.
Va ko'pincha, ular bir savolga ega: qanday qilib qo'shimcha qadamlarni chetlab o'tib, to'g'ridan-to'g'ri 1C dan Excelga ma'lumotlarni yuklash kerak?
Bajarilishi kerak bo'lgan ikkita asosiy talab
Qayta ishlashning xatosiz ishlashi uchun quyidagilar zarur:
- Microsoft Office va xususan, Excel foydalanuvchi kompyuteriga o'rnatilishi (biz MAQOMOTA ob'ekti yaratish orqali dasturga ulanamiz);
- Excelda ma'lumotlarni saqlash tuzilishini tasavvur qiling (hujayra nomlari qanday shakllanishini tushunib oling, qanday varaq, ish daftarchasi va boshqalarni bilib oling).
Faqatgina ushbu ikki band bajarilganligiga ishonch hosil qilganingizdan so'ng, siz keyingi rivojlanishga o'tishingiz kerak.
Yuk tushirish algoritmi va uni 1C da amalga oshirish
1C dan Excelga tushirishda harakatlar ketma-ketligi quyidagi bosqichlar ketma-ketligi bilan ifodalanishi mumkin:
- Excelda saqlanishi kerak bo'lgan ma'lumotlar to'plamini shakllantiramiz;
- Biz dasturga ulanish yaratamiz (ishga tushirish);
- Faylni yuklangan ma'lumotlar bilan to'ldiramiz;
- Biz faylni saqlaymiz;
- Ochiq dasturni yoping.
Endi ushbu ro'yxatda batafsilroq.
Ma'lumotlar to'plamini shakllantirish
Ma'lumotlar manbai so'rov natijalari, elektron jadval hujjatining bosma shakli, elementlarning har qanday tanlovi bo'lishi mumkin. Bizning holatda, joriy oy uchun "Tovarlar va xizmatlarni qabul qilish" hujjatlari reestrini tushiramiz (2-rasm)
Shakl.2
Biz dasturni ishga tushirishni amalga oshiramiz
Yuqorida aytib o'tganimizdek, boshlash uchun biz Com-connection rejimidan foydalanamiz. 3-rasmdagi kod buni qanday amalga oshirish mumkinligini ko'rsatadi.
Shakl.3
Biz qayta ishlash jarayonida har qanday nostandart vaziyatlarni istisno qilish uchun yangi ob'ekt yaratish tartibini qasddan urinish - istisno -EndTry qurilishiga kiritdik.
Faylni to'ldirish, uni saqlash va dasturni o'chirish
Avvalo, biz nima qilishimiz kerakligini hal qilishimiz kerak: ma'lumotlarni mavjud faylga yuklash yoki yangisini yaratish:
- Birinchi holda, biz fayllarni tanlash dialogini boshlashimiz va mavjud axborot omborining to'liq nomini olishimiz kerak;
- Ikkinchi holda, biz mustaqil ravishda yaratiladigan fayl nomini topishimiz va uning joylashgan joyini aniqlashimiz kerak (aynan shu ikki atamadan fayl nomi yaratiladi).
Ma'lumotlarimizni qaerda saqlashimiz kerakligi to'g'risida qaror qabul qilib, to'g'ridan-to'g'ri faylni to'ldirishga o'tamiz, buning uchun biz protsedura yaratamiz va parametr sifatida joriy oy uchun hujjatlarimizni tanlaymiz. (4-rasm)
Shakl.4
Koddan ko'rinib turibdiki, birinchi navbatda biz stolimizni saqlaydigan ish kitobini yaratdik. Odatiy bo'lib, Excel birinchi marta ishga tushganda ish daftarida uchta varaq yaratadi. Ma'lumotlarni kiritish uchun biz ulardan birini tanlashimiz mumkin, shunchaki varaq raqamini WorkSheets () uslubiga parametr sifatida ko'rsatishimiz mumkin. Agar biz kitobga yangi varaq qo'shishimiz kerak bo'lsa, biz quyidagi qatorni yozishimiz kerak edi:
NewList \u003d NewBook.Sheets.Add ();
Ayni paytda biz hujjatning umumiy tuzilishini shakllantirishni tugatdik va uni to'ldirishni boshladik.
Hisoblagichli tsiklda biz ma'lum bir katakchaning ma'lumotlarini olish va ularni yakuniy jadvalga o'tkazish uchun qiymatlar jadvalimizning satrlari va ustunlari bo'ylab takrorlaymiz.
Bu erda 1C qiymatlar jadvalidagi qatorlar va ustunlar indekslari 0 dan boshlanib, ushbu satrlar va ustunlar sonidan 1 ga kam son bilan tugashini va katakchalar qatorlari va ustunlar sonini yodda tutish muhimdir. Exel 1dan boshlanadi.
Jadvalimizdan o'tib, uni yangi joyga ko'chirgandan so'ng, yaratilgan faylni saqlashimiz kerak. SaveAs protsedurasida ko'rsatilgan FilePath parametri fayl nomini o'z ichiga olgan to'liq yo'lni o'z ichiga olishi kerak.
Agar sizning kompyuteringizda Microsoft Office 2007 yoki undan keyingi versiyasi o'rnatilgan bo'lsa, ehtimol siz elektron jadval hujjatini Excel 2003 formatida saqlashingiz kerak bo'lishi mumkin, buni dasturiy ravishda SaveAs protsedurasining ikkinchi parametri sifatida (-4143) qiymatini belgilashingiz mumkin. Aynan shu raqam xls kengaytmasiga mos keladigan saqlangan fayl formatini bildiradi.
Xato yuz bergan taqdirda (aytaylik, saqlangan fayl allaqachon ochiq), bizning ishlov berishimiz foydalanuvchini Report () protsedurasida yozilgan nostandart holat haqida ogohlantirishi kerak.
Excel bilan ishlashni davom ettirishni rejalashtirmaganimiz uchun dasturni yopishimiz kerak. Shuni ta'kidlash kerakki, biz ishlov berish jarayonini faqat vazifa menejeridan foydalanib kuzatishingiz mumkin, bu ochiq oynalar ro'yxatida ko'rinmaydi. Shunga qaramay, agar siz dasturning yopilishini ro'yxatdan o'tkazmasangiz, u RAMda joy egallaydi va Excelning qo'shimcha nusxalarini ishga tushirishda nizolarga olib kelishi mumkin.
Elektron jadval hujjatini 1C dan Excelga saqlashning qo'shimcha usuli
Yukni tushirishning yana bir usuli bu elektron jadval hujjatini ekranda ko'rsatmasdan to'g'ridan-to'g'ri diskka saqlash yoki chiqarilishidan oldin tegishli protsedura kodi ko'rsatilgan (5-rasm).
Shakl.5
Juda muhim bir eslatma: 1C vaExcel raqamli qiymatlarda tamsayı va kasr ajratuvchilarni ajratib turadi, ma'lumotlar bo'shashib qolmasligi uchun tushirish paytida ushbu nuqta hisobga olinishi kerak.
Konfiguratsiya:1c buxgalteriya hisobi
Konfiguratsiya versiyasi:3.0.44.177
Nashr qilingan sana: 20.01.2017
1C: Buxgalteriya dasturida Excel elektron jadvalidagi hujjatlarni muntazam ravishda yuklash va yuklab olish imkoniyati paydo bo'ldi, bu uchinchi tomon tomonidan ishlov berish va konfiguratsiya o'zgarishlarini ishlatmasdan. Yuklash va tushirish shunchalik osonki, tajribali foydalanuvchilar ushbu qulay mexanizmni tezda sevib qolishadi va yangi foydalanuvchilar uni tezda o'zlashtirib olishadi.
Excel 1C-dan yuklab olish: Buxgalteriya hisobi 8.3 nashr. 3.0
Masalan, bizda narsalar ro'yxati va narxlarni (chakana savdo va sotib olish) yuklash uchun bunday elektron jadval hujjati mavjud.
Kiring.
Yuqoridagi tugmani bosing Nomenklatura va narxlar - Yuklab olish... Bu erda elektron jadval hujjatlaridan yuklash va tushirish yashiringan.
Yuklab olish xls (eski format Excel 97-2003) va xlsx (yangi format) hamda mxl va ods formatlarini qo'llab-quvvatlaydi. Endi biz nomenklatura bilan faylimizni tanlaymiz va yuklab olishni kutamiz.
Elektron jadval hujjati biz Excelda ko'rganimizdek shaklga yuklandi, endi ustunlarni tayinlaymiz va ortiqcha qismini o'chirib tashlaymiz.
Ustiga bosing Rekvizitni ko'rsating va ro'yxatdan kerakli narsani tanlang.
Keraksiz yozuvlarni, ya'ni jadvalning sarlavhasini o'z ichiga olgan qatorni tanlang va bosing Chiziqni o'chirish.
Endi sotib olish narxi ustunini olib tashlang, e'tibor bering ishlov berish faqat 1n narxni 1n vaqt davomida to'ldirishga qodir !!!Keyin siz ushbu operatsiyani qayta bajarishingiz va narxning 2-turini yuklab olishingiz mumkin, 1-chi yuklab olish uchun chakana savdo 2-chi xarid uchun.
Bo'sh ma'lumotlarni to'ldiring, Narx turi, Narxlarni o'rnating. All, Found, New, Duplicates tugmalari qidirishni juda osonlashtiradi va buyumga mos kelishiga yordam beradi. To'ldiring va bosing Yuklash shundan so'ng ma'lumotlar 1C-ga yuklanadi: Buxgalteriya.
To'ldirilgan va belgilangan narxlar bilan buyumlar ro'yxatida yangi narsalar paydo bo'ldi. Agar siz boshqa narx turini yuklashingiz kerak bo'lsa, barcha nuqtalarni qayta bajaring, lekin boshqa narx bilan ustunni tanlang, 1C o'zi allaqachon yaratilgan pozitsiyalarni topadi va ularni takrorlashga urinmaydi, balki shunchaki yangi narx turini qo'shadi.
Ko'rib turganingizdek, yuklab olish natijasida Sotib olish narxlari va Chakana narxlar uchun 2 ta narxlash hujjatlari yaratildi. Ushbu qayta ishlash o'rtasidagi farq Excel-dan 1C-ga yuklab olish: Buxgalteriya hisobi 8.3, bu muntazam ishlov berish va u ishlamay va hujjatni to'ldirishning barcha xususiyatlarini hisobga olgan holda ishlaydi.
Excelga 1C-dan eksport qilish: Buxgalteriya hisobi 8.3 nashr. 3.0
3.0.44.177 va undan yuqori versiyadagi juda foydali funktsiya Excelga 1C: Buxgalteriya hisobi 8.3-dan yuklash bo'lib, ushbu ishlov berish sizga kompaniyaning narxlari ro'yxatini tuzishda yoki o'z ro'yxatingizni etkazib beruvchilarga yoki xaridorlarga narxlari bilan darhol uzatishda yordam beradi.
Hammasi bitta katalogda Nomenklatura - Nomenklatura va narxlar - Yuklash.
Shu nuqtai nazardan Karnaylar, Excel hujjatida o'rnatiladigan ustunlarni tanlang. Tanlash elementlarni guruhlar, xususiyatlar, nomlar va boshqalar bo'yicha tanlash uchun xizmat qiladi.
Excelga yuklash uchun biz yangi ustunni, ya'ni QQS stavkasini qo'shamiz, aslida unchalik zarur emas, lekin biz mashq qilmoqdamiz.
Oxirgi darsda biz uni ko'rib chiqdik.
Biroq, eng keng tarqalgan misol buxgalteriya hisobi va ish haqi o'rtasidagi almashinuvdir. Ushbu asoslar bir-biriga bo'ysunmaydi va hatto dastlab ulanishi ham mumkin emas.
Bizga kerak bo'lgan narsa - vaqti-vaqti bilan ish haqidan buxgalteriya bo'limiga yuklash.
1C dan ma'lumotlarni tushirish jarayonini ko'rib chiqamiz.
Ma'lumotlarni yuklash va yuklab olish tamoyillari 1C
Buxgalteriyada mahsulot va xizmatlarni sotish hujjati 30 ta maydondan iborat bo'lishi mumkin. Bu buxgalteriya hisobi, uning o'z maqsadlari bor, ko'plab sohalar hisob rejasi va subkontoga bag'ishlangan.
Savdo bo'limida xuddi shu hujjatda tovarlarni sotish 25 bo'lishi mumkin. Bu operatsion buxgalteriya hisobi, uning o'z maqsadlari bor. Ammo schyotlar rejasidagi schyotlar u erda ko'rsatilmagan.
Ushbu ikkita bazadagi maydonlarning nomlari boshqacha bo'lishi mumkin. Unda qanday qilib bitta ma'lumotlar bazasidan bitta hujjatni bo'shatish va boshqasini boshqa ma'lumotlar bazasiga yuklash kerak?
Hujjatni bitta ma'lumotlar bazasidan ikkinchisiga yuklash uchun qanday qilib aylantirish kerakligini tasvirlash uchun almashish qoidalari mavjud.
Ular XML kengaytmasiga ega fayl. Uni yaratish uchun "Ma'lumotlarni aylantirish" deb nomlangan 1C maxsus konfiguratsiyasi mavjud.
Oddiy konfiguratsiyalar o'rtasida almashinish uchun standart almashinuv parametrlariga qattiq kodlangan (ma'lumotlar almashinuvi xxx) yoki alohida ta'minlangan standart ma'lumotlar almashinuvi qoidalari mavjud.
BU-ZP 1C tushirish
Odatda ish haqi va xodimlarni boshqarish konfiguratsiyasidan tortib to odatiy konfiguratsiyaga qadar Buxgalteriya hisobi ish haqi natijalari to'g'risidagi ma'lumotlarni, shu jumladan soliqlarni to'lash uchun vaqti-vaqti bilan yuklaydi.
Buning imkoni bo'lishi uchun avval sozlamalarni Buxgalteriya hisobidan ish haqi varag'iga tushirishingiz kerak.
1C Buxgalteriya hisobidan 1C ish haqiga 1C tushirish uchun - Buxgalteriya bo'limida Maosh bilan Ma'lumot almashish / Ma'lumotlarni yuklash menyusi bandini tanlang.
1C ni birinchi marta tushirishda "1C ni yangi infobaza ichiga tushirish uchun ma'lumot" katagiga belgi qo'yishni unutmang.
Dastlabki ma'lumotni ish haqiga qanday yuklash mumkin - keyingi maqolani yuklab olish 1C yuklab olish.
ZP-BU 1C ni tushiring
Buxgalteriya bo'limining dastlabki ma'lumotlari Ish haqiga yuklangandan so'ng, siz ish haqidan hisob-kitoblarni buxgalteriya bo'limiga yuklashingiz mumkin.
Maosh ichida Xizmat / Ma'lumotlarni almashtirish / Buxgalteriya dasturiga ma'lumotlarni yuklash menyusini tanlang.
1C yuklashni sozlash shaklida sukut bo'yicha siz faqat ma'lumotlar faylini yuklamoqchi bo'lgan davr va yo'lni tanlashingiz kerak.
1C yuklash formati ko'prik sifatida ko'rsatiladi - ko'k matnda. Ko'prikni bosish va boshqa buxgalteriya konfiguratsiyasini tanlash orqali uni o'zgartirishingiz mumkin.
BU-UT 1C yukini tushiring
1C-ni Buxgalteriya hisobidan savdo menejmentiga tushirish uchun siz almashinuv sozlamalarini yaratishingiz kerak. Bu sizga 1C yuklamalarini nafaqat bir martalik yuklash, balki to'liq davriy almashinuvni o'rnatishga imkon beradi.
Sozlamalarni amalga oshirish uchun menyu bandini tanlang Xizmat / Savdo boshqaruvi bilan ma'lumotlar almashinuvi / Buxgalteriya bo'limida ma'lumotlar almashinuvini sozlash.
Sozlamalar "sehrgar" yordamida yaratiladi.
Biz oson yo'lni bosib o'tmaymiz va barcha sozlamalarni o'zimiz boshqaramiz, buning uchun siz Ekspert ishlash rejimini tanlashingiz kerak.
Sozlamani noldan yaratayotganimiz sababli, biz "Almashish sozlamasini yaratish" ni tanlaymiz (mos ravishda sehrgarni to'xtatib qo'ysangiz, "davom ettirishingiz" yoki sehrgar tugallangan bo'lsa o'zgartirishingiz mumkin).
Ushbu almashinuv sozlamasi ikkita asosda amalga oshiriladi - avval birida, keyin ikkinchisida.
Shunga ko'ra, biz "Fayl yordamida yaratish" -ni tanlaymiz, agar siz Savdo menejmentida noldan yangisini yaratishni boshlagan bo'lsangiz va bu erda siz o'rnatishni yakunlashingiz kerak bo'lsa (xuddi shunday, agar siz Buxgalteriya hisobidan boshlasangiz, uni Savdo menejmentida to'ldirishingiz kerak bo'ladi).
"Fayl orqali" almashinuv sozlamalari sodda va bu erda rasmlarda ko'rsatilmagan. Ammo "to'g'ridan-to'g'ri" MAQOMOTI ulanish uchun misollar bu erda.
Masalan, agar Savdo boshqaruvi "fayl" bo'lsa - u diskda. ...
Masalan, agar Savdo menejmenti 1C serverida joylashgan bo'lsa. Server va ma'lumotlar bazasining nomi.
1C da ma'lumotlar bazasini tanlash oynasida fayllar bazasiga yo'l, shuningdek server va serverdagi ma'lumotlar bazasi nomi ko'rsatiladi.
Bu erda siz Savdo idorasidan biror narsani yuklab olishni rejalashtirayotganligingizni ko'rsatishingiz kerak. Agar shunday bo'lsa, unda bu "ikki tomonlama" almashinuv.
Yuklangan hujjatlar uchun filtrlarni belgilashimiz mumkin. Masalan, tashkilotlar sharoitida.
Keyingi sahifada ayirboshlash kerak bo'lgan davr, shuningdek tushiriladigan hujjatlar ro'yxati ko'rsatilgan.
Bu o'rnatishning birinchi qismini yakunlaydi. Uning natijalari asosida 1C sozlamalar fayli yaratadi. Endi savdo bo'limiga borib, "Fayldan foydalanishni davom ettirish" parametrini ko'rsatib, u erda konfiguratsiyani davom ettirishingiz va ushbu faylni ko'rsatishingiz kerak.
Ikkala bazadan almashinuvni o'rnatgandan so'ng, 1C 1C kataloglarini dastlabki tushirishni amalga oshirishni va moslamalarni taqqoslashni taklif qiladi. Bu almashinuvning normal ishlashi uchun 1C ning birlamchi tushirilishining analogidir.
Ushbu nuqtaga e'tibor bering, agar Savdo menejmenti bo'sh baza bo'lmasa, u o'z ma'lumotnomalariga ega, ayniqsa ular uzoq vaqt davomida olib borilgan bo'lsa.
Agar siz ushbu daqiqaga ishonchingiz komil bo'lmasa:
- Ikkala bazaning ham zaxira nusxalarini yarating (ayniqsa almashinish ikki tomonlama bo'lsa)
- Dastlab 1C yuklash paytida (dam olish kunlari va kechqurun 🙂) foydalanuvchilardan ushbu ma'lumotlar bazalarida ishlamaslikni so'rang
- 1C-ni yuklang, kataloglarning takrorlanmasligini tekshiring
- Agar biror narsa noto'g'ri bo'lsa, zaxira nusxasiga qayting.
UT-Retail 1C tushirishini amalga oshiring
Odatda 1C Chakana savdo konfiguratsiyasi ko'pincha Savdo menejmenti konfiguratsiyasi bilan birgalikda ishlatiladi. Odatda UT chakana savdo do'konlarida, chakana savdo esa ofisda ishlatiladi.
Biz UT nashri 11 ning chakana savdo bilan almashinuvini o'rnatish misolini ko'rib chiqmoqdamiz.
Interfeysdagi ma'muriyat elementini tanlang, so'ngra ma'lumotlar almashinuvi, chakana konfiguratsiya elementi bilan almashish qo'shish / yaratish.
Almashinishni o'rnatish ikkita asosda amalga oshiriladi - birinchi navbatda birida, keyin ikkinchisida.
Shunga ko'ra, agar siz chakana savdoda noldan yangisini qilishni boshlagan bo'lsangiz, biz "Davom etish" ni tanlaymiz va bu erda siz o'rnatishni yakunlashingiz kerak (xuddi shunday, agar siz Savdo menejmentidan boshlasangiz, uni chakana savdoda bajarishingiz kerak bo'ladi).
Ushbu yorliqda siz ma'lumotlar bazasini (to'p) orqali ikkita asos o'rtasida ma'lumotlarni uzatish usulini tanlashingiz mumkin. Agar boshqa variantni ishlatmoqchi bo'lsangiz, ushbu sahifani o'tkazib yuboring.
Ushbu yorliqda siz ma'lumotlar bazasi o'rtasida ma'lumotlarni uzatish usulini tanlashingiz mumkin - fayl (FTP) orqali. Agar boshqa variantni ishlatmoqchi bo'lsangiz, ushbu sahifani o'tkazib yuboring.
Sozlamalarning qisqacha sahifasi. Tozalashlarni ko'rsatish uchun - "Cheklovlarni sozlash" tugmasini bosing.
Bu erda siz hujjatlar yuklanadigan sanani, shuningdek tashkilotlar, omborlar va boshqalar tomonidan tanlovlarni (filtrlarni) belgilashingiz mumkin.
Xatlar yorlig'ida ba'zi kataloglarning yozishmalarini sozlashingiz mumkin (do'konlar \u003d bo'limlar va kassalar).
Bu konfiguratsiyaning birinchi bosqichini yakunlaydi. Natijada, sozlamalar fayli yaratildi. Chakana savdo ma'lumotlar bazasida sozlashni fayldan foydalanishni davom ettirishni belgilashingiz kerak.
Code 1C v 8.x // protsedura eksport rejimida ko'rsatilgan katalogdan ma'lumotlarni Microsoft Excel formatidagi faylga tushiradi
// ko'rsatilgan nom bilan, ma'lumotlar turini raqamga va tipdagi satrga aylantirish yordamida;
Asosiy amallar shakllarini eksport qilish tartibi (tugma)
Harakat
Harakat
// Microsoft Excel ob'ektini yuklang
Shtat ("Ma'lumotlarni 1C dan Microsoft Excel-ga yuklash ...");
ExcelApplication \u003d Yangi COMObject ("Excel.Application");
Istisno
Hisobot ("Microsoft Excel dasturini ishga tushirishda xatolik."
+ Symbols.PS + DescriptionErrors (), MessageStatus.Attention);
Qaytish;
Harakatlarning oxiri;
// Kitob yarating, sukut bo'yicha unda allaqachon varaqlar mavjud
Ish kitobi \u003d ExcelApplication.WorkBooks.Add ();
// Excel ish daftarining birinchi varag'idan foydalaning
Sheet \u003d Book.WorkSheets (1);
// Hujjatning boshini varaqning birinchi satrida shakllang
Ustun \u003d 1;
Agar sahifani tushirish Keyin
Sheet.Cells (1, Ustun) .Value \u003d string.AttributeName;
Ustun \u003d Ustun + 1;
EndIf;
Tsikl tugashi;
// Katalog ma'lumotlarini tushirish
selection \u003d Kataloglar [DirectoryName] .Select ();
SheetRow \u003d 2;
Sampling.Next () Loop paytida
Ustun \u003d 1;
TP tsiklidagi har bir sahifa uchun
Agar sahifani tushirish Keyin
Harakat
// Qator va ustunda qiymatni o'rnating
Agar TypeZnch (namuna [sahifa AttributeName]) \u003d Type ("Raqam") Keyin
// Raqam turi uchun formatni o'rnating
Sheet.Cells (SheetRow, Column) .NumberFormat \u003d "0,00";
Format (tanlov [sahifa AttributeName], "CH \u003d 0");
aks holda
// Boshqa barcha turlari uchun formatni "Matn" ga o'rnating
Sheet.Cells (ListRow, Column) .NumberFormat \u003d "@";
Sheet.Cells (SheetRow, Column) .Value \u003d
String (tanlov [sahifa AttributeName]);
EndIf;
istisno
// xato bo'lsa, chiziq va ustun raqamlarini ko'rsating
Hisobot ("Qiymatni belgilashda xatolik:" +
tanlov [sahifa AttributeName]);
Hisobot ("Row:" + RowList + "Count:" +
Ustun + "Qaydlar:" + sahifa. Atribut nomi);
Harakatlarning oxiri;
Ustun \u003d Ustun + 1;
EndIf;
Tsikl tugashi;
SheetRow \u003d SheetRow + 1;
Holati ("1C dan Excelga eksport qilish" + Ro'yxat qatori);
Tsikl tugashi;
// Yaratilgan kitobni xls fayliga saqlang
Book.SaveAs (fayl nomi);
// Bo'sh xotira uchun MAQOMOTI ob'ektiga ulanishni yopganingizga ishonch hosil qiling
ExcelApplication.Quit ();
Hisobot ("Fayl muvaffaqiyatli yuklandi:" + fayl nomi);
Istisno
// 1C dan Excelga ma'lumotlarni eksport qilish xatolarini boshqarish
Hisobot ("Fayl ma'lumotlarini yozishda xato:" + fayl nomi);
Hisobot (Xato tavsifi ());
Harakat
ExcelApplication.Quit ();
Istisno
Harakatlarning oxiri;
Harakatlarning oxiri;
Jarayonning tugashi
Kod 1C v 7.x // 1C dan chiqadigan eng oddiy misol: MS Excel-dagi Enterprise 7.7. Ish daftarida bitta varaq borligini ta'minlash,
// shriftning o'lchamini, vaznini va rangini, ustunlar kengligini, chegaralarini va katakchani belgilash. Matnni tekislash
// kataklar, qatorlarni guruhlash, kataklarning son formatini o'rnatish, maydonni mahkamlash.
Protsedura chiqishi ()
Harakat
Application \u003d CreateObject ("Excel.Application");
Istisno
Hisobot (DescriptionBugs (), "!!!");
Hisobot ("Ehtimol, ushbu kompyuterda MS Excel o'rnatilmagan bo'lishi mumkin.");
Qaytish;
Harakatlarning oxiri;
// Ishchi daftar yarating
WorkBook \u003d Application.WorkBooks.Add ();
// Oynani oling
Window \u003d WorkBook.Windows (1);
// Chiqishni tezlashtirish uchun oynaning ko'rinmasligini o'rnating
Window.Visible \u003d 0;
// Ish daftarida bitta varaq borligiga ishonch hosil qiling
Agar WorkBook.Worksheets.Count \u003d 0 Keyin
WorkBook.Worksheets.Add ();
Aks holda
Application.DisplayAlerts \u003d 0; // ogohlantirish bermang
WorkBook.Worksheets.Count\u003e 1 Loop paytida
WorkBook.Worksheets (1) .Delete ();
Tsikl tugashi;
Application.DisplayAlerts \u003d -1; // ogohlantirish bayrog'ini tiklash
EndIf;
// Ish sahifasini oling
Ish sahifasi \u003d WorkBook.Worksheets (1);
// Ish sahifasining nomini o'rnating
Worksheet.Name \u003d "Namuna chiqishi";
// Hujjat nomi
Worksheet.Range ("A1"). Value \u003d "(! LANG: 1C: Enterprise-dan MS Excel-ga chiqish misoli";
!}
Ishchi varaq.Range ("A2"). Qiymat \u003d "(! LANG: bugun"+ТекущаяДата();
!}
Ishchi varaq.Range ("A1: A2"). Font.Size \u003d 14; // shrift hajmi
Worksheet.Range ("A1: A2"). Font.Bold \u003d -1; // qalin shrift
// Ustunlarning kengligini o'rnating
Ustunlar (1) .ColumnWidth \u003d 60;
Ustunlar (2) .ColumnWidth \u003d 15;
Ustunlar (3) .ColumnWidth \u003d 15;
// Hujjat sarlavhasi
Ishchi varaq.Range ("A4"). Qiymat \u003d "(! LANG: Birinchi ustun";
!}
S \u003d 7 dan 10 gacha Loop // freymlari uchun
Ishchi varaq.Range ("A4"). Chegaralar (lar) .LineStyle \u003d 1;
Ishchi varaq.Range ("A4"). Chegaralar (lar) .Og'irligi \u003d -4138; // xlMedium
Tsikl tugashi;
Ishchi varaq.Range ("A4"). Interior.ColorIndex \u003d 15; // kulrang plomba
Worksheet.Range ("A4"). HorizontalAlignment \u003d -4108; // matnni markazga tekislang
Ishchi varaq.Range ("B4"). Qiymat \u003d "(! LANG: Ikkinchi";
!}
S \u003d 7 dan 10 gacha bo'lgan tsikl uchun
Ishchi varaq.Range ("B4"). Chegaralar (lar) .LineStyle \u003d 1;
Ishchi varaq. Diapazon ("B4"). Chegaralar (lar) .Og'irligi \u003d -4138;
Tsikl tugashi;
Ishchi varaq.Range ("B4"). Interior.ColorIndex \u003d 15;
Ishchi varaq.Range ("B4"). HorizontalAlignment \u003d -4108;
Ishchi varaq.Range ("C4"). Qiymat \u003d "(! LANG: Uchinchisi";
!}
S \u003d 7 dan 10 gacha bo'lgan tsikl uchun
Ishchi varaq.Range ("C4"). Chegaralar (lar) .LineStyle \u003d 1;
Ishchi varaq.Range ("C4"). Chegaralar (lar) .Og'irlik \u003d -4138;
Tsikl tugashi;
Ishchi varaq.Range ("C4"). Interior.ColorIndex \u003d 15;
Ishchi varaq.Range ("C4"). HorizontalAlignment \u003d -4108;
// Satrlarni guruhlash uchun:
Worksheet.Outline.SummaryRow \u003d 0; // tepada "xulosa" qatorlarini ko'rsatish (agar pastki bo'lsa, keyin 1)
// Chiqish chiziqlari
Worksheet.Range ("A5"). Value \u003d "(! LANG: Analytics Object";
!}
Ishchi varaq.Range ("A5"). Font.ColorIndex \u003d 5; // shrift rangi - ko'k
Ishchi varaq.Range ("B5"). Qiymat \u003d 123,45;
Ishchi varaq.Range ("B5"). Font.ColorIndex \u003d 5;
Ishchi varaq.Range ("C5"). Qiymat \u003d 678.9;
Ishchi varaq.Range ("C5") .Font.ColorIndex \u003d 5;
Worksheet.Range ("A6"). Value \u003d "(! LANG: Analytics Object";
!}
Worksheet.Range ("A6"). Font.ColorIndex \u003d 3; // shrift rangi - qizil
Ishchi varaq.Range ("B6"). Qiymat \u003d 123,45;
Ishchi varaq.Range ("B6"). Font.ColorIndex \u003d 3;
Ishchi varaq.Range ("C6"). Qiymat \u003d 678.9;
Ishchi varaq.Range ("C6") .Font.ColorIndex \u003d 3;
Worksheet.Range ("A7"). Qiymat \u003d "(! LANG: Analytics ob'ekti";
!}
Ishchi varaq.Range ("B7"). Qiymat \u003d 123,45;
Ishchi varaq.Range ("C7"). Qiymat \u003d 678.9;
Worksheet.Range ("A8"). Value \u003d "(! LANG: Analytics Object";
!}
Ishchi varaq.Range ("B8"). Qiymat \u003d 123,45;
Ishchi varaq.Range ("C8"). Qiymat \u003d 678.9;
Worksheet.Range ("A9"). Value \u003d "(! LANG: Analytics Object";
!}
Worksheet.Range ("A9"). Font.ColorIndex \u003d 3; // shrift rangi - qizil
Ishchi varaq.Range ("B9"). Qiymat \u003d 123,45;
Ishchi varaq.Range ("B9"). Font.ColorIndex \u003d 3;
Ishchi varaq.Range ("C9"). Qiymat \u003d 678.9;
Ishchi varaq.Range ("C9") .Font.ColorIndex \u003d 3;
Worksheet.Range ("A10"). Qiymat \u003d "(! LANG: Analytics ob'ekti";
!}
Ishchi varaq.Range ("B10"). Qiymat \u003d 123,45;
Ishchi varaq.Range ("C10"). Qiymat \u003d 678.9;
Worksheet.Range ("A11"). Qiymat \u003d "(! LANG: Analytics ob'ekti";
!}
Ishchi varaq.Range ("B11"). Qiymat \u003d 123,45;
Ishchi varaq.Range ("C11"). Qiymat \u003d 678.9;
Worksheet.Range ("A12"). Qiymat \u003d "(! LANG: Analytics ob'ekti";
!}
Worksheet.Range ("A12"). Font.ColorIndex \u003d 5; // shrift rangi - ko'k
Ishchi varaq.Range ("B12"). Qiymat \u003d 123,45;
Ishchi varaq.Range ("B12"). Font.ColorIndex \u003d 5;
Ishchi varaq.Range ("C12"). Qiymat \u003d 678.9;
Ishchi varaq.Range ("C12") .Font.ColorIndex \u003d 5;
Worksheet.Range ("A13"). Qiymat \u003d "(! LANG: Analytics ob'ekti";
!}
Worksheet.Range ("A13"). Font.ColorIndex \u003d 3; // shrift rangi - qizil
Ishchi varaq.Range ("B13"). Qiymat \u003d 123,45;
Ishchi varaq.Range ("B13"). Font.ColorIndex \u003d 3;
Ishchi varaq.Range ("C13"). Qiymat \u003d 678.9;
Ishchi varaq.Range ("C13") .Font.ColorIndex \u003d 3;
Worksheet.Range ("A14"). Qiymat \u003d "(! LANG: Analytics ob'ekti";
!}
Ishchi varaq.Range ("B14"). Qiymat \u003d 123,45;
Ishchi varaq.Range ("C14"). Qiymat \u003d 678.9;
Worksheet.Range ("A15"). Qiymat \u003d "(! LANG: Analytics ob'ekti";
!}
Ishchi varaq.Range ("B15"). Qiymat \u003d 123,45;
Ishchi varaq.Range ("C15"). Qiymat \u003d 678.9;
Worksheet.Range ("A16"). Qiymat \u003d "(! LANG: Analytics ob'ekti";
!}
Worksheet.Range ("A16"). Font.ColorIndex \u003d 3; // shrift rangi - qizil
Ishchi varaq.Range ("B16"). Qiymat \u003d 123,45;
Ishchi varaq.Range ("B16"). Font.ColorIndex \u003d 3;
Ishchi varaq.Range ("C16"). Qiymat \u003d 678.9;
Ishchi varaq.Range ("C16") .Font.ColorIndex \u003d 3;
Worksheet.Range ("A17"). Qiymat \u003d "(! LANG: Analytics ob'ekti";
!}
Ishchi varaq.Range ("B17"). Qiymat \u003d 123,45;
Ishchi varaq.Range ("C17"). Qiymat \u003d 678.9;
Worksheet.Range ("A18"). Qiymat \u003d "(! LANG: Analytics ob'ekti";
!}
Ishchi varaq.Range ("B18"). Qiymat \u003d 123,45;
Ishchi varaq.Range ("C18"). Qiymat \u003d 678.9;
// Kadrlarni o'rnating
No.Str \u003d 5 dan 18 gacha bo'lgan tsikl uchun
S \u003d 7 dan 10 gacha bo'lgan tsikl uchun
Ishchi varaq.Range ("A" + NomStr). Chegaralar (lar) .LineStyle \u003d 1;
Ishchi varaq.Range ("B" + NomStr). Chegaralar (lar) .LineStyle \u003d 1;
Ishchi varaq.Range ("C" + NomStr). Chegaralar (lar) .LineStyle \u003d 1;
Tsikl tugashi;
Tsikl tugashi;
// Chiziqlarni guruhlash
Ishchi varaq.Range ("7: 8"). Rows.Group ();
Ishchi varaq.Range ("10:11"). Rows.Group ();
Ishchi varaq.Range ("14:15"). Rows.Group ();
Ishchi varaq.Range ("17:18"). Rows.Group ();
Ishchi varaq.Range ("6:11"). Rows.Group ();
Ishchi varaq.Range ("13:18"). Rows.Group ();
// Guruhlarni birinchi darajaga tushirish
Ish sahifasi.Outline.ShowLevels (1);
// Raqam formatini o'rnating
Harakat
Ishchi varaq.Range ("B5: C18"). NumberFormat \u003d "# ## 0.00";
Istisno
Harakat
Ishchi varaq.Range ("B5: C18"). NumberFormat \u003d "# ## 0,00";
Istisno
Harakatlarning oxiri;
Harakatlarning oxiri;
// Ilovaning ko'rinishini va uning oynasini o'rnating
Application.Visible \u003d -1;
Window.Visible \u003d -1;
// Hududni muzlatib qo'ying
Ishchi varaq.Range ("A5"). S_elect ();
Window.FreezePanes \u003d -1;
EndProcedure // Chiqish
Saytdan olingan ma'lumotlar
