|
▼勝子 さん:
>日付を固定しない方法ってものはあるのでしょうか??
については、↓ですね。
▼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"
|
|