Herbers Excel-Forum - das Archiv

VBA-Code und Verknüpfungs aktualisieren

Bild

Betrifft: VBA-Code und Verknüpfungs aktualisieren
von: Basti

Geschrieben am: 23.02.2005 13:46:44
Hallo Leute,
vorliegende Datei
https://www.herber.de/bbs/user/18593.xls
liest durch den Code im Modul 2 aus allen Dateien eines Verzeichnisses Daten aus und kopiert sie in das Tabellenblatt "Auslastung" der vorliegenden Datei unterhalb von Zeile 60 nacheinander.
Durch den Code werden die externen Dateien geöffnet und ein Zellenbereich herüberkopiert. Da es eine Verknüpfung der externen Dateien zur vorliegenden Datei gibt (Namen der Mitarbeiter), erscheint bei jedem Kopiervorgang die Abfrage ob die Verknüpfung aktualisiert werden soll oder nicht.
Dabei ist es unwichtig ob die Verknüpfung aktualisiert wird oder nicht. Die Abfrage stört jedoch, da viele Kopiervorgänge durchgeführt werden müssen und ich immer dabei sein muss zum bestätigen der Verknüpfungsaktualisierung, sonst würde der Übertrag aus den externen Dateien automatisch bis zum Ende durchlaufen.

Weiß einer von Euch wie ich den Code in Modul 2 anpassen muss, um die Abfrage, ob ich die Verknüpfung aktualisieren möchte oder nicht, zu unterdrücken.
Ich bitte um Eure Hilfe.
Viele Grüße aus Hamburg von Basti.
Bild

Betrifft: AW: VBA-Code
von: Basti

Geschrieben am: 23.02.2005 13:51:36
Kann es sein das der Code nicht übertragen wird ....?
deshalb schicke ich ihn nochmals nach, Gruß Basti
Dim WS As Worksheet
Const copyrange As String = "B2:N59"
'Startprozedur
Sub start_copy_pgm()
Const VerzDefault As Variant = "G:\DAT\NL-HH\Auslastung\Auslastungsmeldung"
Dim verz As String
Set WS = ActiveWorkbook.ActiveSheet
verz = Ordner_def(VerzDefault)
ChDir verz
Application.ScreenUpdating = False
ShowFileList (verz)
End Sub

'Excel-Dateien öffnen
Sub ShowFileList(folderspec)
Dim exapp As Object
Dim fs, f, fc, fl As Object
Dim quellbereich As Range
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
For Each fl In fc
If fl.Type = "Microsoft Excel-Arbeitsblatt" Then
Set exapp = GetObject(folderspec & "\" & fl.Name)
Set quellbereich = exapp.Sheets(2).Range(copyrange)
Call kopieren(quellbereich)
Call schliessen(fl.Name)
End If
Next
End Sub


'Kopierprozedur
Sub kopieren(quelle)
' Schutz aufheben:
ActiveSheet.Unprotect Password:="sonne"
ActiveSheet.Unprotect
Dim zielbereich As Range
Dim r As Integer
r = WS.UsedRange.Rows.Count + 2
Set zielbereich = WS.Range("A" & r)
quelle.Copy zielbereich
' Schutz aktivieren
' ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
' Scenarios:=True
End Sub

'Schließprozedur
Sub schliessen(wind)
Windows(wind).Visible = True
Application.DisplayAlerts = False
Workbooks(wind).Close
End Sub

'Ordnerdefinition
'aus Herber-Forum von K.Rola am 11.10.04
Function Ordner_def(defaultwert As Variant) As String
Dim objFolderItem As Object, strPath As String, objShell As Object
Dim objFolder As Object
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0&, "Ordner auswählen...", 0&, defaultwert)
If objFolder Is Nothing Then End
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path
Ordner_def = strPath
End Function

Bild

Betrifft: Hiiiiiiiilfe ................. weiß keiner Rat? OT
von: Basti
Geschrieben am: 23.02.2005 15:44:22
Bild

Betrifft: AW: VBA-Code und Verknüpfungs aktualisieren
von: Werner Oertli
Geschrieben am: 23.02.2005 15:55:21
Hallo Basti
So ungeduldig?
Hast Du denn schon versucht unter....
Extras - Optionen - Bearbeiten
(Das Häckchen weg bei Aktualisieren von automatischen Verknüpfungen bestätigen)
Gruss Werner
Bild

Betrifft: AW: VBA-Code und Verknüpfungs aktualisieren
von: Basti
Geschrieben am: 23.02.2005 16:03:39
Hallo Werner,
ja, bin wohl etwas ungeduldig heute. Dabei liegt die Lösung so nah und ist so einfach.
Danke
Gruß, Bastian
Bild

Betrifft: Danke für die Rückmeldung OT:-)
von: Werner Oetli
Geschrieben am: 23.02.2005 16:16:07
 Bild
Excel-Beispiele zum Thema "VBA-Code und Verknüpfungs aktualisieren"
Für ein VBE-Projekt mit VBA-Code ein Paßwort festlegen UserForm mit ComboBoxes durch VBA-Code erstellen
ComboBoxes per VBA-Code in Tabellenblatt erzeugen VBA-Code auf Schaltflächen-Klick auskommentieren
VBA-Code als Zellkommentar anzeigen Aktive Arbeitsmappe ohne VBA-Code und Button speichern
Aktuellen Dateipfad aktualisieren Fußballtabelle aktualisieren
Tagesliste eines Monats nach Eingaben aktualisieren und formatieren Fahrzeugbelegungsplan nach Datumseintragung aktualisieren