|
こんにちは。かみちゃん です。
>毎週つけるという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週目という判断はしていません。
また、実際の保存部分は、書いていません。
ご自身で「マクロの記録」で記録して確かめてほしいからです。
|
|