Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Laufzeitfehler 70 mit SendKeys "{TAB}"

187 views
Skip to first unread message

Markus Bärlocher

unread,
Dec 22, 2007, 5:06:25 AM12/22/07
to
Guten Tag! woran könnte das liegen: ich öffne über VBA im IE eine URL
und möchte dort mit SendKeys "{TAB}" zu einer bestimmten Stelle
springen. Dabei erhalte ich "Laufzeitfehler 70, Zugriff verweigert".
Von Hand auf der Tastatur klappt es aber. Gruss, Markus

Alexander Wolff

unread,
Dec 22, 2007, 6:29:23 AM12/22/07
to
Lesenswert: http://www.xlam.ch/pos/sendkeys.htm

--
Moin+Gruss Alexander - MVP für MS Excel - www.xxcl.de - mso2000sp3 --7-2


Markus

unread,
Dec 22, 2007, 6:31:14 AM12/22/07
to
Wenn ich Text in das Eingabefenster der Website gefüllt habe, gibt es
einen Button zum Speichern. Alternativ der Tastaturbefehl "alt-shift-
s". Aber bei SendKeys "%+s" erhalte ich ebenfalls "Laufzeitfehler 70,
Zugriff verweigert". Gruss, Markus

Markus

unread,
Dec 22, 2007, 6:34:52 AM12/22/07
to
On 22 Dez., 12:29, "Alexander Wolff" <oo...@gmx.de> wrote:
> Lesenswert:http://www.xlam.ch/pos/sendkeys.htm

Danke Alexander. Ich arbeite nur mit Windows-Vista. Mit welchem
Betriebssystem der Server der aufgerufenen Website lauft weiss ich
nicht (ist aber wohl auch nicht entscheidend, oder?). Gruss, Markus

Markus

unread,
Dec 22, 2007, 7:27:27 AM12/22/07
to
Vielleicht wird es verständlicher, wenn ich meine Aufgabe beschreibe:
Ich habe eine Excel-Tabelle mit lexikalischen Informationen für
Wikipedia. Jede Zeile entspricht einem Artikel.
Also schreibe ich etwas Code, der für jede Zeile folgendes tun soll:
- entsprechende Seite in Wikipedia im Edit-Mode öffnen
- ins Bearbeiten-Fenster springen
- dort Text aus der Tabellenzeile einfügen
- Speichern

Set appIE = CreateObject("InternetExplorer.Application")
With appIE
.Visible = True
strArtikelname = 'aus Spalte "URL" in "WP-Test.xls"
strKapitel1 =
strFeld1 =
strURL = "http://de.wikipedia.org/w/index.php?title=" &
strArtikelname & "&action=edit"
.Navigate strURL
' mit 8 Tab's Cursor ins Bearbeiten-Fenster setzen:
SendKeys "{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}"
' uff: "Laufzeitfehler 70, Zugriff verweigert"
' Daten einer Tabellenzeile mit Text und Sonderzeichen
mischen:
' strEingabetext = strKapitel1 & {ENTER} & strFeld1 &
"irgendeintext"
' strEingabetext ins WP-Bearbeiten-Fenster schreiben:
' Eingabe speichern durch (alt-shift-s):
SendKeys "%+s"
'uff: "Laufzeitfehler 70, Zugriff verweigert"

Gruss, Markus

Martin Hentrich

unread,
Jan 23, 2008, 2:55:14 AM1/23/08
to

Hast du schon eine Lösung? Unter VISTA hat MS den Befehl Sendkeys
gesperrt. Wenn du die Benutzerkontensteuerung UAC ausschaltest, dann
funktioniert es wieder. Es soll eine Lösung geben, mittels API einen
Ersatz für Sendkeys zu bauen, aber eine komplette Lösung habe ich noch
nicht gefunden.

Martin

0 new messages