venster openen met specifieke map

[vrouw]

Hoe en waar kan ik in onderstaande macro aangeven dat er voor het importeren in de specifieke map moet worden gekeken
c:\Prognoses\Artikelen\2017\

Sub ImportSheet()
  
   ActiveSheet.Name = "Prognose"
   
    Dim sImportFile As String, sFile As String
    Dim sThisBk As Workbook
    Dim vfilename As Variant
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set sThisBk = ActiveWorkbook
   
    sImportFile = Application.GetOpenFilename( _
    FileFilter:="Microsoft Excel Workbooks, *.xls; *.xlsx", Title:="Open Workbook")
    If sImportFile = "False" Then
        MsgBox "No File Selected!"
        Exit Sub
         
    Else
        vfilename = Split(sImportFile, "\")
        sFile = vfilename(UBound(vfilename))
        Application.Workbooks.Open Filename:=sImportFile
         
        Set wbBk = Workbooks(sFile)
        With wbBk
            If SheetExists("sheet1") Then
            Sheets("Sheet1").Name = "import"
                Set wsSht = .Sheets("import")
                wsSht.Copy before:=sThisBk.Sheets("Prognose")
            Else
                MsgBox "There is no sheet with name :sheet1 in:" & vbCr & .Name
            End If
            wbBk.Close SaveChanges:=False
        End With
    End If
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

 

[Haije]

vrouw,

voeg dit toe:

pad="c:\Prognoses\Artikelen\2017\"
ChDrive pad
ChDir pad

vóór sImportFile = .....

 

[vrouw]

Thanks, ga het proberen.

 

[vrouw]

De macro stopt na de regel:
# Application.Workbooks.Open Filename:=sImportFile
(wat doet deze regel precies?) Ik neem aan dat "sImportFile" een fictieve naam is en niets te maken heeft met de benaming van het te importeren tabblad uit het te openene bestand?

Tot en met die regel gaat het goed en word er netjes gevraagd om de file aan te klikken in de aangegeven map
c:\Prognoses\Artikelen\2017"

Edit:
Ik zie al wat er fout ging, ik had de regels van de
# rivate Function SheetExists(sWSName As String) As Boolean
eruit gehaald.

 

[HSV]

De code die ik je gaf in je vorige vraag is eenvoudiger.

 

[vrouw]

De code die ik je gaf in je vorige vraag is eenvoudiger.

Ja, thanks HSV maar dat enkele regeltje snapte ik niet