Excel VBA質問箱 IV

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

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


5795 / 13645 ツリー ←次へ | 前へ→

【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 お礼[未読]

【48814】日々変わるファイルの読み込み
質問  Yowei  - 07/5/10(木) 13:14 -

引用なし
パスワード
   初めて書き込みさせて頂きます。よろしくお願いします。
早速ではありますが質問です。

毎日、とあるデータを入力し
Public Sub 転記()

Dim MyF As String

MyF = "\\フォルダの場所" & "\" & _
Format(Date, "yymmdd") & "入力Data.csv"
Worksheets("打込み用").Copy
With ActiveWorkbook
  .SaveAs MyF, xlCSV
  .Close False
End With

End Sub

このようなVBAでCSV加工し、毎日付事にあるフォルダに
保存しております。

そこで前日のデータを別のエクセルファイルのシートに
追加したいのですが、どのようにすれば良いのでしょうか?
日付が変わればまたそのシートは削除し前日のデータだけ
シート追加したいです。よろしくお願いします。

【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

で、どうでしょーか ?

【48820】Re:日々変わるファイルの読み込み
発言  Kein  - 07/5/10(木) 15:08 -

引用なし
パスワード
   念のため言っておきますが、UPしたコードはそのままでは使えません。
自分でよく調べて、変更すべきところは変更するように。

【48822】Re:日々変わるファイルの読み込み
発言  Jaka  - 07/5/10(木) 15:23 -

引用なし
パスワード
   別安。
小出しみたいな感じですみません。手法だけです。

Dim データ As String, ファイル名 As String
ファイル名 = "CSVファイルのフルパス名"
'CSVファイルを追加形式で開く
Open ファイル名 For Append As #1

'++++ここから

ここで変数データに追加したい1行分のデータを自分で作成加工。

'データを最終行に書き込む(勝手に最終行に追加されます。)
Print #1, データ

'+++++ここまでがループで、データ作成、書き込みの繰り返し。

'終わったら閉じる
Close #1

【48826】Re:日々変わるファイルの読み込み
お礼  Yowei  - 07/5/10(木) 19:01 -

引用なし
パスワード
   ▼ Keinさん Jakaさん
いろいろとありがとうございます。

Keinさん
作成依頼みたいな格好になっちゃって・・・
質問の仕方が悪かったです。すいませんでした。
しかし、まだまだ初心者な私は10%も理解出来ません。
このソースが理解出きる頃 またここに来させて
頂きます。背伸びしてすいませんでしたm(__)m

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