Cara otomatis menyalin dari Excel ke PowerPoint menggunakan makro VBA

Langkah 1

Eksekusi Excel, tulis "Alan" di A1, "Daniel" dalam A2, "Kitzia" di A3, "Oscar" dalam A4 dan "Yarexli" di A5. Tekan "Ctrl" dan "S" untuk menyimpan buku kerja di "C: \" sebagai "ExcelFile.xlsx". Tutup Excel

Langkah 2

Jalankan PowerPoint, klik pada tab "Pengembang" dan klik "Macro" untuk menjalankan kotak dialog makro. Tulis "copyFromExcel" di bawah "Nama Makro" dan klik tombol "Buat". Klik pada menu "Tools" dan tekan "Preferences" untuk menjalankan kotak dialog "Referensi". Gulir ke bawah dan centang kotak "Microsoft Excel Object Library" dan klik "OK."

Langkah 3

Salin dan tempel berikut untuk membuat variabel yang akan Anda gunakan untuk menyalin data dari Excel:

Dim sourceXL As Excel.Application Dim sumberBuku As Excel.Workbook Dim sumberSheet As Excel.Worksheet Dim dataReadArray (10) Sebagai String Dim myPress Sebagai Presentasi Dim newSlide As Slide

Langkah 4

Sesuaikan nilai variabel objek:

Set sourceXL = Excel.Application Set sourceBook = sourceXL.Workbooks.Open ("G: \ ExcelFile.xlsx") Set sourceSheet = sourceBook.Sheets (1) Atur myPres = ActivePresentation Set newSlide = myPres.Slides.Add (Indeks: = myPres .Slides.Count + 1, Tata Letak: = ppLayoutText)

Langkah 5

Baca data dalam file Excel dan simpan dalam vektor Rantai:

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

Langkah 6

Tambahkan data dari vektor Rantai ke slide baru dalam presentasi Anda saat ini:

newSlide.Shapes (1) .TextFrame.TextRange = "Data disalin dari Excel" newSlide.Shapes (2) .TextFrame.TextRange = dataReadArray (0) & vbNewLine & _ dataReadArray (1) & vbNewLine & _ dataReadArray (2) & vbNewLine & _ dataReadArray (3) & vbNewLine & _ dataReadArray (4) & vbNewLine

Langkah 7

Tutup buku kerja:

sourceBook.Close

Langkah 8

Beralih ke jendela PowerPoint dan klik "Macro". Klik "Run" untuk menjalankan makro "copyFromExcel" dan tambahkan slide baru dengan data yang disalin dari file Excel yang dibuat pada langkah 1.