Öppna en eller flera filer

Öppna en eller flera filer

I detta tips demonstreras en teknik för att öppna en eller flera filer via VBA.

Dels använder vi parametern MultiSelect i GetOpenFileName och dels nyttjar vi att denna metod returnerar en matris av datatypen variant.

För exempel för Excel 2002 och senare versioner se Anpassa öppna dialogruta.

Om ett felmeddelande erhålls vid kopiering till VBA-modul så läs mer här»

(© 2002 - 2004 All rights Colo - Used by permission)

Option Explicit

Sub Oppna_En_eller_Flera_Filer()

   '© 2004 Alla rättigheter XL-Dennis

   Dim vaFiler As Variant

   Dim i As Long

   vaFiler = Application.GetOpenFilename _

         (FileFilter:="Excel Filer (*.xls),*.xls", _

         Title:="Öppna filer", MultiSelect:=True)

   'Om användaren avbryter, dvs klickar på Avbryt-knappen

   'i dialogrutan.

   If Not IsArray(vaFiler) Then Exit Sub

   'Öppnar de valda filerna.

   With Application

      .ScreenUpdating = False

      For i = 1 To UBound(vaFiler)

         Workbooks.Open vaFiler(i)

      Next i

      .ScreenUpdating = True

   End With

End Sub