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 IPWünsch Dir wasWebbrowserWebentwicklungWeiterbildungWindows 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, 698 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 ...:
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> ...

VB for Applications

Vbs Script Hilfe

gelöst Frage von Dr.CornwallisVB for Applications3 Kommentare

Liebe Gemeinde, hat von euch zufällig jemand ein VBs Script das folgendes o.ä macht: Das Script wird per GPO ...

Microsoft Office

Microsoft Excel VBS

gelöst Frage von Mohji32Microsoft Office6 Kommentare

Guten Tag liebe Leute, ich kenne mich leider nicht sehr gut mit VBS aus aber habe angefangen mich einzuarbeiten. ...

VB for Applications

Erbitte Hilfe bei VBA-Script in Excel-Datei

Frage von alexander01VB for Applications4 Kommentare

Ich bitte um Hilfe bei der Anpassung eines VBA-Scriptes in einer Excel-Datei: Aktueller Stand: nach Klick auf eine Schaltfläche ...

Neue Wissensbeiträge
Outlook & Mail

Microsoft Outlook is crashing worldwide with 0xc0000005 errors, how to fix

Information von StefanKittel vor 1 StundeOutlook & Mail

Vieleicht hat ja noch Jemand spass damit

Microsoft
The Premier Field Engineering Blog is MOVING!
Information von Dani vor 1 TagMicrosoft

Hello to all of our AWESOME readers that have helped us build the Premier Field Engineering TechCommunity blog up ...

Sicherheit
Alexa un Co. TU-Darmstadt entwickelt Anti-Spy Tool
Information von the-buccaneer vor 2 TagenSicherheit3 Kommentare

Moinsen! HR-Info hatte heute ein Feature in dem das "LeakyPick" der TH-Darmstadt vorgestellt wurde. Das Tool existiert bisher nur ...

Linux Tools
Rsync datenvolumen reduzieren mit -fuzzy
Anleitung von NetzwerkDude vor 5 TagenLinux Tools

Moin, aus der Kategorie "Häufig übersehene Parameter": Meistens benutzt kaum jemand den fuzzy Parameter von rsync, und er taucht ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Zwei Mitarbeiter mit selbem Namen - wie beim Benutzernamen verfahren? Wie sind Eure Namenskonventionen?
Frage von ipzipzapWindows Userverwaltung27 Kommentare

Hallo, wir bekommen nächsten Monat einen Max Muster, den wir aber schon haben. Unsere Namenkonvention für den Domänen-Benutzernamen ist ...

Backup
Foto Datenbank
Frage von Bitz0rBackup16 Kommentare

Hallo zusammen, aktuell bin ich nach Lösungen am Suchen für unsere Marketing Abteilung. Ich würde gerne sämtliche unnötigen Marketing ...

Windows Server
Schattenkopien Windows Server 2019
gelöst Frage von Patrick-IT83Windows Server11 Kommentare

Guten Tag, ich beschäftige mich gerade bisschen mehr mit dem Thema Schattenkopien, da ich gerade auch den Fall hatte, ...

LAN, WAN, Wireless
Passive POE (up to 57V) an PoE+ (802.3at, class 4) anschließen
Frage von maximum3012LAN, WAN, Wireless10 Kommentare

Hallo zusammen, bin mir aktuell nicht ganz sicher ob ich an eine Passive POE Leitung ein POE+ Anschluss gehen ...