Как да копирате автоматично от Excel в PowerPoint с помощта на VBA Macro

Ако някога сте искали да ускорите прехвърлянето на данни от работна книга на Microsoft Excel към презентацията на Microsoft PowerPoint, тогава използването на макрос и Visual Basic за приложения е Браво. VBA е език за компютърно програмиране, използван в приложенията на Microsoft Office за автоматизиране на процеси като копиране на данни от Excel. Макрос ви позволява да запазите набор от инструкции, които можете да изпълнявате отново и отново с едно натискане на бутон.

Стъпка 1: Стартирайте Excel, въведете "Alan" в "A1, "" Даниел "в" А2 "," Киция "в" А3 "," Оскар "в" А4 "и" Ярекли "в" А5 ". Натиснете "CTRL" и "S", за да запишете работната книга в "C:" като "ExcelFile.xlsx." Затворете Excel.

Стъпка 2: Стартирайте PowerPoint, щракнете върху раздела "Разработчик" и кликнете върху "Макроси", за да стартирате диалоговия прозорец за макроси. Въведете "copyFromExcel" под Macro Name и кликнете върху бутона "Create". Кликнете върху менюто „Tools“ и кликнете върху „References“, за да стартирате диалоговия прозорец References. Превъртете надолу и поставете отметка в квадратчето до „Библиотека с обекти на Microsoft Excel“ и кликнете върху „OK“.

Стъпка 3: Копирайте и поставете следното, за да създадете променливите, които ще използвате за копиране на данни от Excel: Dim sourceXL Като Excel.Application Dim sourceBook As Excel.Workbook Dim sourceSheet Като Excel.Worksheet Dim dataReadArray (10) Като низ Dim myPress Презентация Dim newSlide As Slide

Стъпка 4
Задайте стойности на променливите на обекта : Задайте sourceXL = Excel.Application Set sourceBook = sourceXL.Workbooks.Open ("G: ExcelFile.xlsx") Задайте sourceSheet = sourceBook.Sheets (1) Задайте myPres = ActivePresentation Задайте newSlide = myPres.Slides.Add (Index: = myPres.Slides.Count + 1, Layout: = ppLayoutText)

Стъпка 5
Прочетете данните в Excel файла и ги съхранете в масив String: sourceSheet.Range ("A1"). Изберете dataReadArray Стойност sourceSheet.Range ("A2") Изберете dataReadArray (1) = sourceSheet.Range ("A2") Стойност sourceSheet.Range ("A3") Изберете dataReadArray (2) = sou Стойност sourceSheet.Range ("A4") Изберете dataReadArray (3) = sourceSheet.Range ("A4"). Стойност sourceSheet.Range ("A5"). Изберете dataReadArray (4) = Стойност

Стъпка 6
Добавяне на данни от масив String към нов слайд в текущата ви презентация: newSlide.Shapes (1) .TextFrame.TextRange = "Данни копиран от Excel "newSlide.Shapes (2) .TextFrame.TextRange = dataReadArray (0) & vbNewLine & _ dataReadArray (1) & vbNewLine & _ dataReadArray (2)
& vbNewLine

Стъпка 7
Затворете работната книга: sourceBook.Close
Превключете към прозореца на PowerPoint и кликнете върху "Макроси". Кликнете върху „Изпълни“, за да стартирате макроса „copyFromExcel“ и добавете нов слайд с данните, копирани от файла на Excel, който сте създали в Стъпка 1.

URL:https://bg.whycomputer.com/soft/100201198.html