vielen dank !!!
funktionieren tut es auch
verstehen tue ich nur die ersten paar zeilen den rest nicht mehr
Dim ws As New NotesUIWorkspace
v_ReturnValue = ws.OpenFileDialog(False, "Wählen Sie eine CSV-Datei aus", "CSV Files|*.CSV", "C:\") -> das hier ist klar
und das hier garnicht:
If Not Isarray(v_ReturnValue) Then Exit Sub
'If v_ReturnValue(0) = "" Then Exit Sub
fileName = v_ReturnValue(0)