質問です

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

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

回答の条件
  • 1人3回まで
  • 13歳以上
  • 登録:2011/06/21 23:46:10
  • 終了:2011/06/22 17:36:35

ベストアンサー

id:taknt No.1

きゃづみぃ回答回数13537ベストアンサー獲得回数11982011/06/22 13:10:17

ポイント100pt
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

id:inosisi4141

ありがとうございました

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

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

質問します。

2011/06/22 17:36:12

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません