---

Hallo zusammen,

ich habe eine sub zusammengestellt, die eine pdf mit Datum und Revisionsnummer speichert. Dies dient bei uns zur Dokumentation der erfolgten Revision.

Direkt im Anschluß muß der Mitarbeiter den Artikel in der Warenwirtschaft öffnen und die Zeichnungsnummer auf die neue Revision setzen.

Es wäre sehr praktisch, wenn ich den ohnehin separierten Dateinamen in die Zwischenablage kopieren könnte.

Der Mitarbeiter kann dann mit STRG+V den Namen in der Warenwirtschaft einfügen (und muß diesen nicht abtippen)

Wer kann mir hierbei helfen?

Danke schonmal,
Stefan

--XP und IV2008

------------------
IV2008

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

---

Hi

Ich hoffe es funktioniert, also
1. Verweis auf die Windows Forms Library setzen
2. folgenden Code nutzen:

Code:

---

Option Explicit

Private Sub Clear_Cb()

Dim MyData As DataObject

Set MyData = New DataObject
MyData.SetText ""
MyData.PutInClipboard

End Sub

Private Sub Read_Cb()

Dim MyData As DataObject
Dim strClip As String

Set MyData = New DataObject
MyData.GetFromClipboard
strClip = MyData.GetText

End Sub

Private Sub Fill_Cb()

Dim MyData As DataObject
Dim strClip As String
strClip = "Fill with your extracted filename" '<----- DA anpassen

Set MyData = New DataObject

MyData.SetText strClip
MyData.PutInClipboard

End Sub

---

------------------
MfG
Ralf

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

---

Hallo Ralf,

das klingt vielversprechend. Danke für die sehr schnelle Antwort!

Ich habe den sehr langen Verweise...- Dialog nach der 'Windows Forms Library' durchsucht und nur 'System_Windows_Forms' gefunden, was ähnlich klingt.

Aber das Kompilieren meldet bei 'MyData As DataObject' "Fehler beim Kompilieren: Benutzerdefinierter Typ nicht definiert" - Also wohl den falschen Verweis gewählt.

Wie heißt der richtige genau?

Gruß Stefan

------------------
IV2008

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

---

Hi

Die müßte "Microsoft Forms 2.0 Object Library" (FM20.dll) heißen. Alternativ erstell mal eine neue Form und lösch sie wieder. Das sollte den Verweis automatisch setzen.

------------------
MfG
Ralf

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

---

Danke Ralf,

es läuft... Klasse!

Viele Grüße,
Stefan

------------------
IV2008

[Diese Nachricht wurde von st.w am 05. Dez. 2012 editiert.]

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