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

Стъпка 1

Изпълнете Excel, напишете "Alan" в A1, "Daniel" в A2, "Kitzia" в A3, "Оскар" в A4 и "Yarexli" в A5. Натиснете "Ctrl" и "S", за да запазите работната книга в "C: \" като "ExcelFile.xlsx". Затваряне на Excel

Стъпка 2

Стартирайте PowerPoint, кликнете върху раздел "Developer" и кликнете върху "Macros", за да стартирате диалоговия прозорец за макроси. Напишете "copyFromExcel" под "Името на макроса" и кликнете върху бутона "Създаване". Кликнете върху менюто "Инструменти" и натиснете "Предпочитания", за да изпълните диалоговия прозорец "Препратки". Превъртете надолу и поставете отметка в квадратчето "Microsoft Excel Object Library" и кликнете върху "OK".

Стъпка 3

Копирайте и поставете следното, за да създадете променливите, които ще използвате, за да копирате данните от Excel:

Dim sourceXL Като Excel.Application Dim sourceBook Като Excel.Workbook Dim sourceSheet Като Excel.Worksheet Dim dataReadArray (10) Като стринг Dim myPress като презентация Dim newSlide As Slide

Стъпка 4

Коригирайте стойностите на променливите на обекти:

Задайте sourceXL = Excel.Application Задайте sourceBook = sourceXL.Workbooks.Open ("G: \ ExcelFile.xlsx") Задайте sourceSheet = sourceBook.Sheets (1) Задайте myPres = ActivePresentation Задайте newSlide = myPres.Slides.Add (Index: = myPres .Slides.Count + 1, Оформление: = ppLayoutText)

Стъпка 5

Прочетете данните във файла на Excel и ги съхранявайте във вектор Верига:

Избор на данниReadArray (0) = sourceSheet.Range ("A1") Стойност sourceSheet.Range ("A2" Избор на данниReadArray (2) = sourceSheet.Range ("A3") Стойност sourceSheet.Range ("A4") Изберете dataReadArray (3) = sourceSheet.Range (" Избор на данниReadArray (4) = sourceSheet.Range ("A5") Стойност

Стъпка 6

Добавете данните от вектора Верига към новия слайд в настоящата си презентация:

newSlide.Shapes (1) .TextFrame.TextRange = "Копирани данни от Excel" newSlide.Shapes (2) .TextFrame.TextRange = dataReadArray (0) & vbNewLine & _ dataReadArray (1) & vbNewLine & _ dataReadArray (2) & vbNewLine & _ dataReadArray (3) & vbNewLine & _ dataReadArray (4) & vbNewLine

Стъпка 7

Затваряне на работната книга:

sourceBook.Close

Стъпка 8

Превключете в прозореца на PowerPoint и кликнете върху "Макроси". Кликнете върху "Стартиране", за да изпълните макроса "copyFromExcel" и добавете нов слайд с данни, копирани от файла Excel, създаден в стъпка 1.