Excel VBA質問箱 IV

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

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


43327 / 76732 ←次へ | 前へ→

【38455】Re:複数のCSVファイルを一つのブックに
回答  かみちゃん  - 06/6/3(土) 11:14 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>今できているコードをアップすることはできませんか?

本当は、makiさんがどこまでできているのかをご提示いただきたいのですが、
Hirofumiさんからコードの提示もあったので、私も「マクロの記録」とヘルプ
の引用で作れるコードを提示させていただきます。

Hirofumiさんのコードは、とてもすばらしいコードで、過去何度となく同様の
コードを掲示板でご紹介されていたので、後ほど、過去ログを紹介しようとし
ていましたが、少々長いので、解析・勉強され理解されるのは大変ではなかろ
うかと思います。僭越ながら、私のコードも何かのお役に立てれば幸いです。

Sub Macro1()
 Dim MyPath As String
 Dim MyName As String
 Dim strCsvFileName As String
 Dim rngPaste As Range

 MyPath = ThisWorkbook.Path
 MyName = Dir(MyPath & "\*.csv")
 Do While MyName <> ""
  strCsvFileName = MyPath & "\" & MyName
  
  '貼付先を取得(このブックのアクティブシートに貼付け)
  Set rngPaste = ThisWorkbook.ActiveSheet.Range("A65536").End(xlUp)
  If rngPaste.Value <> "" Then
   Set rngPaste = rngPaste.Offset(1)
  End If
  
  'Csvファイルを開く
  Workbooks.Open strCsvFileName
  
  '特定のファイルの場合は、1行目を削除
  If MyName = "A000001.csv" Then
   Rows(1).Delete Shift:=xlUp
  End If
  
  '読み込んだCSVファイルを貼付け先に貼付けて閉じる
  Range("A1").CurrentRegion.Copy rngPaste
  ActiveWorkbook.Close False
  
  MyName = Dir
 Loop
End Sub

3 hits

【38407】複数のCSVファイルを一つのブックに maki 06/6/2(金) 8:08 発言
【38408】Re:複数のCSVファイルを一つのブックに かみちゃん 06/6/2(金) 8:19 発言
【38409】Re:複数のCSVファイルを一つのブックに かみちゃん 06/6/2(金) 8:23 発言
【38445】Re:複数のCSVファイルを一つのブックに maki 06/6/3(土) 8:27 質問
【38451】Re:複数のCSVファイルを一つのブックに かみちゃん 06/6/3(土) 10:21 発言
【38455】Re:複数のCSVファイルを一つのブックに かみちゃん 06/6/3(土) 11:14 回答
【38410】Re:複数のCSVファイルを一つのブックに maki 06/6/2(金) 8:29 回答
【38453】Re:複数のCSVファイルを一つのブックに Hirofumi 06/6/3(土) 10:40 回答
【38458】Re:複数のCSVファイルを一つのブックに かみちゃん 06/6/3(土) 12:03 発言
【38461】Re:複数のCSVファイルを一つのブックに Hirofumi 06/6/3(土) 14:23 発言
【38466】Re:複数のCSVファイルを一つのブックに Kein 06/6/3(土) 15:53 回答
【38467】Re:複数のCSVファイルを一つのブックに Kein 06/6/3(土) 15:56 発言
【38493】Re:複数のCSVファイルを一つのブックに maki 06/6/5(月) 0:19 お礼

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