Office: Datenverbindung deaktivieren

nögg · 11. August 2010

Hallo miteinander

Ich importiere mit diesem Script Dateien aus einer csv Datei:
Code:

Dim sFileToOpen As Variant
Dim sSaveCurDir As String
Dim sSaveCurDrive As String
Dim lngCounter As Long
Dim strName As String

sSaveCurDrive = Left(CurDir(), 1)
sFileToOpen = Application.GetOpenFilename("EXCEL Files (*.csv), *.csv", , "EXCEL Dateien öffnen")

lngCounter = InStrRev(sFileToOpen, "\") + 1
strName = Mid(sFileToOpen, lngCounter)

If sFileToOpen False Then

Sheets("Tabelle1").Range("A:E").ClearContents

With Sheets("Tabelle1").QueryTables.Add(Connection:= _
"TEXT;" & sFileToOpen _
, Destination:=Sheets("Tabelle1").Range("$A$1"))
.Name = strName
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Sheets("Tabelle1").Range("C1") = "Datei: " & strName
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das funktioniert einwandfrei.
Wenn ich die Datei anschliessend speichere, schliesse und wieder öffne kommt die Sicherheitswarnung "Datenverbindungen wurden deaktiviert".

Wie muss ich die Datenverbindung schliessen?
Die Daten müssen nicht aktualisiert werden. Erst wenn ich wieder eine andere Datei importiere werden die Daten geändert.

Grüsse
Bruno

:)

nögg · 12. August 2010

Hallo

Habe die Antwort selber gefunden:
Code:

ActiveWorkbook.Connections(Mid(strName, 1, (Len(strName) - 4))).Delete
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Viele Grüsse
Bruno

Office: Datenverbindung deaktivieren

Datenverbindung deaktivieren

Datenverbindung deaktivieren

Datenverbindung deaktivieren - Similar Threads - Datenverbindung deaktivieren

Extras, Optionen, Ansicht, Platzhalter für Grafiken deaktivieren

Abfrage & Datenverbindung

Teams Anzeige Zeitzone deaktivieren

Datenverbindungen in mehreren Excel Dateien löschen

Telefonfunktion deaktivieren

Datenverbindung zu Access nicht alle Auswahlabfragen erden angezeigt

Externe Datenverbindung deaktiviert