OpenOffice.info

Code: Alles auswählen

REM  *****  BASIC  *****

sub DateienZaehlen
        dim liste(10000) as string
        m=getdirs(liste(),0,"C:\Hier den Ordner mit Deinen Reklamationen")
           For i=0 to m-1
           next i
          oDoc = ThisComponent
oSheet = oDoc.sheets(0)
oZelle = oSheet.getCellbyPosition(0,0)
oZelle.Value = m + 1
        end sub



        function getdirs( liste(),z, folder) as integer
           sFolderUrl = ConvertToUrl( Folder )
           oSimpleFileAccess = createUnoService( "com.sun.star.ucb.SimpleFileAccess" )
           aFolders = oSimpleFileAccess.getFolderContents( sFolderUrl,true )
           For i = LBound( aFolders ) To UBound( aFolders )
             sFile = aFolders( i )
             If oSimpleFileAccess.isFolder( sFile ) Then
                getdirs( liste(),z, sFile)
              Else
                liste(z)=sfile
                z=z+1
             end if   
           next i       
           getdirs=z
        end function

Code: Alles auswählen

REM  *****  BASIC  *****

sub SpeichernUnter
oDoc=thisComponent
Sheet = oDoc.Sheets(0)
Cell = Sheet.getCellByPosition(0, 0) '<= Das ist Zelle A1
Filename = Cell.String
Path = "file:///C:/Hier Deinen Speicherordner eingeben/"
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "FilterName"
args1(0).Value = "StarOffice XML (Calc)"
oDoc.storeasurl(Path & Filename & ".ods",args1())
end sub

Code: Alles auswählen

function GetAndSetNumber as string
   dim f as Integer
   dim rechnungsdatei as string   
   dim renummer as string
  rechnungsdatei="d:/RKLnr.txt"
   if FileExists("file:///"&rechnungsdatei) then
         f = FreeFile()
         Open "file:///"&rechnungsdatei for Input as #f
               Line Input #f, renummer
               close #f
               f = FreeFile()
               Open "file:///"&rechnungsdatei for output as #f
               Print #f, val(renummer)+1
               close #f
        else
            renummer=0
        endif
    GetAndSetNumber=renummer  
end function

Code: Alles auswählen

Sub ReNummer_Speichern
   dim dummy()
   oDoc = ThisComponent
   oSheet = oDoc.Sheets.getByName("Tabelle1") 'Tabellenblattname
   oCell = oSheet.getCellRangeByName("A1") 'Zelle A1, in der Rechnungsnummer steht
   sReNummer = oCell.String 
   sLaufwerk = "d:/" 'Achtung: Für den Speicherort den Laufwerkspfad anpassen
   Filename = sReNummer
   neuerpfad = sLaufwerk + Filename + ".ods"
   dateiurl=converttourl(neuerpfad)
   odoc.storeAsUrl(dateiurl,dummy())
End Sub