T o create files in the folder where the workbook is located Thisworkbook.Path is the preferred choice, but that gives errors with Office/365 and onedrive. In my case Thisworkbook.Path= "https://d.docs.live.net/beccd3471f9cbf60/Documenten/code snippets/Symbol table" local (in my laptop) this is "D:\OneDrive\Documenten\code snippets\Symbol table" replace(mid(Thisworkbook.Path,instr(Thisworkbook.Path,split(Thisworkbook.Path,"/")(4))),"/","\") results in "Documenten\code snippets\Symbol table" Now prepend "D:\OneDrive" (everything in this folder is synced with onedrive) and I get a path I can use with fso.OpenTextFile Is this "D:\OneDrive" value retrievable somewhere? And to make this work with different exel versions (2013 and later) how to code that?

If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

ThisWorkbook.Path value running Office/365 and onedrive

Thread starter ask2tsp
Start date Aug 25, 2018
Tags

fso.opentextfile office 365 onedrive thisworkbook.path

ask2tsp

Well-known Member

Aug 25, 2018

T
o create files in the folder where the workbook is located
Thisworkbook.Path is the preferred choice, but that gives errors with Office/365 and onedrive.
In my case Thisworkbook.Path=

"https://d.docs.live.net/beccd3471f9cbf60/Documenten/code snippets/Symbol table"

local (in my laptop) this is

"D:\OneDrive\Documenten\code snippets\Symbol table"

Code:

replace(mid(Thisworkbook.Path,instr(Thisworkbook.Path,split(Thisworkbook.Path,"/")(4))),"/","\")

results in

"Documenten\code snippets\Symbol table"

Now prepend "D:\OneDrive" (everything in this folder is synced with onedrive)
and I get a path I can use with fs

penTextFile

Is this "D:\OneDrive" value retrievable somewhere?
And to make this work with different exel versions (2013 and later) how to code that?