人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

質問です
c:\test\のフォルダのなかに複数のcsvのデータファイルがあります
そのデータの2列目から6列目のB列C列D列E列にコピーするマクロをお願いします
A列には既にデータがあります
それ以外の

B列に アアア
C列に イイイ
D列に 1111
E列に おおお
の文字をA列のデータの行の数だけ1行目からコピーする
マクロをお願いしますマクロ記述のファイルはc:\test\以外におきます。
よろしくお願いします

●質問者: inosisi
●カテゴリ:コンピュータ インターネット
✍キーワード:CSV test コピー データ ファイル
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● きゃづみぃ
●100ポイント ベストアンサー
Sub main()
Dim p As String
'対象フォルダを指定してください。
'このフォルダに この実行用のブックは 入れないでください。

p = "C:\test\"

'処理対象となる拡張子を指定して 呼び出します。
Call jikkou(p, "csv")

End Sub


Sub jikkou(p As String, s As String)

Dim bk As Workbook
Application.DisplayAlerts = False
 
f = Dir(p & "*." & s, vbNormal)

Do While f <> ""
 Set w = Workbooks.Open(Filename:=p & f, UpdateLinks:=False, ReadOnly:=False)
  '処理対象は 1番目のシートのみ。
 
 With w.Sheets(1)
 
 kg = 1  '処理終了行
 
 If .Range("A2") <> "" Then
 kg = .Range("A1").End(xlDown).Row
 End If
 
 For b = 1 To kg
 .Cells(b, "B") = "アアア"
 .Cells(b, "C") = "イイイ"
 .Cells(b, "D") = "1111"
 .Cells(b, "E") = "おおお"
 Next b
 End With
 
 w.Save
 w.Close
 f = Dir
Loop

Application.DisplayAlerts = True

End Sub

◎質問者からの返答

ありがとうございました

これでOKですが実際は前回質問の処理と連動して使いたいので

実際のデータでまだ実戦していませんのでまた何かありましたら

質問します。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ