Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
19.10.2016 02:18:57 |
Wolle9 |
|
|
|
19.10.2016 14:41:01 |
BigBen |
|
|
|
19.10.2016 14:44:11 |
Gast88434 |
|
|
Problem bei Serienbrief per VBA speichern |
19.10.2016 18:24:24 |
BigBen |
|
|
Von:
BigBen |
Datum:
19.10.2016 18:24:24 |
Views:
662 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
19.10.2016 14:41:01 |
BigBen |
|
|
|
19.10.2016 14:44:11 |
Gast88434 |
|
|
Problem bei Serienbrief per VBA speichern |
19.10.2016 18:24:24 |
BigBen |
|
|