A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
>全ファイルの一行目(A列)に項目を追加したいのですが
全ファイルの全レコードのことだろう。質問には、正確に表現を書くこと。
結果として
a,b,c・・
を
,a,b,c・・・
に(全レコード)すればよい。
ーー
質問には第1項に入れる値は書いてないが、
空白か
決まった値か
変化する値か(ファイルまたはレコード単位で)
これも書いてない。
ーーー
(1)エディタを使い、読み込んで、先頭に,を挿入すればよい。
こういう機能のあるテキストエディタはあるかもしれない。
(2)これが面倒な数だというなら、プログラムの力を借りないとならない。プログラムを組んだことがあるのかな。多分質問の表現振りから未経験かな。
VB以外の言語
VB6
VB.NET
VBSCRIPTなど色んな言語等でできる
「CSVファイル 読み書き」でWEB照会すると沢山例が出る。
(3)エクセルに読み込んで、左端に列挿入する方法もありそう。
もちろんVBAででもできる。
ーー
そうすると課題丸投げになる。
それとシーケンシャルファイルは、元のデータに直接増やす、変更することはできないの知ってますか。今のファイルは読むだけのデータで、別途新しいファイルを書き出さないといけない。
ーー
Sub test02()
Open "C:\Documents and Settings\xxxx\My Documents\test01.csv" For Input As #1
Open "C:\Documents and Settings\xxxx\My Documents\test0B.csv" For Output As #2
While Not EOF(1)
Line Input #1, a
' MsgBox a
o = "," & a
' MsgBox o
Print #2, o
Wend
Close #1
Close #2
End Sub
上記は旧Basic時代からのコードです。
これに400回繰り返しのステートメントをかぶせ
(1)インプットファイル名を都度どう変えるか
(2)アウトプットファイル名をどう変えるか
(3)対象のCSVファイルを1フォルダに集め、そのフォルダ内の
各ファイルを順次捕まえて、インプットファイルにする。
これだとプログラムでファイル名は割り出せるので、名前は伏せた形にできる。
WEBに実例は沢山載っているが、VBなど未経験者にはむつかしい。
WEB照会では「フォルダ内 ファイル」などで照会。
http://itpro.nikkeibp.co.jp/article/COLUMN/20060 …
No.1
- 回答日時:
> その全ファイルの一行目(A列)に項目を追加したいのですが、
A列の前に一列挿入し、その1行目が項目名という理解でいいでしょうか?
> なんせ数が多いもので一括で出来る方法
VBAでやるしかないと思います。
CSVファイルが400程ある同じフォルダーにエクセルファイルをひとつ作り、標準モジュールに以下のマクロを書いて実行してみてください。
Sub TEST01()
Application.ScreenUpdating = False '画面更新を一時停止
myfdr = ThisWorkbook.Path 'フォルダー名取得
fname = Dir(myfdr & "\*.csv") 'フォルダ内のCSVファイルを検索
Do Until fname = Empty '全て検索
Set wb = Workbooks.Open(myfdr & "\" & fname) 'そのファイルを開きwbとする。
n = n + 1 'カウントしnとする
wb.ActiveSheet.Columns("A:A").Insert Shift:=xlToRight 'A列挿入
wb.ActiveSheet.Range("A1") = "新項目名" 'A1に新項目名
wb.Close (True) '開いたファイルを保存して閉じる
fname = Dir 'フォルダ内の次のCSVファイルを検索
Loop '繰り返す
Application.ScreenUpdating = True '画面更新一時停止を解除
MsgBox n & "件を処理しましました。"
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- Visual Basic(VBA) エクセルVBAについて 8 2022/07/13 22:41
- Visual Basic(VBA) VBAで特定の場所にあるCSVファイル(複数)から特定場所を抜き出してExcelに転記したいです。 11 2023/05/23 16:29
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- その他(プログラミング・Web制作) Pythonで、データファイルと列名ファイルを1つのファイルにしたいです。 1 2023/07/27 20:29
- フリーソフト フォルダ、ファイル名の一括変換について 3 2023/03/16 09:23
- Visual Basic(VBA) 複数ファイルのデータの統合について 12 2022/05/14 12:03
- Access(アクセス) CSVファイルの「0落ち」にVBA 6 2023/02/02 15:27
- その他(プログラミング・Web制作) データ解析ソフトRでのファイル入力read.csvがエラーになります 7 2022/03/27 22:11
- システム CSVファイルのマッピング処理の省力化 1 2022/11/24 00:01
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
echo abc" >> test.txt で、先頭に追加するには?"
その他(OS)
-
バッチでcsvファイルの指定のカラムを編集したい
その他(プログラミング・Web制作)
-
【Excel VBA】ファイルにヘッダーを挿入
Visual Basic(VBA)
-
-
4
VBAでCSVの1行目だけを書き換える方法
Excel(エクセル)
-
5
ファイルの最後に文字列挿入
その他(プログラミング・Web制作)
-
6
コマンドプロンプトの「%1」と「%~1」の違いがわからない
その他(プログラミング・Web制作)
-
7
バッチファイルでテキストファイルの1行目だけ変更
その他(プログラミング・Web制作)
-
8
CSVで1列目を空白にする方法は?
PowerPoint(パワーポイント)
-
9
CSVファイルの特定行の削除
Visual Basic(VBA)
-
10
エクセルVBAのエディターが上書きモード?に・・・・。
Excel(エクセル)
-
11
Windowsのバッチファイルを利用しtxtファイルの指定のした位置に文字を追加する方法
その他(プログラミング・Web制作)
-
12
テキストファイルの行頭に文字列挿入したい
Visual Basic(VBA)
-
13
複数のcsvファイルを統合、でもファイル名情報は含んでもらいたい・・・
フリーソフト
-
14
csvファイルを開かずに文字を検索し行を抽出したい
Visual Basic(VBA)
-
15
バッチでテキストファイルから任意の行のみ取得したい
その他(プログラミング・Web制作)
-
16
VBA:Openステートメントで開いたCSVファイルの特定行を削除する方法
その他(プログラミング・Web制作)
-
17
Excel VBAでの複数のCSVファイルの読み込みとソート
Excel(エクセル)
-
18
csvデータ不要列の削除をbatファイルにて行う方法
その他(プログラミング・Web制作)
-
19
【Excel VBA】先頭の「0」飛びを埋める方法
Visual Basic(VBA)
-
20
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
検索したファイルの場所を調べ...
-
Not kind:Folders
-
Windows10のメタデータの「メ...
-
Win 10エクスプローラーについ...
-
ワードの作成日時と更新日時
-
ハイパーリンク設定画面の「検...
-
PSP内で文字化けが起きてしまう...
-
全CSVファイルに一行だけ追加し...
-
貼り付けとショートカットの貼...
-
知らないファイルがあります。
-
2つのファイルを1つのショー...
-
Windows10のクイックアクセスの...
-
コマンドプロンプトでファイル...
-
ショートカットファイルそのも...
-
拡張子.EXTの解凍方法
-
USBにコピーして車で聴くには?
-
フォルダのショートカットキー...
-
レジストリ 新規作成方法
-
EXCELファイルを開くと・・・
-
同じ名前のファイルをひとつの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
検索したファイルの場所を調べ...
-
Not kind:Folders
-
貼り付けとショートカットの貼...
-
ワードの作成日時と更新日時
-
ショートカットファイルそのも...
-
エクスプローラの検索で期間と...
-
USBにコピーして車で聴くには?
-
複数のワードのファイルから検索
-
Windows10のメタデータの「メ...
-
csvファイルの最後にeof(0x1a)...
-
レジストリの格納場所
-
突然エクセルのデータが何ヶ月...
-
WindowsXPのインストールでプロ...
-
拡張子KIHを見るソフトって有り...
-
拡張子.EXTの解凍方法
-
知らないファイルがあります。
-
EXCELファイルを開くと・・・
-
Win 10エクスプローラーについ...
-
全CSVファイルに一行だけ追加し...
-
自分だけファイルが見られるよ...
おすすめ情報