OpenOffice.info

Code: Alles auswählen

	Dim myFileProp1(0) as New com.sun.star.beans.PropertyValue

Sub Main
	oDok = thisComponent
       	sStartdatei = FileOpenDialog ("Datei auswählen")
		myFileProp1(0).name = "Hidden"
		myFileProp1(0).Value = True ' false
		oExterneDatei = starDesktop.loadComponentfromURL(sStartdatei, "_blank", 0, myFileProp1())				
		
	oHauptDateiBlatt1 = oDok.sheets.getByName("Tabelle1")
	oExternesBlatt1 = oExterneDatei.sheets(0)

	oHauptDateiBlatt1.getCellRangeByName("A1:C3").clearContents(255)

	dim aDatArray()
	aDatArray = oExternesBlatt1.getCellRangeByName("A1:C3").getDataArray
	oHauptDateiBlatt1.getCellRangeByName("A1:C3").setDataArray(aDatArray)
	
	oExterneDatei.close(True)
End Sub
'
'########################################################################################################
'
function FileOpenDialog(title as String) as String
    filepicker = createUnoService("com.sun.star.ui.dialogs.FilePicker")
    filepicker.Title = title
    filepicker.execute()
    files = filepicker.getFiles()
    FileOpenDialog = files(0)
End function
'
'########################################################################################################
'

Code: Alles auswählen

Sub OpenCopyCloseInsert
	Dim Dialogtyp(0)
	Dim myFileProp(0) as new com.sun.star.beans.PropertyValue
	myFileProp(0).Name="ReadOnly"
	myFileProp(0).Value = true
	oDoc = thisComponent
	mySheet = oDoc.sheets(0)
	again:
	DialogTyp(0) =com.sun.star.ui.dialogs.TemplateDescription.FILEOPEN_SIMPLE
 	MyDialog=createunoservice("com.sun.star.ui.dialogs.FilePicker")
	myDialog.initialize(DialogTyp())
	myDialog.displaydirectory=UserDictionary '"c:\Dokumente und Einstellungen\User\Eigene Dateien"
			MyDialog.execute
			if ubound(MyDialog.Files()) < 0 then exit sub
			FileName=MyDialog.Files(0)
			if right(FileName,4) = ".ods" then
			oDocument = StarDesktop.loadComponentFromURL(filename, "_blank", 0, myFileProp() )
			oRead = StarDesktop.CurrentComponent
			if oRead.identifier <> "com.sun.star.sheet.SpreadsheetDocument" then goto newtry:
				oReadSheet = oRead.sheets(0)
				ReadView = oRead.CurrentController
				ReadCells =  oReadsheet.getCellRangeByName("C3:H7")
				ReadView.Select(ReadCells)
				CopyInClipboard
			else 
				newtry:
				print "es wurde keine Calcdatei gewählt"
				goto again:
			end if 
		oRead.close(false)
		WriteView = oDoc.CurrentController
		WriteCell = mySheet.GetCellRangeByName("C10")
		WriteView.Select(WriteCell)
'		InsertTxtFromClipboard
		InsertAllFromClipboard
End sub



sub CopyInClipboard
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = StarDesktop.CurrentComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
end sub




sub InsertTxtFromClipboard 'Text,Zahlen,Datum
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(5) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Flags"
args1(0).Value = "SVDN"
args1(1).Name = "FormulaCommand"
args1(1).Value = 0
args1(2).Name = "SkipEmptyCells"
args1(2).Value = false
args1(3).Name = "Transpose"
args1(3).Value = false
args1(4).Name = "AsLink"
args1(4).Value = false
args1(5).Name = "MoveMode"
args1(5).Value = 4

dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args1())

end sub




sub InsertAllFromClipboard
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())


end sub