Excel VBA質問箱 IV

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

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


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

25886 / 76732

←次へ　｜　前へ→


	【56183】Re:シートをまとめる→データを保存する

かみちゃん - 08/6/8(日) 9:11 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

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

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

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

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

その他特殊フォルダの取得は、以下が参考になると思います。
ｈｔｔｐ://www.moug.net/tech/exvba/0060045.htm
ｈｔｔｐ://www.k1simplify.com/vba/tipsleaf/leaf233.html
ｈｔｔｐ://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