Excel VBA質問箱 IV

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

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


25886 / 76732 ←次へ | 前へ→

【56183】Re:シートをまとめる→データを保存する
発言  かみちゃん  - 08/6/8(日) 9:11 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>毎週つけるという1定の規則はあります。
>ex:)
>1週目(Ran 08Jun.xls)→2週目(Ran 15Jun.xls)→3週目(Ran 22Jun.xls)
>という風に。

4週目、5週目はどうなるのですか?
また、Junは、6月だと思いますが、7月もRan 08Jul.xlsのような感じなのでしょうか?
月の部分や何週目かの判断は、何をもってするのですか?
マクロ実行時のパソコンの日付ですか?

>これをデスクトップ上に保存したいというのが理想です。

デスクトップパスは、パソコンやログインユーザー名によって異なるので、
以下のようなコードで取得できます。
CreateObject("Wscript.Shell").SpecialFolders("Desktop")

その他特殊フォルダの取得は、以下が参考になると思います。
http://www.moug.net/tech/exvba/0060045.htm
http://www.k1simplify.com/vba/tipsleaf/leaf233.html
http://hanatyan.sakura.ne.jp/vbhlp/special.htm

なお、以下のコードは、マクロ実行時の日付により、ファイル名を生成する方法
のサンプルです。

Sub Sample()
 Dim objWsh   As Object
 Dim strPath As String
 Dim strFileName As String
 
 Set objWsh = CreateObject("Wscript.Shell")
 'デスクトップパスの取得
 strPath = objWsh.SpecialFolders("Desktop")
 
 '保存ファイル名の生成
 strFileName = strPath & "\Ran " & Format(Date, "ddmmm") & ".xls"
 MsgBox "保存ファイル名は" & vbCrLf & " " & strFileName
End Sub

1週目、2週目という判断はしていません。
また、実際の保存部分は、書いていません。
ご自身で「マクロの記録」で記録して確かめてほしいからです。

0 hits

【56173】シートをまとめる→データを保存する らん 08/6/7(土) 6:52 質問
【56175】Re:シートをまとめる→データを保存する マクロマン 08/6/7(土) 9:24 発言
【56181】Re:シートをまとめる→データを保存する らん 08/6/8(日) 6:45 回答
【56176】Re:シートをまとめる→データを保存する かみちゃん 08/6/7(土) 9:47 発言
【56182】Re:シートをまとめる→データを保存する らん 08/6/8(日) 6:58 回答
【56183】Re:シートをまとめる→データを保存する かみちゃん 08/6/8(日) 9:11 発言

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