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

Csv datei per vb script speichern und überschreiben ohne nachfrage

Frage Entwicklung VB for Applications

Mitglied: dirk.dietze

dirk.dietze (Level 1) - Jetzt verbinden

21.06.2013 um 21:46 Uhr, 4634 Aufrufe, 5 Kommentare, 3 Danke

Es werden aus einer Excel Tabelle mit dem Inhalt Zeile 1 - heutiges Datum + 6 Monate, Zeile 2 - heutiges Datum + 12 Monate und Zeile 3 - heutiges Datum + 24 Monate >> Ergebnis aus Formel > =DATUM(JAHR(HEUTE());3+MONAT(HEUTE());<, täglich per vb script die Werte ausgelesen und eine csv Datei erzeugt.
Funktioniert soweit prima, aber nur beim 1. mal, beim nächsten Aufruf des Scripts wird zum speichern und überschreiben aufgefordert. Wie kann ich das umgehen??
Habe mir schon in diversen Foren erlesen das es mit "Application.DisplayAlerts=False und Application.DisplayAlerts=True" funktioniern soll tut es aber in meinem Script nicht.
Ich bin leider völliger Laie auf diesem Gebiet und hoffe hier Hilfe zu finden.
Mein derzeitiges Script hat folgenden Inhalt:
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Users\dirk.dietze.HCS-CHEMNITZ\Desktop\Auswahlliste Wiedervorlage.xls")
objExcel.Visible = True

objWorkbook.RefreshAll

'legt den Script schlafen, bis aktualisiert ist
'in Tausendstel-Sekunden, hier also 10 Sekunden
wscript.sleep 10000

objWorkbook.save


Application.DisplayAlerts=False
wscript.sleep 10000
objWorkbook.SaveAs ("C:\Test.csv")
Application.DisplayAlerts=True


'schliesst Excel
objExcel.Quit
<<
Bedanke mich schon mal im vorab für jede Unterstützung.
Mitglied: colinardo
21.06.2013 um 23:42 Uhr
hi,
Versuchs mal mit
objExcel.DisplayAlerts = False
DasApplication ist nur innerhalb der Excel VBA Umgebung gültig. In deinem Script gibst du diesem Application Objekt ja den Namen objExcel.
Grüße Uwe
Bitte warten ..
Mitglied: dirk.dietze
22.06.2013 um 12:09 Uhr
Hi colinardo,

vielen Dank für deine schnelle Hilfe, hat funktioniert.
Leider habe ich heute festgestellt das das Datum im Format 9/22/2013 in der csv Datei ausgegeben wird was für meine Zwecke leider Unbrauchbar ist.

Zur Erklärung: von meinem Chef ist gefordert das auf dem Server, am besten eine Textdatei, die in vier untereinander stehenden Zeilen das jeweils aktuelle Datum + 3, 6, 12, 24 Monate im Format:
22.09.2013
22.12.2013
22.06.2014
22.06.2015
entsteht.
Diese wird einem Programm als Auswahlliste hinterlegt um das Prüfdatum eines Dokuments festzulegen, deshalb muß diese Textdatei immer das Tagesaktuelle Datum + den Monaten siehe oben enthalten.
Auf Grund meiner jungfräulichen Erfahrungen mit VB Script habe ich es über die Auslese einer Exceltabelle versucht, sicher gibt es auch eine bessere Lösung direkt aus dem VB Script mit Ausgabe als txt .

Wenn du dazu eine Lösung anzubieten hättest wäre ich sehr dankbar, probier hier schon 2 Tage herum.

LG Dirk
Bitte warten ..
Mitglied: colinardo
22.06.2013, aktualisiert um 15:29 Uhr
Hallo Dirk,
klar geht das ohne Excel kein Problem ...
(Pfad der Ausgabedatei steht in Zeile 3)
01.
Set objFSO = CreateObject("Scripting.FileSystemObject") 
02.
Set objTextFile = objFSO.CreateTextFile("C:\test.txt", True) 
03.
today = Date 
04.
objTextFile.WriteLine(FormatDateTime(DateAdd("m",3,today),vbShortDate)) 
05.
objTextFile.WriteLine(FormatDateTime(DateAdd("m",6,today),vbShortDate)) 
06.
objTextFile.WriteLine(FormatDateTime(DateAdd("m",12,today),vbShortDate)) 
07.
objTextFile.WriteLine(FormatDateTime(DateAdd("m",24,today),vbShortDate)) 
08.
objTextFile.Close()
Grüße Uwe
Bitte warten ..
Mitglied: dirk.dietze
22.06.2013 um 14:10 Uhr
Hallo Uwe,

sau stark, geht einwandfrei, war schon am verzweifeln!!
Gibt's hier im Forum die Möglichkeit User in ne Freundeliste aufzunehmen?
Könnte sein das mein Chef jetzt doch öfter solche Sachen von mir verlangt und da wäre es gut wenn ich direkt auf dich zurückgreifen könnte!

Noch ne kleine Frage zum Schluß!?!
Hast du einen Tipp wo ich mir VB Script technisch einiges erlesen könnte, erstens um es besser zu verstehen und zweitens um vielleicht solche (für Profis wie dich) ja offensichtlich kleinen Aufgaben vielleicht auch selber lösen zu können.

Nochmals vielen Dank für deine professionelle Hilfe und noch ein schönes WE!!

Gruß Dirk
Bitte warten ..
Mitglied: colinardo
22.06.2013, aktualisiert um 14:25 Uhr
Zitat von dirk.dietze:
Gibt's hier im Forum die Möglichkeit User in ne Freundeliste aufzunehmen?
Auf der Profilseite des jeweiligen Users oben rechts gibt es einen Link Mit [USER] verbinden
Dort hast du auch die Möglichkeit persönliche Nachrichten zu verschicken.
Noch ne kleine Frage zum Schluß!?!
Hast du einen Tipp wo ich mir VB Script technisch einiges erlesen könnte, erstens um es besser zu verstehen
Da gibt es einige Tutorials im Netz. Hier eine Auswahl:

Ein Editor für VBS gibt es auch einen guten: http://vbsedit.com/. Darin enthalten sind etliche Beispielscripts für jedwede Aufgabe, das ist vor allem für den Anfang zum lernen sehr hilfreich.

Ebenfalls schönes Wochenende
Uwe
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Meldung Speicher voll im VB-Script
gelöst Frage von alexander01VB for Applications16 Kommentare

Hallo, ich habe ein Problem mit einem VB-Script. Es prüft in ca. 300 Excel-Tabellen, ob in der jeweils letzten ...

Visual Studio
Optimierung VB Script - Exceldatei einlesen und bearbeiten und als CSV speichern
gelöst Frage von chef1568Visual Studio4 Kommentare

Hallo, ich habe ein VB Script erstellt, dass eine XLS einliest und alle Werte in einem Array speichert. Hintergrund: ...

Batch & Shell
CSV Dateien auswerten mit Script
gelöst Frage von Crank69Batch & Shell8 Kommentare

Hallo Leute, habe ein Problem und hoffe ihr könnt mir helfen. Ich hoffe das die Bilder helfen bei meinem ...

Microsoft Office
Nachfrage, ob Datei speichern bei automatischem Speichern als TXT Datei mittels VBA
gelöst Frage von IGEL.DanielMicrosoft Office2 Kommentare

Hallo liebe Community, ich habe ein VBA Script, mit dem ich automatisch 8 Tabellenblätter aus einer XLSM Datei jeweils ...

Neue Wissensbeiträge
Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 6 StundenInternet2 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 10 StundenDSL, VDSL1 Kommentar

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Windows 10

Microsoft bestätigt DMA-Policy-Problem in Win10 v1709

Information von DerWoWusste vor 10 StundenWindows 10

Wer sein Gerät mit der DMA-Policy absichert, bekommt evtl. Hardwareprobleme in v1709 von Win10. Warum? Weil v1709 endlich "richtig" ...

Verschlüsselung & Zertifikate

Die Hölle friert ein weiteres Stück zu: Microsoft integriert OpenSSH in Windows

Information von ticuta1 vor 13 StundenVerschlüsselung & Zertifikate

Interessant Die Hölle friert ein weiteres Stück zu: Microsoft integriert OpenSSH in Windows SSH-Kommando in CMD.exe und PowerShell

Heiß diskutierte Inhalte
Netzwerkmanagement
Mehrere Netzwerkadapter in einem PC zu einem Switch zusammenfügen
Frage von prodriveNetzwerkmanagement21 Kommentare

Hallo zusammen Vorweg, ich konnte schon einige IT-Probleme mit Hilfe dieses Forums lösen. Wirklich klasse hier! Doch für das ...

Windows Server
RODC kann nicht aus Domäne entfernt werden
Frage von NilsvLehnWindows Server19 Kommentare

HAllo, ich arbeite in einem Universitätsnetzwerk mit 3 Standorten. Die Standorte haben alle ein ESXi Cluster und auf diesen ...

Hardware
Links klick bei Maus funktioniert nicht
gelöst Frage von Pablu23Hardware16 Kommentare

Hallo erstmal. Ich habe ein Problem mit meiner relativ alten maus jedoch denke ich nicht das es an der ...

Windows Server
Anmeldung direkt am DC nicht möglich
Frage von ThomasGrWindows Server15 Kommentare

Hallo, ich habe bei unserem Server 2016 Standard ein Problem. Keine Ahnung wie das auf einmal passiert ist. Ich ...