OpenOffice.info

Verfasst: **So, 15.01.2023 10:08**

Hallo!

Ich habe ein funktionierendes Macrö, was allerdings in der Form abgeändert werden müsste, so dass ich über ein Dialogfenster,
die zu importierende aussuchen kann. Das Verzeichnis in dem sich diese Datei befindet, kann im Macro festgelegt werden!

Vielen, lieben Dank für Eure schnelle und kompetende Hilfe, auch schon in der Vergangenheit! Ihr seid echt Super!!!

Gruß Ingo

sub import
odoc=thiscomponent
REM odoc.Sheets.insertNewByName("neue Tabelle",odoc.Sheets.count)
otab=odoc.sheets.getByName("Import")
sUrl=converttourl("Q:\2023\AbgabeCSV\2023-01-06 140112_Stunden.csv")
otab.link(sUrl,"","Text - txt - csv (StarCalc)","59,34,0,1",com.sun.star.sheet.SheetLinkMode.NORMAL)
oTab.linkmode=com.sun.star.sheet.SheetLinkMode.NONE
End Sub

Verfasst: **So, 15.01.2023 11:52**

Moin,
versuche mal dies:

Code: Alles auswählen

sub import
odoc=thiscomponent
REM odoc.Sheets.insertNewByName("neue Tabelle",odoc.Sheets.count)
otab = odoc.sheets.getByName("Import")
'sUrl=converttourl("Q:\2023\AbgabeCSV\2023-01-06 140112_Stunden.csv")
sUrl = Get_CSV
otab.link(sUrl,"","Text - txt - csv (StarCalc)","59,34,0,1",com.sun.star.sheet.SheetLinkMode.NORMAL)
oTab.linkmode=com.sun.star.sheet.SheetLinkMode.NONE
End Sub

function Get_CSV
	oDoc = thisComponent
	sURL =converttourl("Q:\2023\AbgabeCSV\")'DisplayDirectory
	objDateiDlg = createUnoService("com.sun.star.ui.dialogs.OfficeFilePicker")
	'objDateiDlg = createUnoService("com.sun.star.ui.dialogs.FilePicker")' hier klappt setDisplayDirectory() unter Windows nicht
	objDateiDlg.appendFilter( "CSV Files (*.csv)", "*.csv" )
	objDateiDlg.Title = ("CSV Datei auswählen")
	objDateiDlg.setDisplayDirectory(sURL)
	iAccept = objDateiDlg.execute()
	if iAccept = 0 Then exit function
	sFiles = objDateiDlg.getFiles()
    Get_CSV = sFiles(0)
end function

Gruß R

Verfasst: **So, 15.01.2023 12:07**

Neuer Rekord!!

Vielen, lieben Dank!!

Genau, was ich wollte

Danke Dir F3KmTotal

Gruß Ingo

OpenOffice.info

[gelöst]Mit Macro zu importierende Dateiaussuchen, wie?

[gelöst]Mit Macro zu importierende Dateiaussuchen, wie?

Re: Mit Macro zu importierende Dateiaussuchen, wie?

Re: [gelöst]Mit Macro zu importierende Dateiaussuchen, wie?