ฉันใหม่สำหรับ VBA อย่างแน่นอน ฉันพยายามสร้างงานนำเสนอที่เนื้อหาของแต่ละเซลล์ (เป็นแถว) สร้างสไลด์ใหม่ในงานนำเสนอ

ฉันค้นหารหัส แต่หาได้เฉพาะ Windows เท่านั้น เมื่อฉันพยายามใช้รหัสบน Mac - OS X 10.7.4 (Excel 2011) ฉันได้รับข้อผิดพลาด

ต้องการความช่วยเหลือ :)!

รหัสและข้อผิดพลาดมีดังนี้:

รหัส:

รหัส แปลงเป็นข้อความ:

Sub OneSlideForEachRowCell()
'Open the Excel workbook. Change the filename here.
Dim OWB As New Excel.Workbook
Set OWB = Excel.Application.Workbooks.Open{":Users:vikshek:Desktop:list.xlsx")
'Grab the first Worksheet in the Workbook
Dim WS As Excel.Worksheet
Set WS = OWB.Worksheets(1)
'Loop through each used row in Column A
For i = 1 To WS.Range("A65536").End(xlUp).Row
  'Copy the first slide and paste at the end of the presentation
  ActivePresentation.Slides(1).Copy
  ActivePresentation.Slides.Paste(ActivePresentation.Slides.Count + 1)

  'Change the text of the first text box on the slide.
  ActivePresentation.Slides(ActivePresentation.Slides.Count).Shapes(1).TextFrame.TextRange.Text = WS.Cells(i, 1).Value
Next
End Sub

ข้อผิดพลาด:

Run-time error '429': ActiveX component can't create object

ในการแก้ไขข้อผิดพลาดมันเป็นการเน้นข้อความ

Set OWB = Excel.Application.Workbooks.Open(Filename:=":Users:vikshek:Desktop:list.xlsx")

ชื่อพา ธ ต้องมีชื่อโวลุ่ม ลองชื่อพา ธ ที่สมบูรณ์สำหรับไฟล์ตัวอย่างเช่น:

Set OWB = Excel.Application.Workbooks.Open(Filename:="Macintosh HD:Users:vikshek:Desktop:list.xlsx")`

ลอง POSIX ชื่อพา ธ ของไฟล์ที่ไม่ต้องการชื่อโวลุ่มแม้ว่าแบบฟอร์มนี้อาจใช้งานไม่ได้ก่อน Excel 2013

/Users/vikshek/Desktop/list.xlsx

การอ้างอิง

ดู ทำการแสดงไฟล์และโฟลเดอร์โดยทางโปรแกรมใน Excel 2011 สำหรับ Mac สำหรับตัวอย่างที่ใช้ Applescript (พร้อมฟังก์ชัน MacScript) และ VBA