Top-Themen

Aktuelle Themen (A bis Z)

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 Inhalt einer Excel Datei mit VBS Script ersetze, ändern

Mitglied: Manrique

Manrique (Level 1) - Jetzt verbinden

08.11.2018, aktualisiert 12:26 Uhr, 126 Aufrufe, 10 Kommentare

Hallo an alle,

die Aufgabe ist:
in einer Excel Datei stehen in der ersten Zeile (Spaltenbeschriftung) die Werte betragnach UUID oder steuernach UUID. Diese sollen durch betrag und steuer ersetzt werden!

In den restlichen Zellen ab der 2 Zeile möchte ich eventuell vorhandene Anführungszeichen " entfernen! Die bestehende Datei test.xlsx kann überschrieben werden.

als Anfänger habe ich aufgrund meiner Recherchen im Web folgenden NICHT funktionierenden Code gebastelt:

Datei = "C:\test.xlsx"
arrAlt = Array("betragnach UUID", "steuernach UUID", "betragnach konto", "steuernach konto", Chr(34))
arrNeu = Array("betrag", "steuer", "betrag", "steuer", "")

Set app = CreateObject("Excel.Application")
Set fso = CreateObject("Scripting.FileSystemObject")

Set wb = app.Workbooks.Open(Datei)

For i = 0 To UBound(arrAlt) - 1
var = Replace(var, arrAlt(i), arrNeu(i))
Next

fso.CreateTextFile(Aus).Write var

wb.Save
wb.Close

app.Quit
Set app = Nothing
Set fso = Nothing

Vielen Dank
Mitglied: 137443
LÖSUNG 08.11.2018, aktualisiert um 17:34 Uhr
Nicht weiter das Problem ...:
01.
Const DATEI = "C:\text.xlsx" 
02.
Set objExcel = CreateObject("Excel.Application") 
03.
objExcel.DisplayAlerts = False 
04.
objExcel.Visible = True 
05.
arrAlt = Array("betragnach UUID","steuernach UUID","betragnach konto","steuernach konto") 
06.
arrNeu = Array("betrag","steuer","betrag","steuer") 
07.
With objExcel.Workbooks.Open(DATEI) 
08.
	With .Sheets(1).Range("1:1") 
09.
		For i = 0 To UBound(arrAlt) 
10.
			.Replace arrAlt(i),arrNeu(i),2,1,False 
11.
		Next 
12.
	End With 
13.
	.Sheets(1).UsedRange.Offset(1,0).Replace """","",2,1,False 
14.
	.Save 
15.
	.Close True 
16.
End With 
17.
objExcel.DisplayAlerts = True 
18.
objExcel.Quit 
19.
MsgBox "Feddich", vbInformation
Gruß l.
Bitte warten ..
Mitglied: Manrique
08.11.2018 um 17:04 Uhr
Hallo lummel,

danke für deine Hilfe. Es funktioniert fast: in der Datei test.xlsx wird in Zelle I1 betragnach UUID durch betrag ersetzt. Jedoch in Zelle K1 steht immer noch steuernach UUID anstatt steuer.
In den Arrays Alt bzw Neu sind das doch immer "Pärchen" oder? Also ist die Positon im Array entscheidend, oder?

Wie würde das gehen wenn ich die xlsx Datei als csv Trennzeichen getrennt speichern möchte?

Danke für die Hilfe
Bitte warten ..
Mitglied: 137443
08.11.2018, aktualisiert um 17:49 Uhr
Zitat von Manrique:
danke für deine Hilfe. Es funktioniert fast: in der Datei test.xlsx wird in Zelle I1 betragnach UUID durch betrag ersetzt. Jedoch in Zelle K1 steht immer noch steuernach UUID anstatt steuer.
Logisch weil du nur in der ersten Zeile danach suchen wolltest, so dein Wortlaut. Deswegen ersetzt es auch nur dort die Überschriften ich zitiere:
in einer Excel Datei stehen in der ersten Zeile (Spaltenbeschriftung) die Werte betragnach UUID oder steuernach UUID. Diese sollen durch betrag und steuer ersetzt werden!


In den Arrays Alt bzw Neu sind das doch immer "Pärchen" oder?
Ja-
Also ist die Positon im Array entscheidend, oder?
Nein. das hier legt fest in welchem Bereich diese Teile ersetzt werden.
With .Sheets(1).Range("1:1")

Wie würde das gehen wenn ich die xlsx Datei als csv Trennzeichen getrennt speichern möchte?

Danke für die Hilfe
Methode SaveAs nutzen.
Bitte warten ..
Mitglied: Manrique
08.11.2018 um 17:13 Uhr
Aber K1 befindet sich in der ersten Zeile, was ist daran falsch

LG
Bitte warten ..
Mitglied: 137443
08.11.2018, aktualisiert um 17:31 Uhr
Uups, sorry komplett übersehen. Nochmal kopieren, da war ein Schnitzer von dir noch drin den ich fälschlicherweise übernommen hatte.
Bitte warten ..
Mitglied: Manrique
08.11.2018 um 17:31 Uhr
Was meinst du mit nochmal kopieren?

Kannst du mir bitte den Code ändern?

Vielen Dank
Bitte warten ..
Mitglied: 137443
08.11.2018 um 17:31 Uhr
s.o.
Bitte warten ..
Mitglied: Manrique
08.11.2018 um 17:36 Uhr
Super, jetzt funktionierts!

Vielen Dank für die rasche und kompetente Hilfe!

Schönen Abend noch
Bitte warten ..
Mitglied: 137443
08.11.2018 um 17:50 Uhr
Kein Thema, ebenfalls schönen Abend.
Bitte warten ..
Mitglied: Manrique
09.11.2018 um 11:26 Uhr
Hallo lummel,

ich möchte ab Zeile 2 auch ev. vorhandene Zeilenumbrüche entfernen. Das sollte Chr(10) und Chr(13) sein.

Ist das mit einer Erweiterung in Zeile 13 möglich?

Könnte für andere hilfreich sein - SaveAs csv Trennzeichen getrennt:
https://stackoverflow.com/questions/9216919/converting-xls-to-csv-using- ...

The Function SaveAs is defined so : .SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)

Thas is, to use the semicolon (if your regional language option are correctly set)

ExcelObj.Workbooks(1).SaveAs csvFile, 6,,,,,,,,,,True


LG
Bitte warten ..
Ähnliche Inhalte
VB for Applications

Inhalt einer XML Datei Script ändern

gelöst Frage von chris27584VB for Applications4 Kommentare

Hallo zusammen, in folgendem Script <?xml version="1.0"?> -<SkClientConfig xmlns:xsi=" xmlns:xsd=" <LastServerIndex>1</LastServerIndex> <LastUser>11111</LastUser> <LastWorkplace>2358</LastWorkplace> -<SerializableFont> <FontValue>Microsoft Sans Serif; 8,25pt</FontValue> </SerializableFont> ...

Batch & Shell

Inhalt von XML-Dateien ändern

gelöst Frage von Kedi123Batch & Shell14 Kommentare

Hallo zusammen, wir haben täglich viele XML-Dateien, die unter anderem jeweils eine Festplattengröße in Byte enthalten (Zeile 16). Um ...

Batch & Shell

Powershell Script um Inhalt von Dateien zu vergleichen

Frage von zamsi7Batch & Shell14 Kommentare

Hallo an alle, hoffe ich bin hier richtig Ich würde ein Powershell script benötigen, welche mir hilft Dateien in ...

VB for Applications

VBS Suchen und Ersetzen bei UTF8 XML Dateien funktioniert nicht

gelöst Frage von NexxudusVB for Applications7 Kommentare

Hallo zusammen, ich verzweifel gerade an einer - eigentlich total primitiven- Aufgabe. Dazu muss ich sagen, dass ich mich ...

Neue Wissensbeiträge
Windows Server
Erneutes Release von WS2019 und Win10 v1809
Tipp von IT-Pro vor 17 StundenWindows Server3 Kommentare

Hi, nachdem der Windows Server 2019 und Windows 10 in der Version 1809 aufgrund von verschwinden von Dateien nach ...

CPU, RAM, Mainboards
Spectre Update Tool für ältere PCs
Information von sabines vor 19 StundenCPU, RAM, Mainboards6 Kommentare

Mit Hilfe eines Tools wird der betreffende PC permanent von einem USB Stick gestartet, der ein passendes Microcode Update ...

Windows 10
Windows 10 Oktober 2018 Update: Es ist wieder da
Tipp von Bowsette vor 1 TagWindows 101 Kommentar

Ein neuer Versuch von Microsoft das Windows 10 Oktober 2018 Update, auch bekannt als 1809, an den Mann zu ...

Windows Server

Windows Server 2016: Achtung - ab heute gibt es wieder Express Updates

Information von kgborn vor 1 TagWindows Server1 Kommentar

Kurze Info für Administratoren, die Windows Server 2016 per WSUS/SCCM mit Updates betanken. Ab heute gibt es für Windows ...

Heiß diskutierte Inhalte
Windows Server
Windows Server 2016 Lizenzierung - 7 Hyper V VMs
Frage von staybbWindows Server18 Kommentare

Hallo zusammen, wir haben zwei HP Server gekauft mit jeweils pro Server 2 CPUs à 10 Cores. Also insgesamt ...

Batch & Shell
Ordnernamen mit String aus Ziffern-Zahlenkombination erstellen
Frage von MmarKussBatch & Shell16 Kommentare

Hallo zusammen, ich habe ein etwas komplexeres Problem, welches ich selbst mittels einer Batch-Datei lösen will / muss, da ...

Windows Server
Lohnt sich eine Domäne für uns?
Frage von BowsetteWindows Server12 Kommentare

Hallo, ich arbeite in einem kleinen Unternehmen mit mehr als 5 und weniger als 10 Mitarbeitern, also Small Business ...

Windows Server
AD Password Reminder Mail
Frage von TeutoneWindows Server10 Kommentare

Hallo liebe Leute, ich habe vor langer Zeit einmal ein Password Reminder Mail Script erstellt, welches nun nicht mehr ...