Excel VBA質問箱 IV

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

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


33139 / 76734 ←次へ | 前へ→

【48819】Re:日々変わるファイルの読み込み
回答  Kein  - 07/5/10(木) 15:05 -

引用なし
パスワード
   Sub YDay_DataCopy()
  Dim Cnt As Integer
  Dim Snm As String, MyF As String
 
  With Application
   .ScreenUpdating = False
   .DiplayAlerts = False
  End With
  Snm = Format(Date - 1, "yymmdd") & "入力Data"
  MyF = "\\フォルダの場所" & "\" & Snm & ".csv"
  If Dir(MyF) = "" Then
   MsgBox "前日のデータファイルがありません", 48
   GoTo ELine
  End If
  Cnt = Worksheets.Count
  With Worksheets(Cnt)
   If .Name = Snm Then
     MsgBox "昨日のデータは既に取り込まれています", 48
     GoTo ELine
   ElseIf Right$(.Name, 6) = "入力Data" Then
     .Delete: Cnt = Cnt - 1
   End If
  End If
  Workbooks.Open MyF
  With ActiveWorkbook
   .Worksheets(1).Copy After:= _
   ThisWorkbook.Worksheets(Cnt)
   .Close False
  End With
ELine:
  With Application
   .ScreenUpdating = True
   .DiplayAlerts = True
  End With
End Sub

で、どうでしょーか ?

4 hits

【48814】日々変わるファイルの読み込み Yowei 07/5/10(木) 13:14 質問
【48819】Re:日々変わるファイルの読み込み Kein 07/5/10(木) 15:05 回答
【48820】Re:日々変わるファイルの読み込み Kein 07/5/10(木) 15:08 発言
【48822】Re:日々変わるファイルの読み込み Jaka 07/5/10(木) 15:23 発言
【48826】Re:日々変わるファイルの読み込み Yowei 07/5/10(木) 19:01 お礼

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