| |
こんにちは。かみちゃん です。
>今できているコードをアップすることはできませんか？
本当は、makiさんがどこまでできているのかをご提示いただきたいのですが、
Hirofumiさんからコードの提示もあったので、私も「マクロの記録」とヘルプ
の引用で作れるコードを提示させていただきます。
Hirofumiさんのコードは、とてもすばらしいコードで、過去何度となく同様の
コードを掲示板でご紹介されていたので、後ほど、過去ログを紹介しようとし
ていましたが、少々長いので、解析・勉強され理解されるのは大変ではなかろ
うかと思います。僭越ながら、私のコードも何かのお役に立てれば幸いです。
Sub Macro1()
Dim MyPath As String
Dim MyName As String
Dim strCsvFileName As String
Dim rngPaste As Range
MyPath = ThisWorkbook.Path
MyName = Dir(MyPath & "\*.csv")
Do While MyName <> ""
strCsvFileName = MyPath & "\" & MyName
'貼付先を取得（このブックのアクティブシートに貼付け）
Set rngPaste = ThisWorkbook.ActiveSheet.Range("A65536").End(xlUp)
If rngPaste.Value <> "" Then
Set rngPaste = rngPaste.Offset(1)
End If
'Csvファイルを開く
Workbooks.Open strCsvFileName
'特定のファイルの場合は、1行目を削除
If MyName = "A000001.csv" Then
Rows(1).Delete Shift:=xlUp
End If
'読み込んだCSVファイルを貼付け先に貼付けて閉じる
Range("A1").CurrentRegion.Copy rngPaste
ActiveWorkbook.Close False
MyName = Dir
Loop
End Sub
|
|
かみちゃん
- 06/6/3(土) 11:14 -
