Aus einer Excel-Mappe heraus möchte ich bestimmte Einträge in einer CueCards Datenbank öffnen. Das klappt alles auch ganz hervorragend aufgrund eines Code, den mir der Autor von cuecards, Markus Humann, mal verraten hat.
Mein code sieht so aus:
Sub eintrag()
Dim pfad As String
Dim cuedb As String
pfad = Range("A2")
cuedb = Range("a1")
Shell "C:\Dokumente und Einstellungen\Besitzer\Desktop\cuetest\CueCards.exe ""C:\Dokumente und Einstellungen\Besitzer\Desktop\cuetest\Test.cue"" Test1", 3
MsgBox pfad & cuedb & "\Test.cue" & " Test1", 3
'Shell pfad & cuedb & "\Test.cue" & " Test1", 3
End Sub
wobei das leider nur funzt, wenn ich wie in dem nicht auskommentierten Teil (Shell......) den Pfad in einer Zeile eingebe und nicht, wenn ich ihn wie in dem auskommentierten Versuch über die Variablen einfüge.
In der Messagebox habe ich festgestellt, dass die Anführungszeichen nicht mitgeliefert werden und es in dann mehreren Varianten mit doppelten und dreifachen Anführungszeichen versucht. Vergeblich.
Das ist das eine Problem.
Ein zweites besteht darin, dass ich eine Fehlermeldung bekomme, wenn ich denselben Code ausführe, wenn Cuecards schon geöffnet ist und ich nur auf einen anderen Eintrag verweisen will. Das geht ja wohl schon alles mehr in Richtung VbScript, oder? Da fehlt es bei mir noch mehr, als beiVBA.
Es wäre nett, wenn mir wieder auf die Sprünge geholfen werden könnte wenigstens in dem ersten Problem.
Vielen Dank schon mal und gute Nacht, Fritz