Net Framework, Office 365, C#, WPF, ASP.Net, Visual Studio, Programmiersprachen PC, C# Programmieren, vba, SQL Server, free source code snippets Antivirus free
#

Download:

Datei 1: Demo_39_Excel_Serien_Emails_mit_Anhang_und_cc_02.xlsm

Excel File-Dialog:

 

Der folgende Excel Makro Code in vba erstellt einen Datei-Dialog für eine Excel-Datei.

Dabei können mehrer Dateien ausgewählt werden und als Text übernommen werden.

 

Download: Die Code-Vorlage steht unter Codedocu.de zum Download als Excel Beispiel-Datei.

bzw: das vba Code-Sample kann als vba Code weiter unten kopiert werden.

 

 

Im File-Dialog

Beim Klicken auf den Button: ->Select Files

 

 

Vba Code zum einfügen in die Excel-Datei

 

'*Reference Microsoft scripting Runtime    http://www.microsoft-programmierer.de/Details?d=1076

Public Sub Select_File()

    '-----------< Select_File() >-----------

 

    '------< Select_File() >------

    '--< File-Dialog >--

    Dim objFiledialog As FileDialog

    Set objFiledialog = Application.FileDialog(msoFileDialogFilePicker)

    objFiledialog.AllowMultiSelect = True

    objFiledialog.ButtonName = "->Select Files"

    objFiledialog.Filters.Add "Add Files""*.*"

    objFiledialog.Title = "Select Files.."

    objFiledialog.InitialView = msoFileDialogViewTiles

    objFiledialog.InitialFileName = ActiveWorkbook.Path

    objFiledialog.AllowMultiSelect = True

    If Not objFiledialog.Show() = True Then

        Exit Sub

    End If

    '--< File-Dialog >--

 

    '-< check >-

    '</ Ordner ist leer >

    If objFiledialog.SelectedItems().Count = 0 Then

        Exit Sub

    End If

    '</ Ordner ist leer >

    '-</ check >-

 

    Dim sFilename As String

    Dim sFiles As String

    sFiles = ""

    '----< @Loop: Files >----

    Dim iFile As Integer

    For iFile = 1 To objFiledialog.SelectedItems.Count

        '------< Loop.Item  >------

        DoEvents

 

        '< get selection >

        sFilename = objFiledialog.SelectedItems(iFile)

        '</ get selection >

 

        '< correct >

        sFilename = Replace(sFilename, ActiveWorkbook.Path & "\""", 1, 1, vbBinaryCompare)

        '</ correct >

 

 

        '< add >

        sFiles = sFiles & ";" & sFilename

        '</ add >

    Next

    '----</ @Loop: Files >----

    '< correct >

    sFiles = Replace(sFiles, ";""", 1, 1, vbBinaryCompare)

    '</ correct >

 

 

    '< write_into_cell >

    ActiveWorkbook.Names("varFiles").RefersToRange.Value2 = sFiles

    '</ write_into_cell >

    '-----------</ Select_File() >-----------

End Sub

 

 

 

 

 

Mobile
»
Excel Datei-Dialog zum Einfügen von Dateien als Text mit Pfad
»
Excel vba: Erkennen einer Eingabe in Zellen
»
Excel, vba: Bild einfügen in eine Zelle von Zwischenspeicher
»
Excel: Formelfelder per Code kopieren
»
Excel Adressen in vba verwenden
»
Spalte in Excel per vba code als Nummer löschen
»
Excel Bereich in eine Tabelle umwandeln
»
Gruppierung in Excel per vba öffnen oder schliessen
»
Excel : Durchlaufen von Zeilen, Auswerten von Zellinhalten
»
Excel: eine Textdatei erstellen, Zeilen schreiben, Speichern

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Raimund.Popp@Microsoft-Programmierer.de