Hallo,
Ich hab mit ein Makro zusammengeschnipselt. mit dem ich nach einem
bestimmten Wort in Calc-Dateien in einem Verzeichnis suchen kann.
Dies funktioniert soweit auch, aber leider bleiben die Calc-Dokument immer
ge�ffnet.
Wenn ich dann den Doc.close() einf�ge kommt der Fehler:
Basic Laufzeitfehler.
Es ist eine Exception aufgetreten
Type: com.sun.star.lang.IllegalArgumentException
Message: arguments len differ!.
Woran kann das liegen? (WinXP, OOo 1.9.104)
Viel Gr��e
Georg
PS.:
Hier mein Makro
Sub ArtikelinStuecklistesuchen
Dim Doc As Object
Dim Page As Object
Dim Form As Object
Dim Field As Object
Dim Artikel as Variant
Dim Datei as String
Dim Datei1 as String
Dim Sheet as Object
Dim Zeile AS Integer
Dim Code AS Variant
Dim Stuecklisten as String
Dim FileProperties(0) As New com.sun.star.beans.PropertyValue
Doc = thisComponent
Page = Doc.DrawPage
Form = Page.Forms.GetByIndex(0)
Field = Form.GetByName("ArtikelTab1")
Artikel = Field.GetByIndex(0).Text
Stuecklisten = ""
FileProperties(0).Name = "Readonly"
FileProperties(0).Value = True
Datei = Dir("D:\Technik\St�cklisten\", 0)
While Datei <> ""
Datei1 = "file:///D:/Technik/St�cklisten/"& Datei &""
Doc = StarDesktop.loadComponentFromURL(Datei1, "_blank", 0,
FileProperties())
Zeile = 12
Code = Doc.Sheets(0).getCellByPosition(2,Zeile).String
Do
If Code = Artikel Then
Stuecklisten = Stuecklisten & Chr(13) &
Doc.Sheets(0).getCellByPosition(1,Zeile).String &" Stk. in " & Datei
End If
Zeile = Zeile + 1
Code = Doc.Sheets(0).getCellByPosition(2,Zeile).String
Loop While Code <> "Ende"
Doc.close()
Datei = Dir
Wend
Msgbox Stuecklisten
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
