すみませんが、教えてください。
特定のフォルダ内に入っているcsvのA1列目のみ抽出して別ファイルにしたく、検索したところ
同じように困っていた方がいたようで、参考にさせていただいたのですが、
以下を実行しても
インデックスが有効範囲にありませんと出ます。
各csvファイルのシート名は
1000近くあるファイル全て違い、別々の名前(コード00-000とか)になっています。
(エクセルで開いたとき)
お手数ですが、教えていただきたくお願いいたします。
参考にしたマクロです。
Sub macro1()
Dim myPath As String
Dim myFile As String
myPath = "ファイルの場所\"
myFile = Dir(myPath & "*.xls")
Do Until myFile = ""
Workbooks.Open myPath & myFile
With Workbooks("集約.xls").Worksheets("Sheet1").Range("A65536").End(xlUp)
.Offset(1, 0).Value = myFile
.Offset(1, 1).Value = Workbooks(myFile).Worksheets("概要").Range("C3").Value
End With
Workbooks(myFile).Close savechanges:=False
myFile = Dir()
Loop
End Sub
宜しくお願いいたします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
タイトルと質問文と記述されているマクロとで微妙にズレがあるので、
やろうとされている内容の条件が今ひとつはっきりわからないのですが。
仮に、
・あるフォルダ内に入っている複数のcsvファイルのA1セルの内容のみを抽出して別ファイルにリスト作成したい。
・リストを作成する別ファイルは「集約」.xlsで、リストの作成先シート名は「概要」
(マクロはこのファイルに記述)
・各csvファイルのシート名はファイルごとに異なる
として、少し直してみました。
Sub macro1()
Dim myPath As String
Dim myFile As String
myPath = "ファイルの場所\"
myFile = Dir(myPath & "*.csv")
Do Until myFile = ""
Workbooks.Open myPath & myFile
With Workbooks("集約.xls").Worksheets("概要").Range("A65536").End(xlUp)
.Offset(1, 0).Value = myFile
mys = Workbooks(myFile).Sheets(1).Name
.Offset(1, 1).Value = Workbooks(myFile).Worksheets(mys).Range("C3").Value
End With
Workbooks(myFile).Close savechanges:=False
myFile = Dir()
Loop
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- Visual Basic(VBA) エクセルVBAについて 8 2022/07/13 22:41
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) Excel VBA ファイル取得について フォルダの中に、ファイル名“会議“を含むファイルが1つまた 9 2022/10/12 01:18
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
フォルダ内のexcelファイルを順...
-
エクセルのシートの数を数えた...
-
エクセルマクロで不特定なファ...
-
エクセルのxls形式からxlsx形式...
-
ファイルを開かずにマクロを実行
-
VBAでワークブックの名前を変数...
-
ACCESS VBAでファイルを開くダ...
-
ファイルの保存場所を変えたら...
-
VBA EXCELファイル選択⇒指定セ...
-
エクセル(マクロ)のファイル...
-
Accessのaccdbファイルを起動で...
-
エクセルマクロ 異なるファイ...
-
ファイル名を変更するマクロ
-
<ACCESS VBA -> EXCEL>getObjec...
-
LTSpiceにLMV358-Nのモデルを入...
-
EXCELマクロを無効にして開く方法
-
Excel VBA でファイルが開かれ...
-
vba初心者です。 質問です。 毎...
-
フォルダ内のブック全部にパス...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
エクセルマクロで不特定なファ...
-
VBAでワークブックの名前を変数...
-
エクセル 複数ファイルの一括...
-
フォルダ内のexcelファイルを順...
-
エクセルのxls形式からxlsx形式...
-
【Excel VBA】ファイル名が一...
-
エクセル(マクロ)のファイル...
-
vlookup関数の引数を変数で指定...
-
ファイルを開かずにマクロを実行
-
エクセルのシートの数を数えた...
-
Accessのaccdbファイルを起動で...
-
エクセルマクロ 異なるファイ...
-
vba初心者です。 質問です。 毎...
-
ファイルの保存場所を変えたら...
-
Excel VBA でファイルが開かれ...
-
accessフォルダを移動したらフ...
-
リンク切れチェックを行うマクロ
-
フォルダ内のブック全部にパス...
-
ACCESS VBAでファイルを開くダ...
おすすめ情報