Variabele Directory

[Joske2000]

Hallo,

Ik heb een programma op mijn PC staan die een aantal data verwerkt. Deze verwijst nu naar een vaste directory op mijn PC.
Ik probeer deze variabel te maken, daar een aantal collega's deze toepassing ook willen gebruiken.
Ik heb geprobeerd om dit te doen met

Application.ActiveWorkbook.Path & "\" & "einde bezoek.xls"

maar ik krijg het niet in orde.

De code voor de update van de gegevens is de volgende :

Private Sub CmdImport_Click()
    With ActiveSheet.QueryTables.Add(Connection:=Array( _
        "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\Documents and Settings\Jos\Desk" _
        , _
        "\erm\einde bezoek.xls;Mode=Share Deny Write;Extended Properties=""HDR=YES;"";Jet OLEDB:System database="""";Jet OLEDB:Registry " _
        , _
        "Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=35;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk " _
        , _
        "Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:E" _
        , _
        "ncrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=" _
        , "False"), Destination:=Range("A2"))
        .CommandType = xlCmdTable
        .CommandText = Array("Sheet1$")
        .Name = "einde bezoek"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceDataFile = _
        "C:\Documents and Settings\Jos\Desk\erm\einde bezoek.xls"
        .Refresh BackgroundQuery:=False
    End With

End Sub

Alvast bedankt voor het meedenken.

Jos

 

[Roncancio]

Wellicht heb je hier iets aan.

Sub FlexibeleDir()
B = Application.GetOpenFilename("Excel bestanden (*.xls), *.xls")
If Not B = False Then Workbooks.Open B
End Sub

Bij het starten van de macro verschijnt het Verkenner menu.
Zoek hier naar (eventueel) directory en bestand en klik op openen.
Het bestand wordt dan geopend.

Met vriendelijke groet,


Roncancio

 

[Joske2000]

Hi Roncancio,

Vraag uit het oog verloren

Bedankt voor je oplossing, hier kan ik verder mee !

Thx,

Joske