Workbooks.Open Worksheets("Sheet1").Range("A1").Value & "\" & buf >       c = GFBook.ActiveSheet.UsedRange.Columns.Count + 1 Sub 選択されたPDPファイルを開いて読み込む()   If obj Is Nothing Then Exit Function ・それぞれのファイルの1行目にある項目データを削除したい。 ③わからない場所はどこですか?(ファイル読込、書込など) 3.CCC _   OutTxt.Close()   Dim n  As Long 2枚のCSVファイルをダイアログで各々指定し、保存する2枚のシートを1ブックにまとめたいのですが、うまくいきません。 このコードでは、特に"100個”とか”100行”とかを意識しないで機能します。, GetOpenFilenameのMultiSelect:=trueを使っています。 http://oshiete1.goo.ne.jp/qa4225063.html   Dim n   As Long Dim j     .TextFileCommaDelimiter = True     .TextFileStartRow = sr ThisWorkbook.Activate     .RefreshStyle = xlInsertDeleteCells       With .QueryTables.Add(Connection:="TEXT;" & MyFol & MyFnm, _ (つまり全てのファイルのシート名が異なる)   End With   If Len(fd) = 0& Then Exit Sub '検索条件の設定 200個のcsvファイルの任意の列を取り出し、それを列方向に結合したファイルを作成したいと考えています。, 使用するcsvファイルはすべて100行2列です。 Dim FileNames As Variant  If IsArray(Files) Then    FilesCnt = UBound(Files) Dim lngRow As Long     MyStr = i & "個のファイルを処理しました。" Dim objRE   Set obj = CreateObject("Shell.Application") _ Dim files As FileSearch, FilesCnt As Integer, i As Integer   Dim i  As Long       n = IIf(n = 0, 1, n + n1)   Dim fd As String   For i = 1 To FilesCnt まとめる方法がよくわかりません。 Sub Test1() .AllowMultiSelect = False '複数選択不可 このファイルを1つのエクセルファイルの同一シートに結合(マージ)するvbaがほしいです。 ここで、(できればですが)EXCELにマージするにあたり、1行目のみフィールドの値、2行目以降にそれぞれのcsvの2行目以降データの値を入れていくようにしたいです。 アドバイスを頂けたら嬉しいのですが。 https://excelkamiwaza.com/folder_file_read.html, どなたかVBAに詳しい方で、上記のような対応ができるように編集し直すことができるかたがいらっしゃればご教授いただきたいです。, 初心者かつ拙い日本語でわかりにくい部分もあるかと思いますが、よろしくお願い致します。, teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。, 評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。, 上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。, URLは https://teratail.com/help/question-tips#questionTips3-7 の [リンク] で   CSVQRY = cnt        Do Until cFiles = "" ここが足りてないという指摘が端的に判って助かります! 今、複数のcsvファイルの列方向での結合のマクロを組んでいます。 Sub CSVまとめsample() With ActiveWorkbook   Dim n1  As Long こちらにはレスはつかないかもしれませんが、コードを出しておきます。 Private Function CSVQRY(ByRef ws As Worksheet, _     If i > 1 Then   Dim MyFol As String   FDSELECT = ret 0, 【募集】 Application.DisplayAlerts = False     .BrowseForFolder(0, "SelectFolder", 0) .Title = "2つめのファイルを選択して[OK]ボタンをクリックしてください" .Title = "ファイルを選択して[OK]ボタンをクリックしてください" If .Show = -1 Then .Execute 'キャンセルでなければ開く  FileNames = Application.GetOpenFilename _   On Error GoTo 0 1.filepickerを使用しない。 Workbooks.Open Worksheets("Sheet1").Range("A1").Value & "\" & buf   If Len(fd) = 0& Then Exit Sub       x = CSVQRY(ws, fd & fn, ws.Cells(n, 2), 1&) Dim j For Each FileName In Folder.Files 3 / クリップ      End With