Du måste ha något slags relation till mappen annars begär du att VBA skall läsa dina tankar.

Om arbetsboken med makrot alltid finns i samma mapp som övriga filer:

ThisWorkbook.Path

Om den aktiva/senast öppnade filen finns i rätt mapp

ActiveWorkbook.Path

Lägg ihop med något slags loopp som söker igenom mappen efter önskade filer och öppnar dem., typ:

Sub tst()

Dim sökväg As String

Dim Fil As String

sökväg = ThisWorkbook.Path

'Hämta namnet på den första excelfilen i mappen (du anger filändelsen för den typ av fill du vill söka efter här)

    Fil = Dir(sökväg & "\*.xlsx")

    Do

        'öppna filen

        Workbooks.Open sökväg & "\" & Fil

        'sök efter nästa excelfilen i mappen

        Fil = Dir

    Loop Until Fil = ""

End Sub

+ lite felkontroll osv (nu kommer den t.ex att försöka öppna makro-filen igen)

 Nu har jag lyckats skapa dynamiska sökvägar mha ett antal olika Excel-funktioner men jag kan bara öppna en arbetsbok. När programmet kommr till att öppna nästa arbetsbok får jag ett felmeddelande. Detta oberoende av vilken av arbetsböckerna jag skriver in först i koden.

Kan det måhända vara så att man måste aktivera eller välja arbetsboken som koden ligger i efter varje tillfälle som jag öppnat upp en arbetsbok?

 Hej hej

Enklaste är nog att använda en fil som du aldrig flyttar på, för att flytta de andra filerna och hålla koll på deras nya position. Då kan du enkelt öppna dem tack vare att du hela tiden känner till sökvägen.

'Jag hade använt filesystemobject för detta som du aktiverar med: 
Dim FSO as object Set FSO = CreateObject("Scripting.FileSystemObject")   'Därefter fått användaren att välja destinationsmapp för filerna: 
Dim dFolderPath As String With Application.FileDialog(msoFileDialogFolderPicker)   If .Show = -1 Then                         dFolderPath = .SelectedItems(1)                End If  End With  
'Beskriva gamla mappen för dina filer, som du sedan tidigare har laggt i exempelvis cell a1, blad 1:    Dim sFolderPath as string
sFolderpath = thisworkbook.sheets(1).range("a1")
 'Tilldela den till FSO objektet Set sourceFolder = FSO.Getfolder(sFolderPath) 
'Flytta filerna: 
For Each file In sourceFolder.Files
fileName = file.Name
If InStr(fileName, ".xlsx") Then
sourceFilePath = file.Path
destinationFilePath = dFolderPath& "\" & fileName

FSO.MoveFile Source:=sFolderpath, Destination:=dFolderPath

End If
Next
'Skriva nya destinationsfoldern till cell A1 thisworkbook.sheets(1).range("a1") = dFolderPath & "\"
Sedan kan du skriva liknande kod för att öppna dina filer, nu när du har den svåra biten kanske du kan hantera denna själv :)
Ett annat alternativ är att ska en metod för att söka av alla mappar och undermappar på flera diskar för att hitta dina filer
men detta alternativ tar tid, både att koda ihop, samt att använda metoden.
Mvh
Christian

 

 

 Hej klasseman

Lägg gärna till koden som du har problem med, annars blir det svårt att svara på din fråga. Finns så mycket man kan göra tokigt, svårt att gissa sig till vad du har gjort för något fel. 

Mvh

Christian

 Ok, framtida tips. Thisworkbook refererar till boken som koden finns i. Ur objektet kan du hämta egenskaper såsom mappens sökväg, thisworkbook.path. Så slipper du använda funktionen =cell, som är lite buggig och antagligen orsaken till att du tvingas styra beteendet med activate. 

Workbooks.open(thisworkbook.path &"\ettfilnamn" &".xlsm")

Vill du göra något med dina öppnade böcker så kan det vara bara att tilldela en variabel.

Dim enNyBok as workbook: set enNyBok = workbooks.open(....som tidigare kod)

/Christian