VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Unregelmäßiger Fehler bei ActiveWorkbook.RefreshAll	09.08.2016 22:49:10	O Neill

Ansicht des Beitrags:

Von:
O Neill

Datum:
09.08.2016 22:49:10

Views:
2536

Rating:

Antwort:

Thema:
Unregelmäßiger Fehler bei ActiveWorkbook.RefreshAll

Hallo liebes Forum!

Folgendes (eigenartiges) Problem tat sich bei meinem neuesten Projekt auf.

Ich habe ein Excelfile welches per Webabfrage Daten von einer Tabelle auf einer Webseite zieht. Diese Daten werden weiterverarbeitet und dann in eine Access-DB verknüpft (in Access Menüpunkt "Externe Daten"-->"Excel"). In dieser Access-DB gibt es wiederum Abfragen welche mit diesem Excel File verknüpft sind (per Menüpunkt "Daten"-->"Neue Abfrage"...).

Das alles Funktioniert soweit recht gut, auch wenn das keine besonders elegante Lösung ist. Abfragen in Access, speziell mit SQL sind einfach schöner und einfacher zu realisieren als in VBA...

Nun zum eingentlichen Problem: Ich habe ein Makro geschrieben welches beim Start des Excel Files mit ActiveWorkbook.RefreshAll alle Verbindungen aktualisiert.

<span style="font-family: Arial, Verdana, sans-serif;"

>Manchmal funktioniert das auch einwandfrei, aber leider gibts ab und zu, aus für mich nicht nachvollziehbaren Gründen, eine bzw. mehrere Fehlermeldungen. Diese kommen übrigens auch manchmal wenn ich manuell die Schaltfläche

"Alle aktualisieren" unter dem Menüpunkt "Daten" verwende.</span>

Unerwarteter Fehler: Es wurde versucht, im geschützten Speicher zu lesen oder zu schreiben. Dies ist häufig ein Hinweis darauf, dass anderer Speicher beschädigt ist.
Details:
    Microsoft.Mashup.Evaluator.Interface.ErrorException: Es wurde versucht, im geschützten Speicher zu lesen oder zu schreiben. Dies ist häufig ein Hinweis darauf, dass anderer Speicher beschädigt ist. ---> Microsoft.Mashup.Evaluator.Interface.ErrorException: Es wurde versucht, im geschützten Speicher zu lesen oder zu schreiben. Dies ist häufig ein Hinweis darauf, dass anderer Speicher beschädigt ist. ---> System.AccessViolationException: Es wurde versucht, im geschützten Speicher zu lesen oder zu schreiben. Dies ist häufig ein Hinweis darauf, dass anderer Speicher beschädigt ist.
   bei System.Data.OleDb.DataSourceWrapper.InitializeAndCreateSession(OleDbConnectionString constr, SessionWrapper& sessionWrapper)
   bei System.Data.OleDb.OleDbConnectionInternal..ctor(OleDbConnectionString constr, OleDbConnection connection)
   bei System.Data.OleDb.OleDbConnectionFactory.CreateConnection(DbConnectionOptions options, DbConnectionPoolKey poolKey, Object poolGroupProviderInfo, DbConnectionPool pool, DbConnection owningObject)
   bei System.Data.ProviderBase.DbConnectionFactory.CreateConnection(DbConnectionOptions options, DbConnectionPoolKey poolKey, Object poolGroupProviderInfo, DbConnectionPool pool, DbConnection owningConnection, DbConnectionOptions userOptions)
   bei System.Data.ProviderBase.DbConnectionFactory.CreateNonPooledConnection(DbConnection owningConnection, DbConnectionPoolGroup poolGroup, DbConnectionOptions userOptions)
   bei System.Data.ProviderBase.DbConnectionFactory.TryGetConnection(DbConnection owningConnection, TaskCompletionSource`1 retry, DbConnectionOptions userOptions, DbConnectionInternal oldConnection, DbConnectionInternal& connection)
   bei System.Data.ProviderBase.DbConnectionInternal.TryOpenConnectionInternal(DbConnection outerConnection, DbConnectionFactory connectionFactory, TaskCompletionSource`1 retry, DbConnectionOptions userOptions)
   bei System.Data.ProviderBase.DbConnectionClosed.TryOpenConnection(DbConnection outerConnection, DbConnectionFactory connectionFactory, TaskCompletionSource`1 retry, DbConnectionOptions userOptions)
   bei System.Data.ProviderBase.DbConnectionInternal.OpenConnection(DbConnection outerConnection, DbConnectionFactory connectionFactory)
   bei System.Data.OleDb.OleDbConnection.Open()
   bei Microsoft.Mashup.Engine1.Library.Common.DbExtensions.<>c__DisplayClass1.<Open>b__0()
   bei Microsoft.Mashup.Engine1.Library.Access.AccessEnvironment.ConvertDbExceptions[T](IResource resource, Func`1 action)
   bei Microsoft.Mashup.Engine1.Library.Common.DbExtensions.Open(DbConnection connection, DbEnvironment environment)
   bei Microsoft.Mashup.Engine1.Library.Common.DbValueBuilder.ConnectionReader.Open()
   bei Microsoft.Mashup.Engine1.Library.Common.DbValueBuilder.PagingEnumerator.TryGetPage(Int64 offset, Int32 count, IEnumerator`1& page)
   bei Microsoft.Mashup.Engine1.Library.Common.DbValueBuilder.PagingEnumerator.MoveNext()
   bei Microsoft.Mashup.Engine1.Runtime.SkipTakeEnumerator`1.MoveNext()
   bei Microsoft.Mashup.Engine1.Language.Query.QueryTableValue.QueryEnumerator.MoveNext()
   bei System.Linq.Enumerable.WhereSelectEnumerableIterator`2.MoveNext()
   bei Microsoft.Mashup.Engine1.Runtime.TableValue.ValueReference2Enumerator.MoveNext()
   bei Microsoft.Mashup.Evaluator.SimpleDocumentEvaluator.ValuePreviewValueSource.TableValuePreviewValueSource.SerializeRows(Int32 count)
   bei Microsoft.Mashup.Evaluator.SimpleDocumentEvaluator.ValuePreviewValueSource.TableValuePreviewValueSource.get_SmallValue()
   bei Microsoft.Mashup.Evaluator.Interface.NotifyingPreviewValueSource.get_SmallValue()
   bei Microsoft.Mashup.Evaluator.RemotePreviewValueSource.<>c__DisplayClass5.<RunStub>b__3()
   bei Microsoft.Mashup.Evaluator.EvaluationHost.ReportExceptions(IHostTrace trace, IEngineHost engineHost, IMessageChannel channel, Action action)
   --- Ende der internen Ausnahmestapelüberwachung ---
   bei Microsoft.Mashup.Evaluator.EvaluationHost.<>c__DisplayClass7.<TryReportException>b__6()
   bei Microsoft.Mashup.Common.SafeExceptions.IgnoreSafeExceptions(IHostTrace trace, Action action)
   bei Microsoft.Mashup.Evaluator.EvaluationHost.TryReportException(IHostTrace trace, IEngineHost engineHost, IMessageChannel channel, Exception exception)
   bei Microsoft.Mashup.Evaluator.EvaluationHost.ReportExceptions(IHostTrace trace, IEngineHost engineHost, IMessageChannel channel, Action action)
   bei Microsoft.Mashup.Evaluator.RemotePreviewValueSource.RunStub(IEngineHost engineHost, IMessageChannel channel, Func`1 getPreviewValueSource)
   bei Microsoft.Mashup.Evaluator.RemoteDocumentEvaluator.Service.<>c__DisplayClass19.<OnBeginGetPreviewValueSource>b__17(EvaluationResult2`1 result)
   bei Microsoft.Mashup.Evaluator.RemoteDocumentEvaluator.Service.<>c__DisplayClass32`1.<OnBeginGetResult>b__2f()
   bei Microsoft.Mashup.Evaluator.EvaluationHost.ReportExceptions(IHostTrace trace, IEngineHost engineHost, IMessageChannel channel, Action action)
   bei Microsoft.Mashup.Evaluator.RemoteDocumentEvaluator.Service.OnBeginGetResult[T](IMessageChannel channel, BeginGetResultMessage message, Action`1 action)
   bei Microsoft.Mashup.Evaluator.RemoteDocumentEvaluator.Service.OnBeginGetPreviewValueSource(IMessageChannel channel, BeginGetPreviewValueSourceMessage message)
   bei Microsoft.Mashup.Evaluator.MessageHandlers.<>c__DisplayClassa`1.<AddHandler>b__8(IMessageChannel channel, Message message)
   bei Microsoft.Mashup.Evaluator.MessageHandlers.TryDispatch(IMessageChannel channel, Message message)
   bei Microsoft.Mashup.Evaluator.ChannelMessenger.ChannelMessageHandlers.TryDispatch(IMessageChannel channel, Message message)
   bei Microsoft.Mashup.Evaluator.MessageHandlers.Dispatch(IMessageChannel channel, Message message)
   bei Microsoft.Mashup.Evaluator.ChannelMessenger.OnMessageWithUnknownChannel(IMessageChannel baseChannel, MessageWithUnknownChannel messageWithUnknownChannel)
   bei Microsoft.Mashup.Evaluator.MessageHandlers.<>c__DisplayClassa`1.<AddHandler>b__8(IMessageChannel channel, Message message)
   bei Microsoft.Mashup.Evaluator.MessageHandlers.TryDispatch(IMessageChannel channel, Message message)
   bei Microsoft.Mashup.Evaluator.ChannelMessenger.ChannelMessageHandlers.TryDispatch(IMessageChannel channel, Message message)
   bei Microsoft.Mashup.Evaluator.MessageHandlers.Dispatch(IMessageChannel channel, Message message)
   bei Microsoft.Mashup.Evaluator.EvaluationHost.Run()
   bei Microsoft.Mashup.Container.EvaluationContainerMain.Run(Object args)
   bei Microsoft.Mashup.Evaluator.SafeThread2.<>c__DisplayClass2.<CreateThreadStart>b__0(Object o)
   bei Microsoft.Mashup.Evaluator.SafeThread2.<>c__DisplayClass15.<CreateAction>b__14(Object o)
   bei Microsoft.Mashup.Evaluator.SafeThread2.<>c__DisplayClass2.<CreateThreadStart>b__1(Object o)
   bei Microsoft.Mashup.Container.EvaluationContainerMain.SafeRun(String[] args)
   bei Microsoft.Mashup.Container.EvaluationContainerMain.Main(String[] args)
   --- Ende der internen Ausnahmestapelüberwachung ---
   bei Microsoft.Mashup.Evaluator.EvaluationHost.OnException(IEngineHost engineHost, IMessageChannel channel, ExceptionMessage message)
   bei Microsoft.Mashup.Evaluator.RemoteEvaluationContainerFactory.Container.OnException(IMessageChannel channel, ExceptionMessage message)
   bei Microsoft.Mashup.Evaluator.MessageHandlers.<>c__DisplayClassa`1.<AddHandler>b__8(IMessageChannel channel, Message message)
   bei Microsoft.Mashup.Evaluator.MessageHandlers.TryDispatch(IMessageChannel channel, Message message)
   bei Microsoft.Mashup.Evaluator.MessageHandlers.Dispatch(IMessageChannel channel, Message message)
   bei Microsoft.Mashup.Evaluator.ChannelMessenger.ChannelMessageHandlers.TryDispatch(IMessageChannel channel, Message message)
   bei Microsoft.Mashup.Evaluator.MessageHandlers.Dispatch(IMessageChannel channel, Message message)
   bei Microsoft.Mashup.Evaluator.Interface.IMessageChannelExtensions.WaitFor[T](IMessageChannel channel)
   bei Microsoft.Mashup.Evaluator.RemotePreviewValueSource.PreviewValueSource.WaitFor(Func`1 condition, Boolean disposing)
   bei Microsoft.Mashup.Evaluator.RemotePreviewValueSource.PreviewValueSource.get_SmallValue()
   bei Microsoft.Mashup.Evaluator.Interface.NotifyingPreviewValueSource.get_SmallValue()
   bei Microsoft.Mashup.Evaluator.Interface.NotifyingPreviewValueSource.get_SmallValue()
   bei Microsoft.Mashup.Evaluator.Interface.NotifyingPreviewValueSource.get_SmallValue()
   bei Microsoft.Mashup.Evaluator.Interface.NotifyingPreviewValueSource.get_SmallValue()
   bei Microsoft.Mashup.Host.Document.Analysis.PackageDocumentAnalysisInfo.PackagePartitionAnalysisInfo.SetPreviewValue(EvaluationResult2`1 result, Func`1 getStaleSince, Func`1 getSampled)

Es wird noch eigenartiger! Wenn ich im Menüpunkt "Daten" "Abfragen anzeigen" aktiviere, dann sehe ich, dass nicht immer alle sondern manchmal nur einzelne der Abfragen (und nicht immer die selben!) diesen Fehler anzeigen. Wenn ich ein paar mal "Alle aktualisieren" drücke haut es irgendwann ohne Fehlermeldung hin...

Google gibt dazu leider auch nichts für mich verwertbares her, kann mir vielleicht einer von euch helfen? :)

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:
WYSIWYG-Editor, ctl00_Content_editor1 Editor WerkzeugleistenDokument Quellcode VorschauZwischenablage/Rückgängig AusschneidenTastaturkürzel Strg+X KopierenTastaturkürzel Strg+C EinfügenTastaturkürzel Strg+V Als Klartext einfügenTastaturkürzel Strg+Alt+Umschalt+V Aus Word einfügen RückgängigTastaturkürzel Strg+Z WiederherstellenTastaturkürzel Strg+YEditieren Suchen Ersetzen Alles auswählenGrundstile FettTastaturkürzel Strg+B KursivTastaturkürzel Strg+I UnterstrichenTastaturkürzel Strg+U Durchgestrichen Formatierung entfernenAbsatz Nummerierte Liste einfügen/entfernen Liste Einzug verringern Einzug erhöhen Zitatblock Linksbündig Zentriert Rechtsbündig BlocksatzLinks Link einfügen/editierenTastaturkürzel Strg+K Link entfernen AnkerEinfügen Bild Tabelle Horizontale Linie einfügen Smiley Sonderzeichen einfügen Einen Quelltextabschnitt einfügen oder aktualisierenStileFormatFormatSchriftartSchriftartGrößeGrößeFarben Textfarbe HintergrundfarbeWerkzeuge Maximieren Blöcke anzeigenabout Über CKEditor 4 Drücken Sie ALT 0 für Hilfe

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Unregelmäßiger Fehler bei ActiveWorkbook.RefreshAll	09.08.2016 22:49:10	O Neill