ich habe ein Problem, mit dem ich mich schon mehrere Wochen beschäftige.
Ich habe ein Programm geschrieben, bei dem ich von Excel aus, eine Powerpoint Präsentation öffne, befülle und anpasse. Nachdem die wichtigsten Daten vorhanden sind möchte ich als nächsten Schritt wieder auf das Excel-File zugreifen und zwei Tabellen kopieren.
Im Moment scheitere ich daran, dass auf Excel richtig zugegriffen wird.
Der Code ist bisher so:
Function TabellenPPTeinfuegen()
Dim msE As Object
Dim wsE As Worksheet
Set msE = GetObject(, "Excel.Application")
Set wsE = msE.ActiveWorkbook.Sheets("Data")
If wsE Is ActiveSheet Then
msE.ActiveWorkbook.Range("A5:M6").Copy
pptPres.Slides(4).Shapes.Paste
End If
End Function
Wenn ich den Code schrittweise durchlaufen lasse, dann wird anscheinend die If-Frage als false gewertet.
Ich hoffe mir kann irgendjemand helfen?