Variabele bestandsnaam openen in VBA

[IlonadeGroot]

Hallo,

Ik ben bezig met een macro, maar loop vast op het volgende.
Ik heb een knop gemaakt in een bestand (waarvan ik helaas geen voorbeeld kan plaatsen) met een macro waarmee een ander excel bestand geopend kan worden en hieruit diverse gegevens overgenomen worden.
Nu is het zo dat ik nu alleen een bestand met de bestandsnaam 'PrijslijnExport' in kan lezen en ik wil graag dat dit verschillende bestandsnamen kunnen zijn.



Ik heb al gezocht op Google, maar ik kom er niet uit.
Kan iemand mij hiermee helpen?
Alvast bedankt,

 

[HSV]

Dat kan met bv:

Laat de code maar eens lopen na het bestandenpad te hebben aangepast.

Sub hsv()
 With Application.FileDialog(msoFileDialogOpen)
  .InitialFileName = "C:\users\ilona\documents\map1\"
  .FilterIndex = 2
  .Show
  .Execute
 End With
If ActiveWorkbook.Name <> ThisWorkbook.Name Then
   Application.Goto ActiveWorkbook.Sheets(1).Range("A1")
 End If
End Sub

 

[edmoor]

Ik vraag me af waarom sommigen zo'n probleem maken van een voorbeeld document. Een relevant voorbeeld plaatsen kan altijd als je zelf wat extra's doet.

 

[IlonadeGroot]

@HSV, het is geen vast bestandspad waar de documenten vandaan gehaald worden, maakt dat uit?
Ik krijg het nu niet voor elkaar, maar moet hier even wat dieper in duiken.
Ik ga morgen even kijken of ik het met jouw code voor elkaar kan krijgen (ben nogal een leek hierin, probeer het te leren).
Alvast dank voor de moeite in elk geval.

@Edmoor, het is een heel groot, heel complex bestand, met heel veel info die niet naar buiten mag.
Anders had ik wel een 'dummy' bestandje gemaakt natuurlijk.

 

[HSV]

Dan kort je het in tot de C schijf, en vandaar uit kun je in de dialog naar de verschillende mappen.

 [COLOR=#333333].InitialFileName = "C:\"[/COLOR]

 

[IlonadeGroot]

Nou ik kom er niet uit helaas. Een collega gaat ook een kijkje nemen....

 

[HSV]

Laat dit dan eens lopen als je een C-schijf hebt en laat eens weten waar je niet uitkomt.

Sub hsv()
 With Application.FileDialog(msoFileDialogOpen)
  .InitialFileName = "C:\"
  .FilterIndex = 2
  .Show
  .Execute
 End With
If ActiveWorkbook.Name <> ThisWorkbook.Name Then
   Application.Goto ActiveWorkbook.Sheets(1).Range("A1")
 End If
End Sub