Range in geschlossener Datei anweisen
Andreas
wie kann ich in einer geschlossenen Datei, aus der Information, daß es dort eine Namensdefinition gibt, einen Range anweisen?
Sub CopyRangeFromClosedFile()
Dim wkbSourceFile As Workbook
Dim strSourceFilePath As String
Dim rgQuelldaten As Range 'ist auch gleichzeitig der Name einer Namensdefinition _
in der SourceFile
strSourceFilePath = "C:\Documents and Settings\Desktop\Quelle.xls"
''Wenn ich über eine Öffnung der Datei gehen würde, würde es so aussehen
'Workbooks.Open strSourceFilePath
'Set rgQuelldaten = ActiveWorkbook.Names("rgQuelldaten").RefersToRange
'Debug.Print rgQuelldaten.Cells.Count
'Aber wie kann ich den Range innerhalb der SourceDatei anweisen, bzw. überhaupt erst einmal die _
SourceDatei sauber über 'SET' anweisen, OHNE sie zu öffnen?
Set rgQuelldaten = Dir(strSourceFilePath).Names("rgQuelldaten").RefersToRange '?
End Sub
Im Beispielcode gehe ich davon aus, daß auf meinem Desktop eine Datei Quelle.xls existiert. Diese soll nicht geöffnet werden. Mit Öffnung bekomme ich alles hin, aber ohne Öffnung scheitere ich schon an der Frage, wie ich aus einer Pfadangabe eine korrekte wkbSourceFile kreieren kann, mit der ich auch alle zugehörigen Befehle eines WorkBooks verwenden kann.
Set wkbSourceFile = OminöserMirNichtBekannterBefehl(strSourceFilePath) 'KEINE Öffnung
with wkbSourceFile
debug.print .worksheets.count
Set rgQuelldaten =.Names("rgQuelldaten").RefersToRange
end with
Weiß hier jemand Rat? Das wäre wunderbar!
Grüße aus Berlin,
Andreas Hanisch