Excel VBA質問箱 IV

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

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


10344 / 13644 ツリー ←次へ | 前へ→

【22368】デスクトップに保存したい igusukei 05/2/17(木) 9:26 質問[未読]
【22370】Re:デスクトップに保存したい IROC 05/2/17(木) 9:44 回答[未読]
【22377】Re:デスクトップに保存したい igusukei 05/2/17(木) 10:58 お礼[未読]

【22368】デスクトップに保存したい
質問  igusukei  - 05/2/17(木) 9:26 -

引用なし
パスワード
   作成したファイルをデスクトップに保存しようと、マクロの記録を使いました。この時は Win98 でしたので、以下のようなマクロが出来ました。

  ChDir "C:\WINDOWS\デスクトップ"
  ActiveWorkbook.SaveAs Filename:="C:\WINDOWS\デスクトップ\123.xls", _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False
実際にこれで WinXP で試したところエラーで動作せず、次に WinXP でマクロの記録で実行したら以下の様なマクロで出来ました。

  ChDir "C:\Documents and Settings\ユーザー名\デスクトップ"
  ActiveWorkbook.SaveAs Filename:= _
    "C:\Documents and Settings\ユーザー名\デスクトップ\123.xls", FileFormat:=xlNormal, _
    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
    CreateBackup:=False

そこで Win のバージョンに依存しない方法はありますでしょうか?
どなたかご教授お願いします。よろしく。

【22370】Re:デスクトップに保存したい
回答  IROC  - 05/2/17(木) 9:44 -

引用なし
パスワード
   wshを利用します。

msgbox CreateObject("WScript.Shell").SpecialFolders("Desktop")

【22377】Re:デスクトップに保存したい
お礼  igusukei  - 05/2/17(木) 10:58 -

引用なし
パスワード
   ▼IROC さん:
早速の回答ありがとうございます。

>wshを利用します。
>
>msgbox CreateObject("WScript.Shell").SpecialFolders("Desktop")

うまくできました、大変よろこんでいます。(^o^)

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