Kuidas automaatselt kopeerida Excel PowerPoint kasutamine VBA makro

Lisa kujundid ja tekst PowerPoint slaidi kasutades VBA . Hemera Technologies / Photos.com / Getty Images

Kui sa kunagi tahtnud kiirendada andmete edastamiseks Microsoft Exceli töövihiku oma Microsoft PowerPoint esitlus, siis kasutades makro ja Visual Basic for Applicationstee.VBA on arvuti programmeerimiskeelt töötab Microsoft Office'i rakendused automatiseerida protsesse nagu andmete kopeerimise Excel.Makro võimaldab salvestada juhistega, mis saab käivitada ikka ja jälle koos ühe nupuvajutusega.

juhised

  1. Launch Excel, tüüp "Alan" in "A1", "Daniel" in "A2", "Kitzia"in "A3", "Oscar" in "A4" ja "Yarexli" in "A5."Vajuta "Ctrl" ja "S" salvestada töövihik "C: \" nagu "ExcelFile.xlsx."Sulge Excel.

  2. Launch PowerPoint, klõpsake "Arendaja" tab ja vajuta "Makrod" käivitada makro dialoogi akent.Tüüp "copyFromExcel" alla Macro nimi ja vajuta "Loo" nuppu.Vajuta "Tools" menüü ja vajuta "Viited" käivitada Viited dialoogi akent.Kerige ja kontrollige kast "Microsoft Excel & lt; versiooni number & gt; teegi" ja klõpsake "OK."

  3. Kopeeri ja kleebi järgmine luua muutujate saad kasutada, kopeerida andmeid Excel:

    Dim sourceXL Nagu Excel.Application

    Dim Source- Nagu Excel.Workbook

    Dim sourceSheet Nagu Excel.Worksheet

    Dim dataReadArray (10) Nagu String

    Dim myPress Nagu Presentation

    Dim newSlide Nagu Slide

  4. Set väärtused objekti muutujad:

    Set sourceXL = Excel.Application

    Set Source- = sourceXL.Workbooks.Open ("G: \ ExcelFile.xlsx ")

    Set sourceSheet = sourceBook.Sheets (1)

    Set myPres = ActivePresentation

    Set newSlide = myPres.Slides.Add (Index: = myPres.Slides.Count + 1, paigutus: = ppLayoutText)

  5. Loe andmete Excel fail ja hoidke seda String rida:

    sourceSheet.Range ("A1"). Vali

    dataReadArray (0) = sourceSheet.Range ("A1"). Value

    sourceSheet.Range ("A2 "). Vali

    dataReadArray (1) = sourceSheet.Range (" A2 "). Value

    sourceSheet.Range (" A3 "). Vali

    dataReadArray (2) = sourceSheet.Range (" A3 ").Väärtus

    sourceSheet.Range ("A4"). Vali

    dataReadArray (3) = sourceSheet.Range ("A4"). Value

    sourceSheet.Range ("A5"). Vali

    dataReadArray (4) = sourceSheet.Range ("A5"). Value

  6. Lisa andmeid String massiivi Uue slaidi oma praeguse esitlus:

    newSlide.Shapes (1) .TextFrame.TextRange = "Andmed kopeeritakse Excel"

    newSlide.Kujundid (2) .TextFrame.TextRange = dataReadArray (0) & amp;vbNewLine & amp;_

    dataReadArray (1) & amp;vbNewLine & amp;_

    dataReadArray (2) & amp;vbNewLine & amp;_

    dataReadArray (3) & amp;vbNewLine & amp;_

    dataReadArray (4) & amp;vbNewLine

  7. Sulge töövihik:

    sourceBook.Close
  8. Switch to PowerPointi akna ja vajuta "Makrod."Vajuta "Run" käivitada "copyFromExcel" makro ja Uue slaidi lisamiseks andmetega kopeeritud Exceli faili sammus loodud 1.

384
0
3
Visual Basic Programmeerimine