2017-08-02 6 views
0

Ich hatte Code in Excel VBA, die ich auch in Powerpoint VBA konvertieren möchten. hier ist das, was ich bisher in ppt VBA haben:Konvertieren Array in Excel VBA zu Powerpoint VBA

Dim wbkISS As Excel.Workbook 
Dim varSheetISS As Excel.Worksheet 

Set wbkISS = Workbooks.Open(FileName:="C:\Users\...\Documents\ISS.xlsm") 
Set varSheetISS = wbkISS.Worksheets("For ISS") 

strIDRangeISS = "A2:D50" 

varSheetISS = varSheetISS.Range(strIDRangeISS) 

For iRowISS = LBound(varSheetISS, 1) To UBound(varSheetISS, 1) 
    ... 
    For iRowFCST = LBound(varSheetFCST, 1) To UBound(varSheetFCST, 1) 
     ... 

Aber bei „LBound (varsheetISS“ es mir den Fehler Compile gibt. Erwartetes Array Mein Code funktioniert in Excel in Ordnung, so habe ich denke ich die falsche ? Syntax für ppt

+0

Dieser Code leidet unter "Option Explicit" Header. – MacroMarc

+0

Das funktioniert wirklich gut in Excel? Ziemlich sicher, dass es nicht ... Wenn Sie das in PPT ausführen möchten, müssen Sie zuerst ein Excel-Anwendungsobjekt erstellen –

+0

Sorry, die Excel VBA-Version ist anders, der Code, den ich dort gepostet habe, ist, was ich bisher für ppt geändert habe – user90823745

Antwort

1

Hatte als Antwort zu schreiben:..

Dieser Code ist aus keinem 'Option Explicit' Kopf leidet

Die Variable varSheetISS ist um recklessly geleitet wird

Es beginnt das Leben als Arbeitsblatt und wird dann in einen Bereich umgewandelt (in dem die Absicht war, den Wert des Bereichs zu erhalten).

Eine Menge davon kann mit Option Explicit vermieden werden.

Dim issArray As Variant: issArray = varSheetISS.Range(strIDRangeISS).Value2