OpenOffice.info

Code: Alles auswählen

Sub Read_all_files_and_write_them
  Dim NextFile As String
  Dim AllFiles As String
  Dim SourcePath As String
  Dim DestinationPath As String
  Dim SourceFile As String
  Dim oForm as Object
         
	mydoc = ThisComponent
	mySheet = myDoc.sheets(0)
	StartColumn = 0  'This can be adjusted. Consider the offset (A = 0 ...)
	StartRow = 1     'This can be adjusted, too
	NextRow = StartRow
   
	SourcePath="C:\"  'Don't forget the \ at the end!
	SourceFile=SourcePath
  
	NextFile = Dir(SourcePath, 0)
	
	MsgBox NextFile

	While NextFile  <> ""
  	'MsgBox NextFile
    mycell = mysheet.getCellByPosition(StartColumn,NextRow)   ' focus auf 0,0 setzen
    mycell.string = NextFile
    NextFile = Dir
    NextRow = NextRow + 1
  Wend
End Sub

Code: Alles auswählen

   While NextFile  <> ""
    if NextFile Like "########*" then
    	mysheet.getCellByPosition(0,NextRow).string = NextFile
    	mysheet.getCellByPosition(1,NextRow).Value = dateserial(Mid(NextFile,1,4), Mid(NextFile,5,2), Mid(NextFile,7,2))
    	if Instr(NextFile, "AB") > 0 Then
    		mysheet.getCellByPosition(2,NextRow).String = "AB"
    	else 
    		if Instr(NextFile, "BA") > 0 Then
    			mysheet.getCellByPosition(2,NextRow).String = "BA"
    		endif
    	endif
    	NextRow = NextRow + 1
    endif
    NextFile = Dir
  Wend

Code: Alles auswählen

if Instr(NextFile, "AB") > 0 Then

Code: Alles auswählen

if Instr(NextFile, "BA") > 0 Then

Code: Alles auswählen

       if Instr(1,NextFile, "AB",0) > 0 Then
          mysheet.getCellByPosition(2,NextRow).String = "AB"
       elseif
          Instr(1,NextFile, "BA",0) > 0 Then
             mysheet.getCellByPosition(2,NextRow).String = "BA"
       endif