Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
19.10.2016 02:18:57 |
Wolle9 |
|
|
Problem bei Serienbrief per VBA speichern |
19.10.2016 14:41:01 |
BigBen |
|
|
|
19.10.2016 14:44:11 |
Gast88434 |
|
|
|
19.10.2016 18:24:24 |
BigBen |
|
|
Von:
BigBen |
Datum:
19.10.2016 14:41:01 |
Views:
675 |
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
|
- 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 |
|
|
Problem bei Serienbrief per VBA speichern |
19.10.2016 14:41:01 |
BigBen |
|
|
|
19.10.2016 14:44:11 |
Gast88434 |
|
|
|
19.10.2016 18:24:24 |
BigBen |
|
|