VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Problem bei Serienbrief per VBA speichern	19.10.2016 02:18:57	Wolle9
Problem bei Serienbrief per VBA speichern	19.10.2016 14:41:01	BigBen
Problem bei Serienbrief per VBA speichern	19.10.2016 14:44:11	Gast88434
Problem bei Serienbrief per VBA speichern	19.10.2016 18:24:24	BigBen

Ansicht des Beitrags:

Von:
BigBen

Datum:
19.10.2016 14:41:01

Views:
665

Rating:

Antwort:

Thema:
Problem bei Serienbrief per VBA speichern

Hallo,

im Web habe ich eine Webseite gefunden, auf der ein Explorer geöffnet wird, und beliebige Dateien in einem Pfad markiert werden können:

http://stackoverflow.com/questions/25693848/how-to-select-multiple-files-in-windows-explorer-from-selected-cells-in-excel-us

In Windows 7 hat der VBA-Code so nicht ganz funktioniert da der Name des Explorers sich geändert hat. Nach einer Anpassung hat es jedoch funktioniert:

Option Explicit

Sub Sample()
    SelectMultipleFiles "Z:\temp"
End Sub

Sub SelectMultipleFiles(sFolder As String)
    Dim wb As WebBrowser
    Dim objExp As Shell32.Shell

    Set objExp = New Shell32.Shell

    objExp.Open sFolder

    '~~> Find our explorer window
    Do While wb Is Nothing: Set wb = GetExplorer(sFolder): Loop

    '~~> We are going to select files 1,3 and 5.csv
    '~~> The 5& is used so that any previous selections are cleared off
    Call wb.document.SelectItem(sFolder & "\DateiA.xlsx", 5&)
    Call wb.document.SelectItem(sFolder & "\DateiC.xlsx", 1&)
    Call wb.document.SelectItem(sFolder & "\DateiE.xlsx", 1&)
End Sub

'~~> Function to find the releavnt explorer window
Function GetExplorer(sFolder As String) As WebBrowser
    Dim objExp As New Shell32.Shell
    Dim wb1 As WebBrowser

    For Each wb1 In objExp.Windows
        If wb1.Name = "Windows-Explorer" And _
        LCase(wb1.document.Folder.Self.Path) = LCase(sFolder) Then
            Set GetExplorer = wb1
        End If
    Next
End Function

Eventuell hilft ja diese Lösung weiter?

LG, BigBen

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Problem bei Serienbrief per VBA speichern	19.10.2016 02:18:57	Wolle9
Problem bei Serienbrief per VBA speichern	19.10.2016 14:41:01	BigBen
Problem bei Serienbrief per VBA speichern	19.10.2016 14:44:11	Gast88434
Problem bei Serienbrief per VBA speichern	19.10.2016 18:24:24	BigBen