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, 7209 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 ..
Ähnliche Inhalte
VB for Applications
gelöst Bestimmte Spalten aus CSV-Datei auslesen (VBS) (9)

Frage von Gurkenhobel zum Thema VB for Applications ...

VB for Applications
gelöst Suche in Word (2)

Frage von MarcoBorn zum Thema VB for Applications ...

VB for Applications
gelöst VBS Suchen und Ersetzen bei UTF8 XML Dateien funktioniert nicht (7)

Frage von Nexxudus zum Thema VB for Applications ...

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

Frage von Raptox zum Thema VB for Applications ...

Neue Wissensbeiträge
Linux Netzwerk

Ping und das einstellbare Bytepattern

(1)

Erfahrungsbericht von LordGurke zum Thema Linux Netzwerk ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(3)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
SAN, NAS, DAS
MSA 2050 RAID Konfig (30)

Frage von Leo-le zum Thema SAN, NAS, DAS ...

Microsoft Office
Office Druck fehler (14)

Frage von DaistwasimBusch zum Thema Microsoft Office ...

Festplatten, SSD, Raid
Uninitialisierte Festplatte - Daten retten (11)

Frage von peterla zum Thema Festplatten, SSD, Raid ...

Netzwerkmanagement
Windows Server 2008 R2: "netsh reset" nicht verfügbar? (11)

Frage von RickTucker zum Thema Netzwerkmanagement ...