|
VBAで作成したシートをデスクトップの保存の方法を教えて下さい。
VBA利用者&利用端末が異なる為、使用環境に応じたプログラムを組みたいのですが
以下の方法だと"C:\Documents and Settings\ 〜ログインユーザ名〜
で保存されてしまいます。
'*******************************************************
Option Explicit
Private Declare Function GetUserName Lib "ADVAPI32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
sub test ()
Dim myName As String
Dim num As Long
Dim Rtn As Long
Dim sPath As string
'ログインユーザー名取得
myName = String(250, Chr(0))
num = Len(myName)
Rtn = GetUserName(myName, num)
'Pathを指定
sPath = "C:\Documents and Settings\" & myName & _
"\デスクトップ\" & "test.xls"
'指定したPathに保存
ActiveWorkbook.SaveAs Filename:=sPath
End Sub
'*******************************************************
"C:\Documents and Settings\" _
& myName & "\デスクトップ\" & "test.xls"
に保存するにはどうすればいいのでしょうか?
|
|