Beste allen,
Ik heb op een andere manier dit ook al eens proberen te vragen, maar was toen blijkbaar niet helder genoeg. Inmiddels heb ik mij er wat verder in verdiept.
Wat wil ik: ik heb een programma op diverse pc's. Deze pc's gebruiken helaas een ander usersysteem en daardoor is de filenaam- rooting steeds net iets anders. Als ik nu snel iets moet aanpassen moet ik steeds al die filenamen zeer zorgvuldig doornemen. Inmiddels heb ik het volgende gemaakt. de filenamen die de macro's gebruiken worden samengesteld uit (celwaarde bv g1) + filenaam. In de celwaarde staat de root bv:C:\Users\Gebruiker en daarna komt de naam (bv. datum-achternaam). Op de andere computers moet G1 een andere waarde krijgen, bv. c:\users\dirk\ .
Ik heb nu een invulmatrix gemaakt met de roots en de pc's en als ik een pc selecteer veranderen alle root-namen in de betreffende cellen. Prachtig , het werkt dus ik ben klaar. Maar ik wil het nog mooier :
ipv. : ActiveWorkbook.SaveAs FileName:=Range("G1") & Range("c5") & "_" & Range("c11").Value & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
wil ik voor Range ("G1") direct een naam gebruiken bv. werkordernaam en G1 is dan "werkordernaam"en staat als zodanig in mijn bibliotheek. Maar hoe gebruik ik werkordernaam dan in de VBA code ?
ActiveWorkbook.SaveAs FileName:=Range("werkordernaam") & Range("c5") & "_" & Range("c11").Value & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
(b) leek niet te werken. Terwijl ik dacht dat het zo zou kunnen.
Groeten Dirk
Ik heb op een andere manier dit ook al eens proberen te vragen, maar was toen blijkbaar niet helder genoeg. Inmiddels heb ik mij er wat verder in verdiept.
Wat wil ik: ik heb een programma op diverse pc's. Deze pc's gebruiken helaas een ander usersysteem en daardoor is de filenaam- rooting steeds net iets anders. Als ik nu snel iets moet aanpassen moet ik steeds al die filenamen zeer zorgvuldig doornemen. Inmiddels heb ik het volgende gemaakt. de filenamen die de macro's gebruiken worden samengesteld uit (celwaarde bv g1) + filenaam. In de celwaarde staat de root bv:C:\Users\Gebruiker en daarna komt de naam (bv. datum-achternaam). Op de andere computers moet G1 een andere waarde krijgen, bv. c:\users\dirk\ .
Ik heb nu een invulmatrix gemaakt met de roots en de pc's en als ik een pc selecteer veranderen alle root-namen in de betreffende cellen. Prachtig , het werkt dus ik ben klaar. Maar ik wil het nog mooier :
ipv. : ActiveWorkbook.SaveAs FileName:=Range("G1") & Range("c5") & "_" & Range("c11").Value & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
wil ik voor Range ("G1") direct een naam gebruiken bv. werkordernaam en G1 is dan "werkordernaam"en staat als zodanig in mijn bibliotheek. Maar hoe gebruik ik werkordernaam dan in de VBA code ?
ActiveWorkbook.SaveAs FileName:=Range("werkordernaam") & Range("c5") & "_" & Range("c11").Value & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
(b) leek niet te werken. Terwijl ik dacht dat het zo zou kunnen.
Groeten Dirk
Laatst bewerkt: