Kaip automatizuoti duomenų kopijavimą iš Excel į PowerPoint naudojant VBA makrokomandą

Jei norite greitai perkelti duomenis iš „Microsoft Excel“ darbaknygės į „Microsoft PowerPoint“ pristatymą, efektyviausias sprendimas – VBA makrokomanda. VBA (Visual Basic for Applications) yra programavimo kalba, naudojama Office programose procesų automatizavimui, įskaitant duomenų kopijavimą iš Excel.

1 žingsnis – Sukurkite Excel failą

Atidarykite Excel ir įveskite šiuos duomenis:

• A1 – Alan
• A2 – Daniel
• A3 – Kitzia
• A4 – Oscar
• A5 – Yarexli

Paspauskite Ctrl+S ir išsaugokite darbaknygę C:\ExcelFile.xlsx. Užverkite Excel.

2 žingsnis – Paruoškite PowerPoint makrokomandą

Atidarykite PowerPoint, eikite į skirtuką Developer ir spustelėkite Macros. Įveskite makrokomandos pavadinimą copyFromExcel ir paspauskite Create.

„Tools“ meniu pasirinkite References. Sąraše raskite ir pažymėkite Microsoft Excel Object Library, tada spustelėkite OK.

3 žingsnis – Kodo pradžia

Dim sourceXL As Excel.Application
Dim sourceBook As Excel.Workbook
Dim sourceSheet As Excel.Worksheet
Dim dataReadArray(10) As String
Dim myPres As Presentation
Dim newSlide As Slide

4 žingsnis – Objektų inicializavimas

Set sourceXL = New Excel.Application
Set sourceBook = sourceXL.Workbooks.Open("C:\ExcelFile.xlsx")
Set sourceSheet = sourceBook.Sheets(1)
Set myPres = ActivePresentation
Set newSlide = myPres.Slides.Add(Index:=myPres.Slides.Count + 1, Layout:=ppLayoutText)

5 žingsnis – Duomenų nuskaitymas

Perskaitykite langelius A1‑A5 ir įrašykite juos į masyvą:

dataReadArray(0) = sourceSheet.Range("A1").Value
dataReadArray(1) = sourceSheet.Range("A2").Value
dataReadArray(2) = sourceSheet.Range("A3").Value
dataReadArray(3) = sourceSheet.Range("A4").Value
dataReadArray(4) = sourceSheet.Range("A5").Value

6 žingsnis – Duomenų įterpimas į naują skaidrę

newSlide.Shapes(1).TextFrame.TextRange.Text = "Duomenys nukopijuoti iš Excel"
newSlide.Shapes(2).TextFrame.TextRange.Text = _
    dataReadArray(0) & vbCrLf & _
    dataReadArray(1) & vbCrLf & _
    dataReadArray(2) & vbCrLf & _
    dataReadArray(3) & vbCrLf & _
    dataReadArray(4)

7 žingsnis – Uždarykite Excel darbaknygę

sourceBook.Close

Grįžkite į PowerPoint, atidarykite Macros dialogą ir paspauskite Run. Makrokomanda sukurs naują skaidrę su Excel duomenimis.