Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub DatenImport()
   Dim rng As Range
   Dim sFile As String
   Application.ScreenUpdating = False
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   sFile = Range("B1").Value
   If Dir(sFile) = "" Then
      Beep
      MsgBox "Testdatei wurde nicht gefunden!"
      GoTo ERRORHANDLER
   End If
   Set rng = Worksheets("Data").Range("F1:I10")
   Workbooks.Open _
      FileName:=sFile, _
      password:="Password"
   rng.Value = Range("A1:D10").Value
   ActiveWorkbook.Close savechanges:=False
   Worksheets("Data").Select
ERRORHANDLER:
   Application.EnableEvents = True
   Application.ScreenUpdating = True
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Datei und Arbeitsmappe