Workbooks.Open Worksheets("Sheet1").Range("A1").Value & "\" & buf
＞ c = GFBook.ActiveSheet.UsedRange.Columns.Count + 1
Sub 選択されたPDPファイルを開いて読み込む()
If obj Is Nothing Then Exit Function
・それぞれのファイルの１行目にある項目データを削除したい。
③わからない場所はどこですか？（ファイル読込、書込など）
３．ＣＣＣ
_
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