OpenOffice.info

sub DatenInZellen
   Dim NextFile As string
   Dim dReihe As variant
   Dim mycell as variant
	
   NextFile = Dir("C:\temp\", 0)
  
 for reihe = 0 to 6
	myDoc = stardesktop.currentcomponent
	mySheet = myDoc.sheets(0)
	mycell = mysheet.getCellByPosition(2,0 + dReihe)
	mycell.string = dir
 next reihe

end sub

Moin
Das war wohl etwas ungenau.
Ich habe vor ein Verzeichnis auszulesen zum erstellen einer Datenbank, die einzelnen Dateinamen sollen jeweils in eine Zelle erscheinen. So wie das folgende von mir angepaßt Makro es macht. Das Problem ist nun das die letzte Datei aus dem Verzeichnis nicht eingetragen wird, was muß hier nun noch angepasst werden.
[code]
sub DatenInZellen
Dim NextFile As string
Dim dReihe As variant
Dim mycell as variant

NextFile = Dir("C:\temp\", 0)

for reihe = 0 to 6
myDoc = stardesktop.currentcomponent
mySheet = myDoc.sheets(0)
mycell = mysheet.getCellByPosition(2,0 + dReihe)
mycell.string = dir
next reihe

end sub
[/code]
Schon mal Danke

Hex ooodoc,

[quote]Bitte um Hilfe[/quote]

Ja und :?:

Was für Hilfe brauchst du denn? Wenn du die Daten in der msgbox schon hast, dann weisst du doch, wie du an sie rankommst.
Und weiter? Was heisst "in Calc oder Base"? Als Text? in einer Zelle? in einem Datensatz? Eine Zeile pro Eintrag? Oder wie oder was?
Was willst du denn erreichen?

Gruss
Thomas

Moin
Das Problem ist, ich möchte Dateien in ihrem Verzeichnis und Unterverzeichnis auslesen und in calc besser in base übernehmen.
Folgendes Makro zeigt es aber nur in einer MsgBox an.

Sub ShowFiles2
Dim NextFile As String
Dim AllFiles As String
AllFiles = ""
NextFile = Dir("C:\temp\", 0)
While NextFile <> ""
AllFiles = AllFiles & Chr(13) & NextFile
NextFile = Dir
Wend
MsgBox AllFiles
End Sub

Bitte um Hilfe