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, 128 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
Utilities
Teamviewer 14 Verbindungsprobleme mit Proxy
Tipp von PeterleB vor 12 StundenUtilities

Nach dem Umstieg von Version 13 auf 14 wollte sich TV nicht mehr mit dem Netz verbinden, ignorierte offenbar ...

Administrator.de Feedback
Unsere Datenbank wurde umgestellt
Information von Frank vor 16 StundenAdministrator.de Feedback5 Kommentare

Hallo User, ich habe in der Nacht unsere Datenbank umgestellt. D.h. neue Version (MySQL 8) und andere Örtlichkeit. Sollte ...

Sonstige Systeme
Es war einmal ein BeOS - Wer erinnert sich noch?
Information von BassFishFox vor 3 TagenSonstige Systeme6 Kommentare

Hallo, Bin gerade ueber Haiku gestolpert, von dessen Existenz als "Nachfolger des BeOS" ich wusste nur mich nie wirklich ...

Datenschutz

Microsoft und DSGVO - ob das wohl jemals klappt (Probleme beim Datenabfluss für Office Pro Plus)?

Tipp von VGem-e vor 3 TagenDatenschutz5 Kommentare

Servus Kollegen, siehe Aber wer setzt schon MS Office Pro Plus ein? Wie dann der Stand beim "normalen" MS ...

Heiß diskutierte Inhalte
Windows 10
Programm unter Windows 10 automatisch mit administrativen Rechten starten
Frage von GrafmulderWindows 1018 Kommentare

Hallo zusammen! Zur Situation: Ich benutze Windows 10 Pro für Workstations (Build 1803) mit zwei Konten. Einem Administratorkonto und ...

LAN, WAN, Wireless
Empfehlung Powerline Adapter
Frage von AgilolfingerLAN, WAN, Wireless16 Kommentare

Hallo Zusammen, ich brauche eine Empfehlung von euch. Ich möchte in einem privaten Haushalt eine Powerline Lösung einrichten. Allerdings ...

Vmware
Gebrauchten ESXi- Server verkaufen: Festplatten DSGVO-konform löschen?
Frage von l.scheperVmware14 Kommentare

Hallo, wir möchten einen gebrauchten FUJITSU Server verkaufen. Auf dieser Maschine ist noch ein installiertes ESXi 5.1 und ne ...

CPU, RAM, Mainboards
RAM - gleiche Nummer dennoch unterschiedlich
gelöst Frage von HenereCPU, RAM, Mainboards9 Kommentare

Servus zusammen, möchte meinem Server weitere 64GB RAM spendieren. Nun hatte ich die gleichen Module bestellt, wie ich schon ...