Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler 2147188160 (80048240)
 24.01.2015 14:04:02 Patrick
NotSolved

Ansicht des Beitrags:
Von:
Patrick		 Datum:
24.01.2015 14:04:02		 Views:
2010		 Rating:
     
Antwort:
  Ja
Thema:
Laufzeitfehler 2147188160 (80048240)

Hallo,

langsam verzweifle ich. Ich habe vor einigen Wochen einen vba Code geschrieben, der bis letzte Woche noch einwandfrei funktionier hat. Seit letzten Freitag tut er das nicht mehr, obwohl definitiv nichts am Code geändert wurde.
Die Fehlermeldung lautet:

Laufzeitfehler 2147188160 (80048240)
View (unknown member): Invalid request: The specified data type is unavailable

Der Fehler tritt immer auf wenn folgender Befehl versucht wird auszuführen:

pptPresentation.Application.ActiveWindow.View.PasteSpecial DataType:=ppPasteOLEObject

ich kann mir das wirklich nicht erklären... Hier nochmal der gesamte Code:

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
Sub exportExc2PP()
'############################################################################################### _
##################################################################
'version:                           1.0
'author:                            Patrick Tepass
'date:                              11/17/2014
'changes that needs to be done:     - User Interaction for folder path
'                                   - create manual: How to use this program
'                                   - close all excel and PP
'############################################################################################### _
##################################################################
 
'INPUT PARAMETER
'folder with Excel Sheets from database
Dim pathExcFold As String
pathExcFold = "H:\ExcExports"
'folder with PowerPoint Template in .pptx
Dim pathPP As String
pathPP = "H:\Export"
'############################################################################################### _
##################################################################
 
'variables
Dim fs As Object
Dim fVerz As Object
Dim fDatei As Object
Dim fdateien As Object
Dim strDat As String
Dim i As Integer
i = 0
 
'create full path of PowerPoint Template
pathPP = pathPP & "\" & "Presentation_Template.pptx"
'Count files in folder
    Dim fso As Object
    Dim numb As Integer
    Set fso = CreateObject("Scripting.FileSystemObject")
    numb = fso.GetFolder(pathExcFold).Files.Count
    Set fso = Nothing
 
Dim T() As String
ReDim Preserve T(1 To numb)
 
 
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim j As Integer
 
'Create an instance of the FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Get the folder object
Set objFolder = objFSO.GetFolder("H:\VA_VE\Projects\All_VM_Europe\Database\Export\ExcExports")
j = 1
'loops through each file in the directory and prints their names and path
For Each objFile In objFolder.Files
    'print file path
'    Cells(i + 1, 2) = objFile.Path
T(j) = objFile.Path
    j = j + 1
Next objFile
 
'open TRW template and set to active presentation
Dim pptApp As PowerPoint.Application
Dim pptSlide As PowerPoint.Slide
Dim pptPresentation As PowerPoint.Presentation
 
Set pptApp = Nothing
Set pptApp = CreateObject("PowerPoint.Application")
 
    With pptApp
        .Visible = True
        .WindowState = ppWindowMaximized
        .Activate
 
                If pathPP <> "" Then
                    .Presentations.Open Filename:=pathPP, ReadOnly:=msoFalse
                Else
                    .Presentations.Add
                End If
 
                Set pptPresentation = .ActivePresentation
    End With
'start loop 2   #############################################
Dim k As Integer
Dim newFilename As String
 
For k = 1 To numb
 
    Workbooks.Open T(k)
    Range("B5:F39").Select
    Selection.Copy
     
'create new slides, paste content and determine size & postition
            Set pptSlide = pptPresentation.Slides.AddSlide(pptPresentation.Slides.Count + 1,  _
pptPresentation.SlideMaster.CustomLayouts(2))
            pptSlide.Select
 
                     
            pptPresentation.Application.ActiveWindow.View.PasteSpecial DataType:= _
ppPasteOLEObject
                With pptPresentation.Application.ActiveWindow.Selection.ShapeRange
                .Left = 25
                .Top = 80
                .Width = 1000
                .Height = 420
                End With
                 
'set title
        Dim titleStr As String
        titleStr = Range("B1").Value
        pptSlide.Shapes(3).TextFrame.TextRange.Text = titleStr
 
'clear clipboard and close workbook
            Application.CutCopyMode = False
            ActiveWorkbook.Close False
Next k
'end loop 2     #############################################
     
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler 2147188160 (80048240)
 24.01.2015 14:04:02 Patrick
NotSolved