Åbne filer inde fra excel - part 2

Hej

Prøv med
Sub ÅbnBestemtMappe()

Dim sti As String
Dim FilNavn as string

FilNavn="EnExcelFile.xls"
sti= "K:\Bestemt Mappe"

    Workbooks.Open Filename:=sti & FilNavn

end sub

mvh oleelo

sti= "K:\Bestemt Mappe" skal være sti= "K:\Bestemt Mappe\"
mvh oleelo

Den åbner en excel fil, men jeg vil gerne have åbnet en bestemt mappe, hvor denne excel fil ligger og så her efterfølgende åbne excel filen eller en hvilken som helst anden fil - word, powerpoint etc.Når den åbnede fil igen lukkes er jeg tilbage i excel.

SDu kan kun åbne Excelfiler fra Excel, eller filer i formater, som Excel kender. Excel kan ikke åbne en Word fil, en PDF fil eller andet. I givet fald må du enten selv kode dig frem til en løsning, hvor filtypen undersøges og derefter startes det korrekte program til den pågældende filtype, eller noget andet i samme stil. muligvis noget Windows API programmering, men så er det nok bedre at spørge under Programmering eller Styresystemer.

OK, men for at være sikker på , at du ved hvad jeg mener flg. Hvis man inde i en excel workbook har et hyberlink til en filmappe/stifinder og fra denne mappe vil åbne en word fil, åbner wordfilen jo bare i word.Når wordfilen lukkes er du tilbage i word, da det var via Excel/hyberlink/filmappe, at filmappen blev åbnet og herefter filen.

Ja, for hypwerlinket linker fil filen (og den "ved" selv, hvilket program den skal åbnes med), men hvis du bruger en åbn-dialog, tilhører denne Escel, og så forsøger du at åbne filen i Excel.

Så, hyberlink er måden, jeg gør det på (tidligere foreslået af excelent)?

Det lyder fornuftigt. Prøv noget i denen stil:

Sub ÅbnBestemtMappe()

Dim sti As String
ChDrive "K"
sti = "K:\Bestemt mappe"
ChDir sti
fn = Application.GetOpenFilename
ActiveWorkbook.FollowHyperlink Address:=fn, _
    NewWindow:=True
End Sub

Flg. fejl kommer: Run-time error '76': Path not found. ChDir sti er skrevet over med gult.

Så er det nok fordi din sti ikke eksisterer. Ret til den sti, du faktisk vil arbejde i.

Nu har jeg prøvet og sætte en anden sti ind, men den åbner ikke den sti, som jeg har sat ind. Den åbner den sti(mappe), som senest har været åbnet.Når jeg lukker denne mappe, kommer der en fejlmelding.

Jeg kan ikke give dig en forklaring på, hvorfor den ikke åbenr i den rigtige  mappe. Det virker helt ok hos mig. Koden nedenfor sikrer, at der ikke opstår fejl, når du lukker uden at vælge en fil.

Sub ÅbnBestemtMappe()

    Dim sti As String
    ChDrive "C"
    sti = "C:\Kill2"
    ChDir sti
   
    fn = Application.GetOpenFilename
    If fn = False Then
        Exit Sub
    Else
        ActiveWorkbook.FollowHyperlink Address:=fn, _
            NewWindow:=True
    End If
End Sub

Ok, jeg havde ikke fået ændret "chDrive til det samme drev som sti. Nu virker det - ligger du et svar og tak for hjælpen.

Et svar :-)