Kaip automatiškai kopijuoti iš „Excel“ į „PowerPoint“ naudojant „VBA Macro

Jei kada nors norėjote paspartinti duomenų perdavimą iš „Microsoft Excel“ darbaknygės į „Microsoft PowerPoint“ pristatymą, tada naudodami makrokomandą ir „Visual Basic for Applications“ yra kelias. „VBA“ yra kompiuterių programavimo kalba, naudojama „Microsoft Office“ programose, kad automatizuotų procesus, pvz., Kopijuojant duomenis iš „Excel“. Makro dėka galite išsaugoti instrukcijas, kurias galite atlikti vėl ir vėl su vienu mygtuko paspaudimu.

1 žingsnis
„Excel“ paleidimas, įveskite „Alan“ į „A1, "" Daniel "į" A2 "," Kitzia "į" A3 "," Oscar "į" A4 "ir" Yarexli "į" A5 ". Paspauskite „CTRL“ ir „S“, kad išsaugotumėte darbaknygę „C:“ kaip „ExcelFile.xlsx“. Uždaryti „Excel“.

2 žingsnis
„PowerPoint“ paleidimas, spustelėkite skirtuką „Kūrėjas“ ir spustelėkite „Makrokomandos“, kad atidarytumėte makro dialogo langą. Įveskite „copyFromExcel“ žemiau makro pavadinimo ir spustelėkite mygtuką „Create“. Spustelėkite meniu „Įrankiai“ ir spustelėkite „Nuorodos“, kad atidarytumėte dialogo langą „Nuorodos“. Slinkite žemyn ir pažymėkite langelį šalia „Microsoft Excel Object Library“ ir spustelėkite „OK“.

3 žingsnis
Kopijuokite ir įklijuokite šiuos duomenis, kad sukurtumėte kintamuosius, kuriuos naudosite, kad kopijuotumėte duomenis iš „Excel“: Dim šaltinio knyga kaip Excel.Workbook Dim šaltinio lapas kaip Excel.Worksheet Dim dataReadArray (10) Kaip eilutė Dim myPress Kaip pristatymas Dim newSlide As Slide

4 žingsnis
Nustatykite reikšmes objektų kintamiesiems : Set sourceXL = Excel.Application Nustatykite sourceBook = sourceXL.Workbooks.Open ("G: ExcelFox.xlsx") Nustatykite šaltinio lapą = šaltinio knygą. Lapai (1) Nustatyti myPres = ActivePresentation Nustatyti naująSlide = myPres.Slides.Add (indeksas: = myPres.Slides.Count + 1, Layout: = ppLayoutText)

5 žingsnis
Perskaitykite „Excel“ failo duomenis ir saugokite juos eilutės eilutėje: sourceSheet.Range („A1“). (0) = sourceSheet.Range ("A1"). Value sourceSheet.Range ("A2") Pasirinkite dataReadArray (1) = sourceSheet.Range ("A2"). Value sourceSheet.Range ("A3") Pasirinkite duomenisReadArray (2) = sou RceSheet.Range ("A3"). Value sourceSheet.Range ("A4") Pasirinkite dataReadArray (3) = sourceSheet.Range ("A4"). Value sourceSheet.Range ("A5") Pasirinkite duomenisReadArray (4) = SourceSheet.Range ("A5"). Vertė

6 žingsnis
Įtraukite duomenis iš eilutės masyvo į naują skaidrę dabartiniame pristatyme: newSlide.Shapes (1) .TextFrame.TextRange = "Duomenys kopijuojama iš „Excel“ „NewSlide.Shapes (2) .TextFrame.TextRange = dataReadArray (0) ir vbNewLine & _ dataReadArray (1) & vbNewLine & _ dataReadArray (2) & vbNewLine & _ dataReadArray (3) & vbNewLine & _ dataReadArray (4 ) & vbNewLine

7 žingsnis
Uždarykite darbaknygę: sourceBook.Close
Įjunkite „PowerPoint“ langą ir spustelėkite „Makrokomandos“. Spustelėkite „Vykdyti“, kad paleistumėte „copyFromExcel“ makrokomandą ir pridėkite naują skaidrę su duomenimis, nukopijuotais iš „Excel“ failo, kurį sukūrėte 1 veiksme.

URL:https://lt.whycomputer.com/software/100401198.html