Excel VBA質問箱 IV

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

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


21515 / 76732 ←次へ | 前へ→

【60612】Re:日付をつけてファイル名を保存したい
質問  初心者  - 09/3/5(木) 9:55 -

引用なし
パスワード
   皆さん返信ありがとうございます。

下記のようにソースを修正したところ、一応日付(時刻も)のついたファイルを出力することができました。

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

1 hits

【60592】日付をつけてファイル名を保存したい 初心者 09/3/4(水) 10:24 質問
【60596】Re:日付をつけてファイル名を保存したい 超初心者 09/3/4(水) 10:53 発言
【60597】Re:日付をつけてファイル名を保存したい つん 09/3/4(水) 10:57 発言
【60598】Re:日付をつけてファイル名を保存したい kanabun 09/3/4(水) 11:03 発言
【60612】Re:日付をつけてファイル名を保存したい 初心者 09/3/5(木) 9:55 質問
【60613】Re:日付をつけてファイル名を保存したい Jaka 09/3/5(木) 10:17 発言
【60616】Re:日付をつけてファイル名を保存したい つん 09/3/5(木) 10:23 発言
【60617】Re:日付をつけてファイル名を保存したい Jaka 09/3/5(木) 10:40 発言
【60618】Re:日付をつけてファイル名を保存したい つん 09/3/5(木) 10:50 発言
【60614】Re:日付をつけてファイル名を保存したい つん 09/3/5(木) 10:18 回答
【60615】Re:日付をつけてファイル名を保存したい 初心者 09/3/5(木) 10:22 お礼

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