Excel VBA質問箱 IV

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

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


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

【31479】日付をつけて保存したファイルを使用する... 勝子 05/11/22(火) 17:25 質問[未読]
【31480】Re:日付をつけて保存したファイルを使用す... Jaka 05/11/22(火) 17:40 回答[未読]
【31514】Re:日付をつけて保存したファイルを使用す... 勝子 05/11/24(木) 11:22 質問[未読]
【31481】Re:日付をつけて保存したファイルを使用す... ichinose 05/11/22(火) 17:44 発言[未読]
【31483】Re:日付をつけて保存したファイルを使用す... 勝子 05/11/22(火) 17:59 質問[未読]
【31484】Re:日付をつけて保存したファイルを使用す... ichinose 05/11/22(火) 18:23 発言[未読]
【31513】Re:日付をつけて保存したファイルを使用す... 勝子 05/11/24(木) 11:12 質問[未読]
【31517】Re:日付をつけて保存したファイルを使用す... Jaka 05/11/24(木) 13:00 回答[未読]
【31524】Re:日付をつけて保存したファイルを使用す... 勝子 05/11/24(木) 14:41 お礼[未読]

【31479】日付をつけて保存したファイルを使用する...
質問  勝子  - 05/11/22(火) 17:25 -

引用なし
パスワード
   こんにちは
初歩的なことなのかもしれないのですが教えてください。

VBAでファイル名にその日の日付をつけて保存をさせました。
  Fname = "○○○在庫表" & m & d & ".xls"
 m=月
 d=日
 

それを今度は、
別なファイルで上記のファイルを使おうとしているのですが
1度保存された数字(日付)はこの時点で文字と見なされているのですよね?
このファイルを使うにはどういった方法がいいのでしょうか?

よろしくお願いします

【31480】Re:日付をつけて保存したファイルを使用...
回答  Jaka  - 05/11/22(火) 17:40 -

引用なし
パスワード
   こんにちは。
▼勝子 さん:
>VBAでファイル名にその日の日付をつけて保存をさせました。
>  Fname = "○○○在庫表" & m & d & ".xls"
> m=月
> d=日
ブックが開いている状態なら
Workbooks(Fname)
で、使えます。
解釈が違ったかな?

【31481】Re:日付をつけて保存したファイルを使用...
発言  ichinose  - 05/11/22(火) 17:44 -

引用なし
パスワード
   ▼勝子 さん:
こんにちは。

>初歩的なことなのかもしれないのですが教えてください。
>
>VBAでファイル名にその日の日付をつけて保存をさせました。
  Fname = "○○○在庫表" & format(date,"mmdd") & ".xls"

と記述するのと同じと言うことでしょうか?

だとしたら、2005/11/22のブック名は

Fname ="○○○在庫表" & Format(#11/22/2005#, "mmdd") & ".xls"

とか

"○○○在庫表" & Format("2005/11/22", "mmdd") & ".xls"

でよいと思います。

確認してください。

【31483】Re:日付をつけて保存したファイルを使用...
質問  勝子  - 05/11/22(火) 17:59 -

引用なし
パスワード
   ▼ichinose さん:
ありがとうございます

>Fname = "○○○在庫表" & format(date,"mmdd") & ".xls"
>と記述するのと同じと言うことでしょうか?
 ・・・・なのでしょうか?
>
>Fname ="○○○在庫表" & Format(#11/22/2005#, "mmdd") & ".xls"
>とか
>"○○○在庫表" & Format("2005/11/22", "mmdd") & ".xls"
>
毎日作成するファイルなので日付を固定させることは出来ないのですが
確認してみます。

【31484】Re:日付をつけて保存したファイルを使用...
発言  ichinose  - 05/11/22(火) 18:23 -

引用なし
パスワード
   ▼勝子 さん:


>
>>Fname = "○○○在庫表" & format(date,"mmdd") & ".xls"
>>と記述するのと同じと言うことでしょうか?
> ・・・・なのでしょうか?
↑のような方法で名前を指定したとすると


>>Fname ="○○○在庫表" & Format(#11/22/2005#, "mmdd") & ".xls"
>>とか

2005/11/22に作成したブックが見たいよ という要求があったときは

Sub test2()
 Dim fnmdate As Variant
 fnmdate = Application.InputBox("見たいブックの年月日を入力してね")
 If TypeName(fnmdate) <> "Boolean" And IsDate(fnmdate) Then
   Fname = "○○○在庫表" & Format(fnmdate, "mmdd") & ".xls"
   MsgBox "開くブック名は " & Fname & " です"
   End If
End Sub

のようにすると良いと思いますよ!!

【31513】Re:日付をつけて保存したファイルを使用...
質問  勝子  - 05/11/24(木) 11:12 -

引用なし
パスワード
   ichinose さん
おはようございます
ご教授ありがとうございますm(__)m

書き忘れていた部分があるので追加させていただきます。

○○○在庫表は複数の建物で毎日作成(書式は同一)され、
翌日朝、纏めの集計を行うという使用になるのです。
なので、教えていただいた
 Fname ="○○○在庫表" & Format(#11/22/2005#, "mmdd") & ".xls"
と、メッセージボックスで年月日を入れるtest2
を試したところ 
日付が固定されてしまいファイルが無いとなってしまいました。
日付を固定しない方法ってものはあるのでしょうか??

【31514】Re:日付をつけて保存したファイルを使用...
質問  勝子  - 05/11/24(木) 11:22 -

引用なし
パスワード
   ▼Jaka さん:
返信が遅くなりましてすみません

>ブックが開いている状態なら
>Workbooks(Fname)
>で、使えます。
>解釈が違ったかな?

ブックは閉じたままの状態です。
開かないまま操作をしようと思っています。
それと、日付は毎日作成していくものなので固定できないのです。

【31517】Re:日付をつけて保存したファイルを使用...
回答  Jaka  - 05/11/24(木) 13:00 -

引用なし
パスワード
   ▼勝子 さん:
>日付を固定しない方法ってものはあるのでしょうか??
については、↓ですね。

▼ichinose さん:
>2005/11/22に作成したブックが見たいよ という要求があったときは
>
>Sub test2()
> Dim fnmdate As Variant
> fnmdate = Application.InputBox("見たいブックの年月日を入力してね")
> If TypeName(fnmdate) <> "Boolean" And IsDate(fnmdate) Then
>   Fname = "○○○在庫表" & Format(fnmdate, "mmdd") & ".xls"
>   MsgBox "開くブック名は " & Fname & " です"
>   End If
>End Sub
>
>のようにすると良いと思いますよ!!

>ブックは閉じたままの状態です。
>開かないまま操作をしようと思っています。
>それと、日付は毎日作成していくものなので固定できないのです。

実際、やろうとしていることが見えてこないんですけど....。

昨日
MsgBox "○○○在庫表" & Format(Date - 1, "mmdd") & ".xls"
本日
MsgBox "○○○在庫表" & Format(Date, "mmdd") & ".xls"
明日
MsgBox "○○○在庫表" & Format(Date + 1, "mmdd") & ".xls"

【31524】Re:日付をつけて保存したファイルを使用...
お礼  勝子  - 05/11/24(木) 14:41 -

引用なし
パスワード
   ▼Jaka さん ▼ichinose さん

お二人のご教授で 何とか解決いたしました(*^_^*)
ありがとうございます


>実際、やろうとしていることが見えてこないんですけど....。
 ・・・説明が下手ですみません


今後もまた相談にのって下さい。 よろしくお願いいたします

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