Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy application path to clipboard
I'm simplifying the way we shoot Excel files (and other office
documents) around our office. Ideally I thought I'd just write a little macro tied to a button to copy/paste the full document path to the clipboard where we'd paste that into an email. Object model suggests something this method: Workbook.ActiveWorkbook.FullNameURLEncoded Unfortunately, FullNameURLEncoded gives the mapped drive instead of the UNC - i.e., z:\work\file.xlsx instead of \\server\id\work \file.xlsx. Any suggestions on simple sharing full document paths with UNC? And - a related annoyance - Office 2003 made it simple to include the HTML path to the toolbar; anybody shed insight on adding Document Location to the Quick Access Toolbar (as I've done through Word Options Customize) through a macro? Thanks, Jeff |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy application path to clipboard
try this as the full path of your file:
ActiveWorkbook.Path & "\" & ActiveWorkbook.Name |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy application path to clipboard
Mm - looks like using the WshNetwork Object is the way to get the full
path - hence not exactly an Excel VBA function, you might say. People trying to do the same thing: http://www.spyjournal.biz/exceltips/...tranet-to.html Cool code inventorying UNCs curried from: http://www.dailydoseofexcel.com/arch...6/21/unc-path/ -------------------------------------- Sub NetworkMapDrive() Dim WshNetwork As Object Dim oDrives As Object Dim DrivesStr As String Dim i As Integer Set WshNetwork = CreateObject("WScript.Network") Set oDrives = WshNetwork.EnumNetworkDrives DrivesStr = "Network drive Mappings:" & Chr(13) For i = 0 To oDrives.Count - 1 Step 2 DrivesStr = DrivesStr & "Drive " & oDrives.Item(i) & " = " & oDrives.Item(i + 1) & Chr(13) Next MsgBox DrivesStr End Sub -------------------------------------- Thanks, jn On Mar 9, 11:05*am, docksi wrote: try this as the full path of your file: ActiveWorkbook.Path & "\" & ActiveWorkbook.Name |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Application Path | Excel Programming | |||
function: copy current path or filename to clipboard (XLS) | Excel Programming | |||
Excel <- Application clipboard data transfer | Excel Programming | |||
set path for Application.Run | Excel Programming | |||
Application.Path | Excel Programming |