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

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

little fingers
***
Beiträge: 74
Registriert: Fr, 12.05.2017 15:31

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

Beitrag von little fingers »

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
Zuletzt geändert von little fingers am So, 15.01.2023 12:06, insgesamt 1-mal geändert.
F3K Total
********
Beiträge: 3704
Registriert: Mo, 28.02.2011 17:49

Re: Mit Macro zu importierende Dateiaussuchen, wie?

Beitrag von F3K Total »

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
little fingers
***
Beiträge: 74
Registriert: Fr, 12.05.2017 15:31

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

Beitrag von little fingers »

Neuer Rekord!!

Vielen, lieben Dank!!

Genau, was ich wollte

Danke Dir F3KmTotal

Gruß Ingo
Antworten