cadsys-chemnitz
Mar 31, 2009, updated at 13:59:30 (UTC)
view5296
view12
0
Goto Top

Excel abspeichern

GermansolvedQuestionVB for ApplicationsDevelopment
Wenn ich mit meinem VB Scribt meine Excel Datei abspeichern will kommt immer die Nachfrage ober die Datei überschreiben soll weil diese schon vorhanden ist.

Wie kann ich diese Meldung unterdrücken? So das er speichert ohne Nahcfrage.

Mein Speichercode:

            NB.ActiveWorkbook.Saved = True
            NB.ActiveWorkbook.SaveAs("C:\Data\Version.xls")  
            NB.ActiveWorkbook.Close()
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 112864

Url: https://administrator.de/contentid/112864

Printed on: April 24, 2024 at 03:04 o'clock

12 Comments
Latest comment
Goto Top
Mitglied: 76109
76109 Mar 31, 2009 at 14:31:53 (UTC)
Goto Top
Hallo Cadsys-Chemnitz,

Wenn Datei schon existiert, dann reicht ".Save" und wenn es nicht sicher ist, dann in etwa so:

Dim fso as Object, vPath As String
    
vPath = "C:\Data\Version.xls"  
    
Set Fso = CreateObject("Scripting.FileSystemObject")  

With NB.ActiveWorkbook
   If Fso.FileExists(vPath) Then .Save Else .SaveAs vPath
  .Close
  .Saved = True
 End With

Gruß Dieter
Member: Seelbreaker
Seelbreaker Mar 31, 2009 at 14:38:11 (UTC)
Goto Top
Ich weiß es zwar, nicht aber aus Neugier... in Zeile 3 steht ja "SaveAs" So heißt ja auch der Speichern Button in Office, der dich vorher einen Pfad auswählen lässt bzw. dir die Möglichkeit gibt einen neuen Dateinamen anzugeben um beispielsweise ein Kopie zu speichern.

Würde:

NB.ActiveWorkbook.Save

auch zum Ziel führen? Oder gibt es Befehl "Save" so nicht wie bei Office wo gnadenlos überschrieben wird?

MFG
Seelbreaker
Member: Cadsys-Chemnitz
Cadsys-Chemnitz Mar 31, 2009 at 14:44:08 (UTC)
Goto Top
Idee ist nicht schlecht leider kommt die Meldung immer noch.

Detei bereits vorhanden. Soll diese überschrieben werden ...


Ich hab mal unten das ganze Script mit deinem Eingebauten Code mit aufgeführt.


        Dim NB As Excel.Application
        Dim z As Integer
        Dim verPath As String
        Dim fso As FileSystemObject

        If Button1.Enabled = True Then
            NB = CreateObject("Excel.Application")  
            NB.Workbooks.Open("C:\Data\Version.ini")  
            z = NB.ActiveWorkbook.ActiveSheet.Range("C1").Value + 5  
            NB.ActiveWorkbook.ActiveSheet.Range("E" & z).Value = TextBox1.Text  
            NB.ActiveWorkbook.ActiveSheet.Range("F" & z).Value = TextBox2.Text  
            NB.ActiveWorkbook.ActiveSheet.Range("B" & z).Value = TextBox3.Text  
            NB.ActiveWorkbook.ActiveSheet.Range("C" & z).Value = TextBox4.Text  
            If CheckBox1.CheckState = CheckState.Checked Then
                NB.ActiveWorkbook.ActiveSheet.Range("D" & z).Value = "1"  
            Else
                NB.ActiveWorkbook.ActiveSheet.Range("D" & z).Value = "0"  
            End If

            verPath = "C:\Data\Version.ini"  
            Fso = CreateObject("Scripting.FileSystemObject")  

            With NB.ActiveWorkbook
                .Saved = True
                If Fso.FolderExists(verPath) Then .Save() Else .SaveAs(verPath)
                .Close()
            End With
        End If
Member: Cadsys-Chemnitz
Cadsys-Chemnitz Mar 31, 2009 at 14:48:09 (UTC)
Goto Top
Doch save gibt es aber bei Beiden fragt er nach ob er überschreiben soll ...

übrigens das würde er im Office auch tun.


Ich schätze man muss irgendwie einen Parameter setzen das die nachfrage einfach ignoriert wird, weiss nur nicht wie. face-smile
Mitglied: 76109
76109 Mar 31, 2009 at 14:48:57 (UTC)
Goto Top
Hallo nochmal,

ja, habe Code nochmal geändert. Müsste so gehen?

Gruß Dieter
Mitglied: 76109
76109 Mar 31, 2009 at 14:51:05 (UTC)
Goto Top
Member: Cadsys-Chemnitz
Cadsys-Chemnitz Mar 31, 2009 at 15:03:25 (UTC)
Goto Top
Also hiernochmal mit Deinem abgeänderten Code.

Selbe Fehlermeldung ...

        Dim NB As Excel.Application
        Dim z As Integer

        If Button1.Enabled = True Then
            NB = CreateObject("Excel.Application")  
            NB.Workbooks.Open("C:\Data\Version.ini")  
            z = NB.ActiveWorkbook.ActiveSheet.Range("C1").Value + 5  
            NB.ActiveWorkbook.ActiveSheet.Range("E" & z).Value = TextBox1.Text  
            NB.ActiveWorkbook.ActiveSheet.Range("F" & z).Value = TextBox2.Text  
            NB.ActiveWorkbook.ActiveSheet.Range("B" & z).Value = TextBox3.Text  
            NB.ActiveWorkbook.ActiveSheet.Range("C" & z).Value = TextBox4.Text  
            If CheckBox1.CheckState = CheckState.Checked Then
                NB.ActiveWorkbook.ActiveSheet.Range("D" & z).Value = "1"  
            Else
                NB.ActiveWorkbook.ActiveSheet.Range("D" & z).Value = "0"  
            End If

            Dim fso As Object, vPath As String

            vPath = "C:\\Data\Version.ini"  

            fso = CreateObject("Scripting.FileSystemObject")  

            With NB.ActiveWorkbook
                If fso.FileExists(vPath) Then .Save() Else .SaveAs(vPath)
                .Close()
                .Saved = True
            End With
        End If
Mitglied: 76109
76109 Mar 31, 2009 at 15:10:19 (UTC)
Goto Top
Hallo,

Debuggerfehler oder Save-Fehler?

Die Klammern hinter Save, Close und Saved "..." gehören weg. Gibt sonst Debuggerfehler

Die Lösung von "Xerebus" mit Display.Alerts müsste aber auch funktionieren.

Allerdings glaube ich nicht, das Du die Datei als *.ini abspeichern kannst?

Gruß Dieter
Member: Xerebus
Xerebus Mar 31, 2009 at 15:18:04 (UTC)
Goto Top
Um die Abfrage zum "Überschreiben" zu umgehen,
setze einfach DisplayAlerts = False


Sub Speichern()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "..."
Application.DisplayAlerts = True
End Sub


Gefunden bei.
http://www.digital-inn.de/ms-excel/4834-speichern-per-macro-problem.htm ...
Member: Cadsys-Chemnitz
Cadsys-Chemnitz Apr 01, 2009 at 06:25:12 (UTC)
Goto Top
Danke erstmal an alle die mitgeholfen haben bei der Lösung, diese sieht jetzt folgendermaßen aus.

        Dim NB As Excel.Application
        Dim z As Integer

        If Button1.Enabled = True Then
            NB = CreateObject("Excel.Application")  
            NB.Workbooks.Open("C:\Data\Version.ini")  
            z = NB.ActiveWorkbook.ActiveSheet.Range("C1").Value + 5  
            NB.ActiveWorkbook.ActiveSheet.Range("E" & z).Value = TextBox1.Text  
            NB.ActiveWorkbook.ActiveSheet.Range("F" & z).Value = TextBox2.Text  
            NB.ActiveWorkbook.ActiveSheet.Range("B" & z).Value = TextBox3.Text  
            NB.ActiveWorkbook.ActiveSheet.Range("C" & z).Value = TextBox4.Text  

            If CheckBox1.CheckState = CheckState.Checked Then
                NB.ActiveWorkbook.ActiveSheet.Range("D" & z).Value = "1"  
            Else
                NB.ActiveWorkbook.ActiveSheet.Range("D" & z).Value = "0"  
            End If

            NB.Application.DisplayAlerts = False
            NB.ActiveWorkbook.Saved = True
            NB.ActiveWorkbook.SaveAs("C:\Data\Version.ini")  
            NB.ActiveWorkbook.Close()
            NB.Application.DisplayAlerts = True
        End If

So funktiert es wie ich es wollte und keine Fehlermeldung entsteht mehr.

Komischerweise nach einbau der Application.DisplayAlerts = False funktioniert diese Version nicht mehr.

            Dim fso As Object, vPath As String

            vPath = "C:\\Data\Version.ini"  

            fso = CreateObject("Scripting.FileSystemObject")  

            With NB.ActiveWorkbook
                If fso.FileExists(vPath) Then .Save() Else .SaveAs(vPath)
                .Close()
                .Saved = True
            End With

ist aber ja nicht weiter tragisch


Zu Didi 1954 :

Die Klammern hinter Save, Close und Saved "..." gehören weg. Gibt sonst Debuggerfehler

Negativ, die setzt er automatisch. Man kann Sie gar nicht wegmachen , wenn man es erzwingt geht das Programmm auch nicht mehr. Frag mich jetzt nicht warum.

Und besonderen Dank an Xerebus, dein Beitrag war das Puzzle was gefehlt hat.

Danke

MfG Tino
Member: Cadsys-Chemnitz
Cadsys-Chemnitz Apr 01, 2009 at 06:27:21 (UTC)
Goto Top
PS:

Ach und natürlich kann man Sie als .ini speichern das ist Excel egal. Hab in der Datei Passwörter liegen und wollte das nicht so offensichtlich machen.

Ausserdem kann ich die Excel-Datei dann auch mit Passwort sichern sodas niemand so einfach an die Passwörter kommt und ich aber gut damit arbeiten kann.
Mitglied: 76109
76109 Apr 01, 2009 at 07:06:57 (UTC)
Goto Top
Hallo Cadsys-Chemnitz,

manchmal sieht man vor lauter Wald die Bäume nicht.

Der Fehler ist, dass der Close-Befehl natürlich erst nach dem
Saved = True stehen muss, sonst macht Saved keinen Sinn.
Display.Alerts wird nicht gebraucht

Gruß Dieter
GermansolvedQuestionVB for ApplicationsDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 CommentsjstrickerWireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 CommentsAlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 Comments