Posts

Es werden Posts vom Oktober, 2010 angezeigt.

Geschlossene Dateien - Anzahl Zeilen!

Frage: Wie hole ich Daten aus Spalte A aus geschlossenen Dateien, wenn mir die belegte Zeilenanzahl nicht bekannt ist? Die Spalte muss aber durchgängig gefüllt sein. So:

Geschlossene Dateien - Anzahl Zeilen...[ZIP, 200 KB]

Option Explicit
OptionPrivateModule
'Die Tabelle wird ausgelesen
Const strSheetQ AsString="Tabelle1"
' Die Tabelle ist in der Datei mit dem Code
Const strSheetZ AsString="Sheet1"
' Diese Spalte wird ausgelesen
Const strColumn AsString="A"
' Spalte Ausgabe Dateiname
Const strFileColumn AsString="B"
PublicSub Files_Read_Range()
Dim objShell AsObject
Dim varDir AsVariant
Dim strDir AsString
Dim objFSO AsObject
Dim objDir AsObject
Dim lngCalc AsLong
OnErrorGoTo Fin
With Application
.ScreenUpdating =False
.AskToUpdateLinks =False
.EnableEvents =False
lngCalc =.Calculation
.Calculation = xlCalculationManual
.DisplayAlerts =False
EndWith
Set objShell =CreateObject("Shell.Application")
Set varDir = objShell.BrowseForFolder(0,…