Verständnisprobleme vbs

29/07/2009 - 09:59 von Wolf Grossi | Report spam
Hallo Leute,

ich mache die ersten Gehversuche mit Microsoft Office Excel 2007 und
VisualBasic.

Im Script test1.vbs wird eine excel.xls geöffnet.
Aus dieser will ich die Funktion GenXMLDOM durchführen.
Diese wird im Visual Basic Object catalog als
Public Function GenXMLDOM(rngData As Range, rootNN As String)
angeführt.


test1.vbs:


Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

Set objWorkBook = objExcel.Workbooks.Open("C:\TEST1.xls")

Msgbox("ActiveSheet=" & objWorkBook.ActiveSheet.Name)

GenXMLDOM Range("A1:q99"), "formular" ' Typen unvertràglich

objExcel.Quit()






Ich scheitere an der Parameterübergabe rngData, die als Range
erforderlich ist.
GenXMLDOM wirft den Fehler 'Typen unvertràglich GenXMLDOM'.
Scheint klar zu sein, da der Typ nicht Range ist.

Wie muß der Aufruf korrekt aussehen?

Wenn ich im Script

Dim rngData As Range
Set rngData = Range("A1:Z99")

definire, wird der Fehler 'Anweisungsende erwartet'
für die Zeile 'Dim rngdata as Range' erzeugt.



Wie mach' ich's richtig?


Danke für's Lesen und Tipps
Wolf
 

Lesen sie die antworten

#1 Ralf Schlegel
01/08/2009 - 09:53 | Warnen spam
Wolf Grossi schrieb:
Hallo Leute,

ich mache die ersten Gehversuche mit Microsoft Office Excel 2007 und
VisualBasic.

Im Script test1.vbs wird eine excel.xls geöffnet.
Aus dieser will ich die Funktion GenXMLDOM durchführen.
Diese wird im Visual Basic Object catalog als
Public Function GenXMLDOM(rngData As Range, rootNN As String)
angeführt.


test1.vbs:


Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

Set objWorkBook = objExcel.Workbooks.Open("C:\TEST1.xls")

Msgbox("ActiveSheet=" & objWorkBook.ActiveSheet.Name)

GenXMLDOM Range("A1:q99"), "formular" ' Typen unvertràglich

objExcel.Quit()






Ich scheitere an der Parameterübergabe rngData, die als Range
erforderlich ist.
GenXMLDOM wirft den Fehler 'Typen unvertràglich GenXMLDOM'.
Scheint klar zu sein, da der Typ nicht Range ist.

Wie muß der Aufruf korrekt aussehen?

Wenn ich im Script

Dim rngData As Range
Set rngData = Range("A1:Z99")

definire, wird der Fehler 'Anweisungsende erwartet'
für die Zeile 'Dim rngdata as Range' erzeugt.



Wie mach' ich's richtig?


Danke für's Lesen und Tipps
Wolf



Hallo Wolf,

geht es hier wirklich um VB-Script?
Dann solltest Du Folgendes wissen:
- VBS kennt nur den Datentyp Variant!
- Variablen werden nur mit 'Dim range' (ohne 'as [Datentyp]') deklariert
- "Public Function GenXMLDOM(rngData As Range, rootNN As String)"
geht meiner Meinung nach überhaupt nicht!
wenn Du auf den Visual Basic Object Catalog zugreifen willst,
mußt Du in Excels VBA programmieren oder mit VB6 und nicht in VBS
(Excel-Menü: Extras -> Macro -> VisualBasic Editor)

Liebe Grüße aus Wegberg

Ralf Schlegel
www.vb-zentrum.de

Ähnliche fragen