variabel bestand openen dmv macro

[Wampie]

Hi all,

Ik wil via een opdrachtknop een macro starten die een bepaalde map
(werknemers) opent waaruit een bestand gekozen kan worden om te openen.
Evt. via een dropdown keuzelijst.

Wat is de mooiste oplossing?

Wampie

[Guus]

Beste Wampie,
Is de volgende VBA-macro wat jij bedoelt ?
Guus

Sub DialoogvensterOpenenWorksheet()
' Macro Excelsheet Openen
' Macro recorded by Wampie
Dim FName As Variant

FName = Application.GetOpenFilename _
(filefilter:="Worksheets(*.xls),*.xls,")
If FName = False Then
MsgBox "Je hebt geen naam gelecteerd"
Exit Sub
Else
FName = ActiveWorkbook.Name
MsgBox "Je hebt het bestand " & FName & " geopend"
Exit Sub
End If
End Sub

"Wampie" schreef:

[Wampie]

Guus,

Heb bovenstaande ingevoerd echter:

" (filefilter:="Worksheets(*.xls),*.xls,") " en "MsgBox "Je hebt het
bestand " & FName & " geopend" " zijn rood, en bij uitvoeren geeft hij
bij de eerste de foutmelding: Compileerfout: syntaxisfout.

Moet ik hier ergens de betreffende map invoeren?

Wampie

[Guus]

Wampie,
Kan het soms wezen, dat je een nieuwe regel bent begonnen, zonder dat je hem
aan de vorige gekoppeld het met behulp van het "onderstreepje" ofwel "_" ?

Dus ZO moet ie:
Sub DialoogvensterOpenenWorksheet()
Dim FName As Variant

FName = Application.GetOpenFilename _
(filefilter:="Worksheets(*.xls),*.xls,")
If FName = False Then
MsgBox "Je hebt geen naam gelecteerd"
Exit Sub
Else
FName = ActiveWorkbook.Name

MsgBox "Je hebt het bestand " & FName & " geopend"

Exit Sub
End If
End Sub

en NIET zo:
Sub DialoogvensterOpenenWorksheet()
Dim FName As Variant

FName = Application.GetOpenFilename

(filefilter:="Worksheets(*.xls),*.xls,")
If FName = False Then
MsgBox "Je hebt geen naam gelecteerd"
Exit Sub
Else
FName = ActiveWorkbook.Name

MsgBox "Je hebt het bestand " & FName & " geopend"

Exit Sub
End If
End Sub

Gewoon even kopiëren en plakken, niet overtikken s.v.p.
Groet,
Guus

"Wampie" schreef:

[Jan B.]

Sub DialoogvensterOpenenWorksheet()
Dim FName As Variant
FName = Application.GetOpenFilename _

(filefilter:="C:\Temp\Worksheets(*.xls),*.xls,")

If FName = False Then

MsgBox "Je hebt geen naam geselecteerd"
Exit Sub
Else
Workbooks.Open Filename:=FName
End If
End Sub

--
met vriendelijke groet,
Jan B.

"Guus" schreef: