Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Excel
  Makro löschen beim automatischen speichern

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Makro löschen beim automatischen speichern (1739 mal gelesen)
d4ron
Mitglied


Sehen Sie sich das Profil von d4ron an!   Senden Sie eine Private Message an d4ron  Schreiben Sie einen Gästebucheintrag für d4ron

Beiträge: 5
Registriert: 20.09.2007

erstellt am: 20. Sep. 2007 12:18    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,

ich habe auf meiner Suche nach einer Lösung dieses Forum gefunden und hoffe Ihr wisst Rat...

Ich lese  mit einen Excel Makro externe Daten von einem Automatisierungssystem (SPS) ein.
Diese speichere ich mehrfach am Tag als Datum+Zeit.XLS ab.

In den gespeicherten Dateien will ich jedoch nicht mehr das Makro haben, denn sonst würde ja beim Öffnen meine Werte dort ebenfalls neu eingelesen und überschrieben.

Leider programmiere ich sonst kein VBA.

Ich habe es wie folgt getestet (nur klappt es nicht):

          ActiveWorkbook.SaveAs File_Str    ' aktuelle Datei speichern unter und dann wollte ich das Makro in der neuen Datei löschen..
         
          Set wkbBook = Workbooks(File_Str)
          Set objComponents = wkbBook.VBProject.VBComponents
          lCount = wkbBook.VBProject.VBComponents.Count
          For Each objCode In objComponents
            If objCode.Type = lModule Then
              objComponents.Remove objCode
            ElseIf objCode.Type = lOther Then
              objCode.CodeModule.DeleteLines 1, objCode.CodeModule.CountOfLines
            End If
          Next objCode


Ich hoffe Ihr könnt mir helfen...

THX

d4ron

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Oberli Mike
Ehrenmitglied V.I.P. h.c.
Dipl. Maschinen Ing.



Sehen Sie sich das Profil von Oberli Mike an!   Senden Sie eine Private Message an Oberli Mike  Schreiben Sie einen Gästebucheintrag für Oberli Mike

Beiträge: 3728
Registriert: 29.09.2004

Excel 2010
128GB SSD
Windows 7

erstellt am: 20. Sep. 2007 12:23    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für d4ron 10 Unities + Antwort hilfreich

Hallo d4ron,

und herzlich willkommen aufd dem Excel-Brett bei CAD.de.


Kannst du dir folgendes vorstellen?

Du öffnest eine Excel-Datei, in welcher dein Makro steckt.
Dieses Makro öffnet eine "Vorlagedatei", in welche die Werte eingeschrieben
werden, und speichert dann diese "Vorlagedatei" unter einem neuen Namen.

Die Vorlagedatei muss du ledichlich an einem bestimmten Ort ablegen, damit sie
durch das Makro gefunden wird.

Somit hast du in der Datei wo die Werte sind gar nie ein Makro, und somit
muss auch nichts gelöscht werden.

Gruss
Mike

------------------

The Power Of Dreams Schreib mal wieder

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

d4ron
Mitglied


Sehen Sie sich das Profil von d4ron an!   Senden Sie eine Private Message an d4ron  Schreiben Sie einen Gästebucheintrag für d4ron

Beiträge: 5
Registriert: 20.09.2007

erstellt am: 20. Sep. 2007 12:49    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo und danke für die schnelle Antwort...

dein Vorschlag klingt ganz gut - besser als meine Lösung mit dem Löschen.

Nur wie öffne ich eine Vorlage und speichere meine Werte dort ab?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hajo_Zi
Mitglied
Projektant


Sehen Sie sich das Profil von Hajo_Zi an!   Senden Sie eine Private Message an Hajo_Zi  Schreiben Sie einen Gästebucheintrag für Hajo_Zi

Beiträge: 479
Registriert: 26.03.2003

AutoCad 2020 (ich arbeite in 2D)
Betriebssystem Windows 10

erstellt am: 20. Sep. 2007 12:59    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für d4ron 10 Unities + Antwort hilfreich

Hallo,

ich vermute mal der Code ist korrekt. Hast du den Zugriff auf das VBA Projekt erlaubt? Extra, Makro, Sicherheit

Gruß Hajo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

d4ron
Mitglied


Sehen Sie sich das Profil von d4ron an!   Senden Sie eine Private Message an d4ron  Schreiben Sie einen Gästebucheintrag für d4ron

Beiträge: 5
Registriert: 20.09.2007

erstellt am: 20. Sep. 2007 13:23    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Hajo,

ja der Zugriff ist erlaubt, bzw sperre ich beim Öffnen der Mappe und gebe vor dem Aktualisieren wieder frei.

Aber ich verstehe nicht was das mit meinem Problem zu tun hat?
Oben der Code ist sicher falsch, er klappt ja nicht :P

Der Lösungsvorschlag von Oberli Mike klingt schon ganz gut, nur weiß ich nicht wie ich es machen soll.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hajo_Zi
Mitglied
Projektant


Sehen Sie sich das Profil von Hajo_Zi an!   Senden Sie eine Private Message an Hajo_Zi  Schreiben Sie einen Gästebucheintrag für Hajo_Zi

Beiträge: 479
Registriert: 26.03.2003

AutoCad 2020 (ich arbeite in 2D)
Betriebssystem Windows 10

erstellt am: 20. Sep. 2007 13:43    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für d4ron 10 Unities + Antwort hilfreich

Hallo
wie macht Du das
"ja der Zugriff ist erlaubt, bzw sperre ich beim Öffnen der Mappe und gebe vor dem Aktualisieren wieder frei."
Das kann man nicht per VBA machen. Ich fragte nicht nach Makros aktivieren.

Gruß Hajo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Oberli Mike
Ehrenmitglied V.I.P. h.c.
Dipl. Maschinen Ing.



Sehen Sie sich das Profil von Oberli Mike an!   Senden Sie eine Private Message an Oberli Mike  Schreiben Sie einen Gästebucheintrag für Oberli Mike

Beiträge: 3728
Registriert: 29.09.2004

Excel 2010
128GB SSD
Windows 7

erstellt am: 20. Sep. 2007 13:59    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für d4ron 10 Unities + Antwort hilfreich


einlesen.zip

 
Hier ein kleines Beispiel.

Die Dateien vorlage.xls und testdaten.txt müssen unter D:\Daten\test abgelegt
sein, oder das Makro muss angepasst werden.

Das Makro in der Datei einlesen öffnet die Datei vorlage.xls, dann werden
die Daten von der Datei testdaten.txt eingelesen und eingetagen und dann wird
die Datei mit dem Datum gespeichert.

Gruss
Mike

------------------

The Power Of Dreams Schreib mal wieder

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

d4ron
Mitglied


Sehen Sie sich das Profil von d4ron an!   Senden Sie eine Private Message an d4ron  Schreiben Sie einen Gästebucheintrag für d4ron

Beiträge: 5
Registriert: 20.09.2007

erstellt am: 20. Sep. 2007 14:20    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

THX Mike,

werde es gleich mal testen.

@Hajo_Zi
Den Schutz kann man mit Active.Sheet.Unprotect aufheben und mit .Protect setzen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Hajo_Zi
Mitglied
Projektant


Sehen Sie sich das Profil von Hajo_Zi an!   Senden Sie eine Private Message an Hajo_Zi  Schreiben Sie einen Gästebucheintrag für Hajo_Zi

Beiträge: 479
Registriert: 26.03.2003

AutoCad 2020 (ich arbeite in 2D)
Betriebssystem Windows 10

erstellt am: 20. Sep. 2007 14:30    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für d4ron 10 Unities + Antwort hilfreich

Hallo,

lese nochmal meinen Beitrag ich habe auch nicht nach Schutz der Tabelle gefragt.
Ich mache jetzt Feierabend bis Montag und fahre zu einem Forumstreffen.

Gruß Hajo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

d4ron
Mitglied


Sehen Sie sich das Profil von d4ron an!   Senden Sie eine Private Message an d4ron  Schreiben Sie einen Gästebucheintrag für d4ron

Beiträge: 5
Registriert: 20.09.2007

erstellt am: 20. Sep. 2007 15:40    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Viel Spass beim Treffen...

so jetzt hab ich auch richtig gelesen...

Sicherheitseinstellung ist momentan auf mittel - also Abfrage beim Starten/Öffnen der Datei

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Thomas Harmening
Moderator
Arbeiter ツ




Sehen Sie sich das Profil von Thomas Harmening an!   Senden Sie eine Private Message an Thomas Harmening  Schreiben Sie einen Gästebucheintrag für Thomas Harmening

Beiträge: 2897
Registriert: 06.07.2001

Das Innerste geäussert
und aufs Äusserste verinnerlicht

erstellt am: 20. Sep. 2007 16:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für d4ron 10 Unities + Antwort hilfreich

hmm,hmmm,

eigentlich will ich ja Einigen nicht den Spass wegnehmen, aber...
in einer einschlägigen Suchmaschine Mappe ohne makro abspeichern eingeben
und dem ersten Treffer folgen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

runkelruebe
Moderator
Straßen- / Tiefbau




Sehen Sie sich das Profil von runkelruebe an!   Senden Sie eine Private Message an runkelruebe  Schreiben Sie einen Gästebucheintrag für runkelruebe

Beiträge: 8075
Registriert: 09.03.2006

MS-Office 365 ProPlus x86
WIN7(x64)

erstellt am: 20. Sep. 2007 20:42    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für d4ron 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von d4ron:
Viel Spass beim Treffen...

so jetzt hab ich auch richtig gelesen...

Sicherheitseinstellung ist momentan auf mittel - also Abfrage beim Starten/Öffnen der Datei


Nein, immer noch nicht ;-)
Der Eintrag den Du suchst lautet: Zugriff auf das VBA-Projekt vertrauen o.ä.
Im 2007 zu finden unter Optionen -> Vertrauensstellungscenter -> Einstellungen für Makros

BTWBy the way (So nebenbei bemerkt), diese Einstellung ist nicht so ganz ohne, die erlaubt nämlich dem code sich selber einen code zu schreiben, und ob das immer so gut ist... ;-)
Aber das nur noch am Rande, mach mal so, wie im link von Thomas beschrieben, ist doch viel einfacher ;-)

------------------
Gruß,
runkelruebe                         Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz