[vba] [excel] active directory van een .xlt

Pagina: 1
Acties:

  • Bzzje
  • Registratie: November 2000
  • Laatst online: 24-06 14:55

Bzzje

Negeren is vooruitzien

Topicstarter
Ik heb een .xlt bestand en een .ini bestand in een directory op het netwerk.
het excel bestand moet de .inin uitlezen waar de database staat waarmee hij moet connecten.

Onder een .xls bestand werkt onderstaand voorbeeldsubje prima, maar wanneer ik gebruik wil maken van een excel template (xlt) dan maakt hij natuurlijk een nieuw bestand op basis van die template. en die zit natuurlijk niet in dezelfde directory als de .xlt

code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
Dim fiets As String
Dim mdbinput As String

fiets = ThisWorkbook.Path & "\hallo.ini"
MsgBox fiets2
MsgBox Dir(fiets)
fiets = Dir(fiets)
If fiets = "hallo.ini" Then
    Open fiets For Input As #1
    Line Input #1, mdbinput
    Close
MsgBox mdbinput
End If
end sub


aangezien zowel de lokatie waar de .xlt staat als de lokatie van de database nogal eens kunnen veranderen (lokale netwerken in verschillende landen) en ik niet voor iedere wijziging de code open wil (laten) trekken moet hij dus dat ini filetje naast zich hebben staan.

Hoe kan dan ik het pad dan vinden van de opgestartte .xlt?

Negeren is vooruitzien