Skip to Content

Registrieren Anmelden

Industry Online Support

Technical Forum

Navigation

PC Access Excel Add-In automatisch aktivieren

Erstellt von: Blade79 am: 28.03.2011 19:32 (7 Antworten)

Bewertung (2)

Dank 0

8 Einträge

28.03.2011 19:32	Bewerten (0)
Blade79 Beiträge: 4 Bewertung: (0)	Hallo, Ich habe folgendes Problem. Ich habe in Excel mit VBA und dem S7 200 PC Access eine Prozessdatenvisualisierung realisiert. Jetzt möchte ich gerne, dass sobald ich die Excel Datei starte die Benutzeroberfläche erscheint und die Datenübertragung läuft. Wie kann ich ohne in meinem Excel auf den "Play - Button" vom PC Access Add-in klicken zu müssen die Übertragung starten? Gibt es da eine Möglichkeit die Übertragung per Befehl in VBA zu aktivieren? Die späteren Nutzer sollen vom eigentlichen Excel nichts mehr sehen... MFG Blade
Blade79 Beiträge: 4 Bewertung: (0)
Vorschlag Bedanken Zitat Antwort

07.04.2011 19:50	Bewerten (0)
Ma Be Beiträge: 69 Bewertung: (5)	Hallo Blade79, ja das geht, hab ich selbst am laufen. Wird aber etwas komplexer. Allerdings kann ich Dir erst nächste Woche weiterhelfen. Welche Excel Version hast Du?
Ma Be Beiträge: 69 Bewertung: (5)
Vorschlag Bedanken Zitat Antwort

08.04.2011 12:20	Bewerten (0)
Blade79 Beiträge: 4 Bewertung: (0)	Hi. Ich nutze Excel 2007 mit letztem Servicepack... Ist das für den Befehlssatz im VBA relevant? Reicht da nicht ein Einzeiler? Zusätzlich zum automatischen starten möchte ich mitlerweile auch gerne Daten von Excel zur SPS übertragen... Also einfacher gesagt, einen Button in Excel drücken, um einen Merker zu setzen... zum Reset einiger Daten....wenn das auch noch klappt bin ich glücklich... Irgendwie findet man relativ wenig dazu. Danke schonmal MFG
Blade79 Beiträge: 4 Bewertung: (0)
Vorschlag Bedanken Zitat Antwort

11.04.2011 21:54	Bewerten (1)
Ma Be Beiträge: 69 Bewertung: (5)	Hallo Blade79, ich habs unter Office 2003 laufen, ob es irgendwelche Probleme macht kann ich Dir nicht sagen. Dein gewünschter Einzeiler: > Application.Run ("OPCS7200ExcelAddin.xla!StartOPC") < Merker M0.1 setzen über PPI Verbindung (SPS Adresse 2): > Call Excel.Application.Run("OPCS7200ExcelAddin.XLA!OPCWRITE","2,M0.1,BOOL,W", 1, "") <
Ma Be Beiträge: 69 Bewertung: (5)	Zuletzt bearbeitet von: mibo am: 11.04.2011 22:03
Vorschlag Bedanken Zitat Antwort

14.04.2011 10:25	Bewerten (0)
Blade79 Beiträge: 4 Bewertung: (0)	Hey. Super. Hat funktioniert. Vielen Dank. Aber... Ich hab natürlich noch mehr Probleme. 1. Sobald der Server aktiv ist, aktualisiert der sehr oft und Excel "flackert". In Einstellungen vom S7-200 PC Access kann man die aktualisierungszeit umstellen. Jedoch ändert das irgendwie nichts... Geht das irgendwie? Mir würde eine Aktualisierung alle 10 Sekunden reichen. 2. Wie kann ich den Server mit so einem Einzeiler wieder stoppen? Vielen Dank schonmal... Gruß Blade
Blade79 Beiträge: 4 Bewertung: (0)	Zuletzt bearbeitet von: Blade79 am: 14.04.2011 11:36
Vorschlag Bedanken Zitat Antwort

14.04.2011 12:24	Bewerten (1)
Ma Be Beiträge: 69 Bewertung: (5)	Hallo Blade79, zu 1. muss ich mal schauen zu 2. Application.run ("OPCS7200ExcelAddin.xla!StopOPC")
Ma Be Beiträge: 69 Bewertung: (5)
Vorschlag Bedanken Zitat Antwort

18.04.2011 15:18	Bewerten (0)
Blade79 Beiträge: 4 Bewertung: (0)	Danke... Den Stop Befehl hätt ich mir auch denken können. Hab nur irgendwie immer leicht andere Varianten ausprobiert, die nicht funktionieren... Glaub das zweite Problem ist nicht so einfach zu lösen.. Die Hotline konnte mir auch nicht helfen. Gruß Blade
Blade79 Beiträge: 4 Bewertung: (0)
Vorschlag Bedanken Zitat Antwort

26.04.2011 15:43	Bewerten (0)
Ma Be Beiträge: 69 Bewertung: (5)	Hallo, ich glaube ich hab eine Lösung (allerdings noch nicht getestet). Du must das OPC Addin öffnen, Klassenmodule öffnen, die "Function ConnectServer" suchen dann die "m_cGroup.UpdateRate = 350" den Wert ändern. Allerdings kann ich Dir nicht sagen welche Zeitbasis bzw. welchen max. Wert man eingeben kann. Must Du testen. Oder Du bastelst Dir einen Timer mit dem Du dann die Variablen aus der SPS selbst ausliest.
Ma Be Beiträge: 69 Bewertung: (5)
Vorschlag Bedanken Zitat Antwort

|

Teile diese Seite:

Teile diese Seite auf...

Folgen Sie uns auf