Excel VBA質問箱 IV

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

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


40505 / 76736 ←次へ | 前へ→

【41329】Excel2003
質問  pikuミン E-MAIL  - 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 質問
【41330】Re:Excel2003 Blue 06/8/6(日) 12:52 回答
【41331】Re:Excel2003 pikuミン 06/8/6(日) 12:57 お礼
【41332】Re:Excel2003 Blue 06/8/6(日) 12:57 回答

40505 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free