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
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?
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