შეინახეთ მონაცემები Excel-ის ცხრილებში VBA-ს გამოყენებით.
Excel-ის ელცხრილის შექმნა Access-ში დაზოგავს თქვენს დროს, როდესაც გჭირდებათ მონაცემების ექსპორტი Excel-ის ცხრილებში. Visual Basic აპლიკაციებისთვის (VBA) შეიძლება იყოს ძლიერი ინსტრუმენტი Microsoft Office აპლიკაციებში პროცესების ავტომატიზაციისთვის. VBA-ით შეგიძლიათ გამოიყენოთ Microsoft Excel აპლიკაციის ობიექტი Access-დან Excel-ის ცხრილების შესაქმნელად. Excel აპლიკაციის ობიექტი არის შესვლის წერტილი დანარჩენი ობიექტის მოდელისთვის. მონაცემთა უფრო სწრაფად ექსპორტი Excel-ში მონაცემების შენახვით პირდაპირ Excel-ის ცხრილებში.
Ნაბიჯი 1
გაუშვით Microsoft Office Access, დააწკაპუნეთ "ცარიელ მონაცემთა ბაზაზე" და დააჭირეთ ღილაკს "შექმნა" ცარიელი მონაცემთა ბაზის შესაქმნელად. დააწკაპუნეთ ჩანართზე "მონაცემთა ბაზის ინსტრუმენტები" და დააჭირეთ "Visual Basic" Microsoft Visual Basic-ის ფანჯრის გასახსნელად. დააწკაპუნეთ მენიუზე "ჩასმა" და დააწკაპუნეთ "მოდულზე" ახალი კოდის მოდულის ჩასართავად.
დღის ვიდეო
ნაბიჯი 2
დააჭირეთ მენიუს "ინსტრუმენტები" და დააჭირეთ "ცნობას". გადადით ქვემოთ და მონიშნეთ ველი "Microsoft Excel
ნაბიჯი 3
დაიწყეთ შემდეგი VBA კოდის აკრეფით ახალი ქვეპროცედურის შესაქმნელად:
პირადი ქვე createSpreadSheet()
ნაბიჯი 4
გააგრძელეთ შემდეგი კოდის აკრეფით სამი ახალი ცვლადი ობიექტის შესაქმნელად, რომლებიც გამოყენებული იქნება Excel ცხრილის შესაქმნელად:
Dim newExcelApp როგორც Excel. განაცხადი. Dim newWbk როგორც Excel. სამუშაო წიგნი. Dim newWkSheet როგორც Excel. სამუშაო ფურცელი
ნაბიჯი 5
დაამატეთ შემდეგი კოდი Excel-ის გასაშვებად და აჩვენეთ იგი:
დააყენეთ newExcelApp = Excel. განაცხადი
ახალი ExcelApp. ხილული = მართალია
ნაბიჯი 6
ჩაწერეთ შემდეგი ახალი სამუშაო წიგნის და სამუშაო ფურცლის დასამატებლად:
დააყენეთ newWbk = newExcelApp. სამუშაო წიგნები. დამატება
დააყენეთ newWkSheet = newWbk. სამუშაო ფურცლები (1)
ნაბიჯი 7
დაამატეთ მონაცემები თქვენს ახალ ცხრილს შემდეგი მნიშვნელობის აკრეფით:
newWkSheet. უჯრედები (1, 1). მნიშვნელობა = "ახალი სამუშაო ფურცელი..."
ნაბიჯი 8
შეინახეთ ახალი სამუშაო წიგნი, რომელიც შექმნილია შემდეგი კოდის აკრეფით:
newWkSheet. SaveAs ("C:\myworksheet.xlsx")ნაბიჯი 9
შეცვალეთ ბილიკი წინა საფეხურზე და ჩაწერეთ თქვენი არჩევანის ბილიკი და ფაილის სახელი.
ნაბიჯი 10
ჩაწერეთ შემდეგი ქვეპროცედურის დასასრულებლად:
ბოლო ქვე
ნაბიჯი 11
დააჭირეთ "F5" თქვენი პროცედურის გასაშვებად და ახალი Excel ცხრილის შესაქმნელად.
