Daten aus geschlossener Datei mit Password
18.01.2005 17:00:35
R.Schmitt
die Daten eines bestimmten vom Nutzer aus-
zuwählenden Artikels aus einer weiteren
geschlossenen Datei in meine derzeit geöffnete
Datei.
Nun möchte ich (um ganz sicher zu gehen) die
Datei aus der die Daten stammen auch mit einem
Password schützen und bekomme logischerweise
auch ständig die Aufforderung, dieses einzugeben.
Dann werden die Daten problemlos ausgelesen.
Beim Versuch in dem unten stehenden Makro auch
noch gleich das Password mitzugeben bin ich
allerdings gescheitert.
Sub Daten_holen()
Dim Blatt As String
Blatt = Sheets("Roh").Range("d1").Value
Dim C As Range, rngArtikel As Range, lRow As Long
Dim wbArtikel As Workbook, firstAddr As String
Application.ScreenUpdating = False
Set wbArtikel = GetObject("C:\Daten.xls")
Set rngArtikel = [a1] 'Suchbegriff = Artikelnummer
lRow = 3 'Startzeile für die Ausgabe
With wbArtikel.Worksheets(Blatt).Range("A:A")
Set C = .Find(rngArtikel, lookat:=xlWhole)
Rows("3:65536").Clear 'Ausgabebereich leeren
If Not C Is Nothing Then
firstAddr = C.Address
Do
Range(Cells(lRow, 1), Cells(lRow, 17)) = C.Offset(0, 1).Resize(1, 17).Value
lRow = lRow + 1
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> firstAddr
Else
MsgBox "Artikelnummer " & rngArtikel & " nicht gefunden.", , "Fehlanzeige..."
End If
End With
wbArtikel.Close
Set wbArtikel = Nothing
Application.ScreenUpdating = True
End Sub
Vielen Dank für eure Hilfe
R.Schmitt