Excel VBA質問箱 IV

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

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


67009 / 76734 ←次へ | 前へ→

【14284】Re:CSVファイルを読み込む
回答  ちゃっぴ  - 04/5/25(火) 15:20 -

引用なし
パスワード
   他の板で似たような質問の際、作成したサンプルです。

ちょっと改造すれば出来るかと思います。
ミソは日付を日付型(Date型)へ変換一度変換することです。

Sub LoopSample()
  Dim datDataDate As Date
  Dim strFileName As String
  
  '日付型(Date型)へ変換
  datDataDate = CDate(YEAR1 & "/" & MONTH1 & "/" & DAY1)
  
  For i = 1 To DayCount 'DayCountまでループ(日指定)
    'ファイル名生成
    strFileName = PASS1 & Format$(datDataDate, "yyyymmdd") & ".xls
"
    
    'CSV読込処理を記述
    
    datDataDate = datDataDate + 1 '1日進む
  Next i
End Sub

後は、自分で考えましょう!
1 hits

【14281】CSVファイルを読み込む アスキー 04/5/25(火) 14:45 質問
【14284】Re:CSVファイルを読み込む ちゃっぴ 04/5/25(火) 15:20 回答
【14291】Re:CSVファイルを読み込む アスキー 04/5/25(火) 15:43 発言
【14294】Re:CSVファイルを読み込む ちゃっぴ 04/5/25(火) 15:51 発言
【14295】Re:CSVファイルを読み込む アスキー 04/5/25(火) 16:07 質問
【14299】Re:CSVファイルを読み込む ちゃっぴ 04/5/25(火) 16:26 回答
【14306】Re:CSVファイルを読み込む アスキー 04/5/25(火) 17:01 回答
【14307】Re:CSVファイルを読み込む ちゃっぴ 04/5/25(火) 17:11 回答
【14310】Re:CSVファイルを読み込む アスキー 04/5/25(火) 18:16 発言
【14312】Re:CSVファイルを読み込む [名前なし] 04/5/25(火) 18:59 回答
【14315】Re:CSVファイルを読み込む Hirofumi 04/5/25(火) 21:05 回答
【14317】Re:CSVファイルを読み込む Hirofumi 04/5/25(火) 21:44 回答
【14399】Re:CSVファイルを読み込む アスキー 04/5/28(金) 9:11 発言
【14517】Re:CSVファイルを読み込む アスキー 04/5/31(月) 17:50 質問
【14527】Re:CSVファイルを読み込む Hirofumi 04/5/31(月) 20:33 発言
【14536】Re:CSVファイルを読み込む アスキー 04/6/1(火) 1:33 質問
【14562】Re:CSVファイルを読み込む Hirofumi 04/6/1(火) 22:43 回答
【14573】Re:CSVファイルを読み込む アスキー 04/6/2(水) 10:11 質問
【14598】Re:CSVファイルを読み込む アスキー 04/6/2(水) 17:38 発言
【14603】Re:CSVファイルを読み込む Hirofumi 04/6/2(水) 21:11 回答
【14632】Re:CSVファイルを読み込む アスキー 04/6/3(木) 12:42 お礼

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