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

Ansicht des Beitrags:
Von:
BigBen		 Datum:
19.10.2016 18:24:24		 Views:
939		 Rating:
     
Antwort:
  Ja
Thema:
Problem bei Serienbrief per VBA speichern

Hallo,

wenn es darum geht, alle Dateien zu markieren, die einer Bedingung erfüllen, dann lässt sich die VBA-Routine leicht ergänzen:

 

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
    Dim sFilename As String, bFirst As Boolean
    sFilename = Dir(sFolder & "\" & "*.xlsx")
    bFirst = True
    Do Until sFilename = ""
        Call wb.document.SelectItem(sFolder & "\" & sFilename, IIf(bFirst, 5&, 1&))
        bFirst = False
        sFilename = Dir()
    Loop
    '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

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
19.10.2016 02:18:57 Wolle9
NotSolved
19.10.2016 14:41:01 BigBen
NotSolved
19.10.2016 14:44:11 Gast88434
NotSolved
Blau Problem bei Serienbrief per VBA speichern
 19.10.2016 18:24:24 BigBen
NotSolved