Verknüpfungen aktualisieren in best. Abständen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin, Moin,
ich würde die Verknüpfungen bzw deren Inhalt bei jedem Öffnen der Datei tages- bzw. "öffnenaktuell" generieren.
Etwa so:
'in DieseArbeitsmappe, nicht Tabelle, nicht Modul


Private Sub Workbook_Open()
sPath = "C:\test\"
sFile = Dir$(sPath)
If sFile = "" Then  'Kontrolle ob überhaupt was da ist
MsgBox "garnix vorhanden"
Exit Sub
End If
Do While sFile <> ""    'solange wie was da ist
If Right(sFile, 4) = ".xls" Then    'und das auch noch eine *.xls-Datei ist
sSheet = "Tabelle1"             'mit dem Blatt was "Tabelle1" heißt
ref = "R1C1"                    'in der Zelle A1 (Zeile1Spalte1)
inhalt_der_zelle_auslesen = GetValue(sPath, sFile, sSheet, ref) 'übergeben der Variablen an die Funktion
On Error GoTo falschesBlatt     'wenn Fehler z.B kein Blatt "Tabelle1" in der Datei ist
'wie und wo Du das dann hingeschrieben haben willst...keine Ahnung
i = Sheets(1).Cells(1, 1).CurrentRegion.Rows.Count + 1 'erste leere Zeile
Sheets(1).Cells(i, 1).Value = inhalt_der_zelle_auslesen 'einschreiben der Werte
Sheets(1).Cells(i, 2).Value = sFile                     'einschreiben der Quelle
falschesBlatt:
End If
sFile = Dir$()
Loop
End Sub


Private Function GetValue(path, file, sheet, ref)
Dim arg As String
If Right(path, 1) <> "\" Then path = path & "\"
arg = "'" & path & "[" & file & "]" & sheet & "'!" & ref
GetValue = ExecuteExcel4Macro(arg)
End Function

'Gruß
'Ein Veit

Private Sub Workbook_Open() sPath = "C:\test\" sFile = Dir$(sPath) If sFile = "" Then 'Kontrolle ob überhaupt was da ist MsgBox "garnix vorhanden" Exit Sub End If Do While sFile <> "" 'solange wie was da ist If Right(sFile, 4) = ".xls" Then 'und das auch noch eine *.xls-Datei ist sSheet = "Tabelle1" 'mit dem Blatt was "Tabelle1" heißt ref = "R1C1" 'in der Zelle A1 (Zeile1Spalte1) inhalt_der_zelle_auslesen = GetValue(sPath, sFile, sSheet, ref) 'übergeben der Variablen an die Funktion On Error GoTo falschesBlatt 'wenn Fehler z.B kein Blatt "Tabelle1" in der Datei ist 'wie und wo Du das dann hingeschrieben haben willst...keine Ahnung i = Sheets(1).Cells(1, 1).CurrentRegion.Rows.Count + 1 'erste leere Zeile Sheets(1).Cells(i, 1).Value = inhalt_der_zelle_auslesen 'einschreiben der Werte Sheets(1).Cells(i, 2).Value = sFile 'einschreiben der Quelle falschesBlatt: End If sFile = Dir$() Loop End Sub

Private Function GetValue(path, file, sheet, ref) Dim arg As String If Right(path, 1) <> "\" Then path = path & "\" arg = "'" & path & "[" & file & "]" & sheet & "'!" & ref GetValue = ExecuteExcel4Macro(arg) End Function

Beliebteste Forumthreads (12 Monate)

Verknüpfungen aktualisieren in best. Abständen?

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Verknüpfungen aktualisieren in best. Abständen?

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread