Mengebarkan Salinan Automatik Data Excel ke PowerPoint Dengan Makro VBA

Jika anda ingin mempercepat pemindahan data daripada workbook Microsoft Excel ke dalam persembahan Microsoft PowerPoint, menggunakan makro dan Visual Basic for Applications (VBA) adalah penyelesaian terbaik. VBA ialah bahasa pengaturcaraan komputer yang digunakan dalam aplikasi Microsoft Office untuk mengautomatikkan proses seperti menyalin data dari Excel. Makro membolehkan anda menyimpan set arahan yang boleh dijalankan berulang kali hanya dengan satu klik.

Langkah-Langkah

Langkah 1

1. Buka Excel. Masukkan nama berikut:

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

2. Tekan CTRL + S untuk menyimpan fail di C:\ dengan nama ExcelFile.xlsx. 3. Tutup Excel.

Langkah 2

1. Buka PowerPoint. 2. Pergi ke tab Developer dan klik Macros. 3. Masukkan nama copyFromExcel dan klik Create. 4. Di menu Tools, pilih References. Tandakan kotak di sebelah Microsoft Excel Object Library dan klik OK.

Langkah 3

Salin dan tampal kod berikut ke dalam editor VBA untuk mendefinisikan pembolehubah yang diperlukan:

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

Langkah 4

Set nilai kepada pembolehubah objek:

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(myPres.Slides.Count + 1, ppLayoutText)

Langkah 5

Baca data dalam fail Excel dan simpan dalam array String:

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

Langkah 6

Tambahkan data dari array ke slaid baru:

newSlide.Shapes(1).TextFrame.TextRange.Text = "Data copied from Excel"
newSlide.Shapes(2).TextFrame.TextRange.Text = \
    dataReadArray(0) & vbNewLine & \
    dataReadArray(1) & vbNewLine & \
    dataReadArray(2) & vbNewLine & \
    dataReadArray(3) & vbNewLine & \
    dataReadArray(4) & vbNewLine

Langkah 7

Tutup workbook Excel:

sourceBook.Close False
sourceXL.Quit

Berbalik ke PowerPoint, klik Macros, pilih copyFromExcel, dan klik Run. Slaid baru akan ditambah dengan data yang telah disalin dari Excel.

URL:https://ms.whycomputer.com/perisian/1015001198.html