Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Mit VBS nach Dateien suchen und mit Word auflisten - immer zu viele Spalten am Ende

Frage Entwicklung

Mitglied: TsukiSan

TsukiSan (Level 2) - Jetzt verbinden

28.06.2009, aktualisiert 18:58 Uhr, 7148 Aufrufe, 2 Kommentare

Hallo Scripter,

irgendwie finde ich nicht das Problem.
Mit unten aufgeführten Code möchte ich einfach nur nach Dateien auf einer Partition suchen und diese
auflisten.
Das funktioniert auch bestens, aber am Ende des erstellten Dokuments ist
1) bei einer gefundenen Datei eine Spalte zu viel
2) bei mehr als einer gefundenen Datei zwei Spalten zu viel.

Diese sind leer und "nerven"

Schaut euch bitte mal diesen Script für VBS an. Vielleicht findet ihr den Fehler ja.

01.
Dim Filter , X 
02.
 
03.
Set objWord = CreateObject("Word.Application") 
04.
Set objDoc = objWord.Documents.Add() 
05.
Set objRange = objDoc.Range() 
06.
objDoc.Tables.Add objRange,1,1 
07.
Set objTable = objDoc.Tables(1) 
08.
 
09.
Filter = inputbox("Bitte geben Sie den Dateifilter ein","Mit Word Dateien suchen und auflisten","*.Test") 
10.
msgbox "Befehl wird ausgeführt! Bitte warten!",,"Mit Word...." 
11.
objWord.FileSearch.FileName = Filter 
12.
objWord.FileSearch.LookIn = "D:\" 
13.
objWord.FileSearch.SearchSubfolders = True 
14.
objWord.FileSearch.Execute 
15.
 
16.
objWord.Visible = True 
17.
 
18.
For Each objFile in objWord.FileSearch.FoundFiles	 
19.
	if not objFile = "" then objTable.Rows.Add() 
20.
	objTable.Cell(x, 1).Range.text = objFile 
21.
    	if not objFile = "" then x = x + 1 
22.
	 
23.
Next 
24.
 
25.
msgbox "Befehl ausgeführt!Es wurden " & x & " Dateien gefunden und aufgelistet.",,"Mit Word...." 
26.
 
27.
Set objword = nothing 
28.
Set objDoc = nothing 
29.
Set objRange = nothing 
30.
Set objTable = nothing

Danke euch, für die "unnötige" Zeit, mal über diesen Script zu schauen.

Tsuki
Mitglied: bastla
28.06.2009 um 21:36 Uhr
Hallo TsukiSan!

Versuch es so (dann wird auch die erste gefundene Datei in der Liste aufscheinen):
01.
Dim Filter , X 
02.
 
03.
Set objWord = CreateObject("Word.Application") 
04.
Set objDoc = objWord.Documents.Add() 
05.
Set objRange = objDoc.Range() 
06.
 
07.
Filter = inputbox("Bitte geben Sie den Dateifilter ein","Mit Word Dateien suchen und auflisten","*.Test") 
08.
msgbox "Befehl wird ausgeführt! Bitte warten!",,"Mit Word...." 
09.
objWord.FileSearch.FileName = Filter 
10.
objWord.FileSearch.LookIn = "D:\" 
11.
objWord.FileSearch.SearchSubfolders = True 
12.
objWord.FileSearch.Execute 
13.
 
14.
Found = objWord.FileSearch.FoundFiles.Count 
15.
objDoc.Tables.Add objRange,Found,1 
16.
Set objTable = objDoc.Tables(1) 
17.
 
18.
objWord.Visible = True 
19.
For Each objFile in objWord.FileSearch.FoundFiles	 
20.
    if not objFile = "" then 
21.
            x = x + 1 
22.
            objTable.Cell(x, 1).Range.text = objFile 
23.
	end if 
24.
Next 
25.
 
26.
msgbox "Befehl ausgeführt!Es wurden " & x & " Dateien gefunden und aufgelistet.",,"Mit Word...." 
27.
 
28.
Set objword = nothing 
29.
Set objDoc = nothing 
30.
Set objRange = nothing 
31.
Set objTable = nothing
Alternativ könntest Du in Deinem bisherigen Code einfach die Zeilen 17 bis 23 ändern auf:
01.
Neu = False 
02.
For Each objFile in objWord.FileSearch.FoundFiles	 
03.
	if not objFile = "" then 
04.
           x = x + 1 
05.
           If Neu Then objTable.Rows.Add() 
06.
           objTable.Cell(x, 1).Range.text = objFile 
07.
           Neu = True 
08.
	end if 
09.
Next
Grüße
bastla
Bitte warten ..
Mitglied: TsukiSan
29.06.2009 um 03:03 Uhr
Hallo bastla,

danke, so geht's! Mit dem Hinzufügen von der Variable "Neu" in meinen Code - so wie du beschrieben hast - ist es ausreichend.
Nur mag das VBS da "End If" nicht. Hab ich entfügt und schon läuft's.

Vielen Dank und mir ist geholfen

Gruß

Tsuki
Bitte warten ..
Neuester Wissensbeitrag
Microsoft

Lizenzwiederverkauf und seine Tücken

(5)

Erfahrungsbericht von DerWoWusste zum Thema Microsoft ...

Ähnliche Inhalte
Visual Studio
gelöst Windows Form Dateien aus Ordner auflisten "dir" und per button öffnen (5)

Frage von Pilger83 zum Thema Visual Studio ...

VB for Applications
VBS Script zum versenden mehrerer Verknüpfungen zu Dateien per Lotus Notes

Frage von Sentinel87 zum Thema VB for Applications ...

Batch & Shell
gelöst XML-Datei: Pfade suchen, verlinkte Dateien kopieren und Pfade ändern (4)

Frage von ELEVATOR zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (17)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Windows Netzwerk
Windows 10 RDP geht nicht (16)

Frage von Fiasko zum Thema Windows Netzwerk ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...