%Username%
Tengo un problemilla con el enrutamiento de una macro echa en vb de excel y que cree en el pn drive.
La macro es la siguiente
Sub Macro2()
'
' Macro2 Macro
' Macro grabada el 28/05/2010 por José Luis
'
' Acceso directo: CTRL+b
'
Range("C9").Select
Application.ScreenUpdating = False
ChDir "D:\PLANTILLAS\yamaha\B_quilla"
Workbooks.Open Filename:="D:\PLANTILLAS\Yamaha\B_quilla\DIA 01 B_quilla.xls"
Range("G9:I320").Select
Selection.Copy
Windows("YAMAHA MENSUAL .xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Windows("DIA 01 B_quilla.xls").Activate
ActiveWindow.Close
Range("N16").Select
Range("F9").Select
...
En el pen funciona correctamente. Si la paso a mis documentos el enrutamiento par ami pc seria el siguiente:
ChDir "C:\Documents and Settings\Jose Luis\Mis documentos\PLANTILLAS\Yamaha" y funciona la macro
pero quisiera que funcionara una vez copiada en otro pc con la carpeta mis documentos en c: del cual desconozco el nombre del pc y he probado así:
ChDir "C:\Documents and Settings\%Username%\Mis documentos\PLANTILLAS\Yamaha"
Y no consigo nada
¿Me podríais ayudar con esto? Estoy aprendiendo y os agradeeceria que me pusierais la linea completa para que funcionara
La macro es la siguiente
Sub Macro2()
'
' Macro2 Macro
' Macro grabada el 28/05/2010 por José Luis
'
' Acceso directo: CTRL+b
'
Range("C9").Select
Application.ScreenUpdating = False
ChDir "D:\PLANTILLAS\yamaha\B_quilla"
Workbooks.Open Filename:="D:\PLANTILLAS\Yamaha\B_quilla\DIA 01 B_quilla.xls"
Range("G9:I320").Select
Selection.Copy
Windows("YAMAHA MENSUAL .xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Windows("DIA 01 B_quilla.xls").Activate
ActiveWindow.Close
Range("N16").Select
Range("F9").Select
...
En el pen funciona correctamente. Si la paso a mis documentos el enrutamiento par ami pc seria el siguiente:
ChDir "C:\Documents and Settings\Jose Luis\Mis documentos\PLANTILLAS\Yamaha" y funciona la macro
pero quisiera que funcionara una vez copiada en otro pc con la carpeta mis documentos en c: del cual desconozco el nombre del pc y he probado así:
ChDir "C:\Documents and Settings\%Username%\Mis documentos\PLANTILLAS\Yamaha"
Y no consigo nada
¿Me podríais ayudar con esto? Estoy aprendiendo y os agradeeceria que me pusierais la linea completa para que funcionara
1 respuesta
Respuesta de sir_drake
1