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, 7161 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
Off Topic

"Ich habe nichts zu verbergen"

Erfahrungsbericht von FA-jka zum Thema Off Topic ...

Ähnliche Inhalte
Batch & Shell
Dateien mit Liste suchen (16)

Frage von Phippu zum Thema Batch & Shell ...

Batch & Shell
gelöst Dateien aus CSV mit Batch suchen (5)

Frage von joes1609 zum Thema Batch & Shell ...

VB for Applications
Excel Makro zum Suchen von Spalten und exportieren in CSV (3)

Frage von Raptox zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Exchange Server
gelöst Bestehende eMails autoamatisch weiterleiten (22)

Frage von metal-shot zum Thema Exchange Server ...

Hyper-V
gelöst Reiner Hyper- V Server oder lieber Rolle (22)

Frage von Winuser zum Thema Hyper-V ...

Apache Server
Lets Encrypt SSL mit Apache2 (19)

Frage von banane31 zum Thema Apache Server ...

SAN, NAS, DAS
gelöst Synology Version 6.1 Probleme (18)

Frage von Hendrik2586 zum Thema SAN, NAS, DAS ...