Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

40501 / 76732

←次へ　｜　前へ→


	【41329】Excel2003

pikuミン

- 06/8/6(日) 12:03 -


	引用なし

	パスワード

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"
に保存するにはどうすればいいのでしょうか？

0 hits

▼

【41329】Excel2003 pikuミン 06/8/6(日) 12:03

≪