Excel VBA質問箱 IV

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

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


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

21513 / 76732

←次へ　｜　前へ→


	【60614】Re:日付をつけてファイル名を保存したい

つん - 09/3/5(木) 10:18 -


	引用なし

	パスワード

▼初心者さん：
おはようございます。

>しかし、ファイル名が20090305939.txtというようになります。
>個人的には時刻を0939のように0を頭につけたものを作りたいと考えておるのですが、どのようにすればいいでしょうか？わかる方教えてください。よろしくお願いします。

全部まとめて、Now関数でいいんじゃないやろか？

Format(Now, "yyyymmddhhmm")

これで、一応「200903051017」が取得出来ましたが
分も一桁じゃなかったので、「01」表示になってるか確かめられないけど、
多分大丈夫・・・と、思います。

>　
>■ソース
>　　Dim strFileName As String
>　　Dim intFileNo As Integer
>　　Dim strData As String
>　　Dim log As String
>　　Dim myDate As String
>　　Dim objFS, objFolder, objTS
>　　
>　　
>　　strFileName = "C:\sample.txt"
>　　intFileNo = FreeFile
>　　
>　　Open strFileName For Input As #intFileNo
>　　
>　　Do While Not EOF(intFileNo)
>　　　　Line Input #intFileNo, strData
>　　　　If log = "" Then
>　　　　　 log = strData
>　　　　Else
>　　　　　 log = log & vbNewLine & strData
>　　　　End If
>　　Loop
>　　　
>　　Close intFileNo
>　　
>　　myDate = Format(Date, "yyyymmdd") & Hour(Time) & Minute(Time)
>　　　　　
>　　
>　　Set objFS = CreateObject("Scripting.FileSystemObject")
>　　Set objFolder = objFS.GetFolder("C:\")
>　　Set objTS = objFolder.CreateTextFile(myDate & ".txt")
>　　objTS.WriteLine log
>　　objTS.Close
>
>　　
>End Sub

0 hits

▼

【60592】日付をつけてファイル名を保存したい 初心者 09/3/4(水) 10:24