初めまして。
マクロ超初心者です。まだまだ勉強中でして自分で作るのは困難です。しかし、来月には必要なので… よろしくお願いします!
エクセル2000で以下のマクロを作成したいです。
１．フォルダ内のCSVファイルを開き、中のデータをひとつにまとめる。
（フォルダ名とファイル名、ファイル数はその時によって変わってきます。ファイル数はだいたい10個くらいです。ひとつのデータは20列50行くらいで列の項目を基準にまとめたいです。）
２．列を1列目に挿入し、2列目と3列目のデータを1列目に統合する。
３．1列目のデータを使用し、重複を調べる。重複がある場合はどちらかひとつを削除する。（できれば4列目のデータを比較し数値が少ないほうを削除したいです。）
ファイルを開くところまでは検索して探し当てたのですが、ファイル名が決まっていないことが難しく詰まってしまいます。
Sub OpenAllBooks()
Dim filename As String
Dim openedbook As Workbook
Dim isbookopen As Boolean
filename = Dir(ThisWorkbook.Path & "\*.csv")
Do While filename <> ""
isbookopen = False
For Each openedbook In Workbooks
If openedbook.Name = filename Then
isbookopen = True
Exit For
End If
Next
If isbookopen = False Then
Workbooks.Open (ThisWorkbook.Path & "\" & filename)
End If
filename = Dir()
Loop
End Sub
詳しい方よろしくお願いします！
お礼
ありがとうございます！ 質問する場所を迷ったのですが、やっぱりそちらの方が良かったのですね。 ファイルを開くまではなんとかだいじょうぶなのですが、そこからファイル名が決まっていないファイルをいかに扱うかが謎でして… ファイルを開いてデータをコピーし、マクロを実行したファイルに貼り付けていこうと思ったのですが、なかなかうまくいかず…。。。 Visual Basicで質問してきます。ありがとうございました！