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

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: [gelöst]Mit Macro zu importierende Dateiaussuchen, wie?

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

von little fingers » So, 15.01.2023 12:07

Neuer Rekord!!

Vielen, lieben Dank!!

Genau, was ich wollte

Danke Dir F3KmTotal

Gruß Ingo

Re: Mit Macro zu importierende Dateiaussuchen, wie?

von F3K Total » 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

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

von little fingers » 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

Nach oben