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

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, 4486 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
Outlook & Mail
gelöst Email Anhänge speichern VB Script aber nur bestimmte Dateitypen (Outlook) (4)

Frage von LindeUnimog zum Thema Outlook & Mail ...

Microsoft Office
Automatischer Datenimport aus csv Datei in Access DB - Wo zu ändern? (2)

Frage von Mejestic12 zum Thema Microsoft Office ...

C und C++
C-sharp soll Datei von PHP speichern (3)

Frage von Yanmai zum Thema C und C ...

Windows Server
PowerShell Inhalt einer csv Datei löschen (3)

Frage von makaroni zum Thema Windows Server ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Viren und Trojaner
Ransomware .nm4 (14)

Frage von Zyklo92 zum Thema Viren und Trojaner ...

iOS
16 iPads zentrall verwalten (14)

Frage von simonlohr zum Thema iOS ...

Microsoft Office
+1.000 Ordner in Outlook: Wie besser? (11)

Frage von Matsushita zum Thema Microsoft Office ...