Wie bekomme ich benachbarte Daten zurück? nach der Verwendung von „Daten aus dem externen Datenbereich entfernen, bevor die Arbeitsmappe gespeichert wird“ -

Question

Ich habe eine Kalkulationstabelle mit einer externen Datentabelle von SQL Server mit einer Abfrage, die benutzerspezifische Daten zurückgibt. Ich habe in diese Datei Anweisungen eingefügt, um den Download einmal zuzulassen und die Verknüpfung dann aufzuheben.

Ein Benutzer hat dies leider nicht getan, einen ganzen Haufen Daten hinzugefügt, „gespeichert“ und seine Arbeit verloren.

Gibt es eine Möglichkeit, die Daten wiederherzustellen?

Answer 1

Tut mir leid, aber da hast du Pech gehabt. Da du „Daten aus dem externen Datumsbereich entfernen, bevor du die Arbeitsmappe speicherst“ aktiviert hast, wurden die hinzugefügten Daten nie gespeichert und es gibt keinen Ort, von dem die Daten des Benutzers abgerufen werden können.

Um derartige Unfälle in Zukunft zu vermeiden, würde ich die Arbeitsmappe (sofern nicht bereits geschehen) auf Makros aktivieren (.xlsm) setzen und eine Prüfung im Ereignis „BeforeSave“ hinzufügen, um festzustellen, ob die Verknüpfung der Tabelle aufgehoben wurde.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   Dim sMsg As String

   ' Assuming the data table is the first table on the first worksheet
   With Worksheets(1).ListObjects(1)  

      If .SourceType <> xlSrcRange Then
         sMsg = "Any changes you've made to the table won't be saved unless you unlink from the database!" _
               & vbCrLf & vbCrLf & "Do you want to unlink?"
         If MsgBox(sMsg, vbExclamation + vbYesNo) = vbYes Then
            .Unlink
         End If
      End If

   End With

End Sub