12/03/24 16:49:06.55
複数のＣＳＶファイルを１つにしたくて
調べたら
以下のサイトが参考になったので
URLﾘﾝｸ(ziddy.japan.zdnet.com)
Sub CSV結合()
Const CRFILE As String = "C:\My Documents\test2"
Dim obj As Object
Dim arg As String
Set obj = CreateObject("Shell.Application") _
.BrowseForFolder(0, "SelectFolder", 0)
If obj Is Nothing Then Exit Sub
arg = obj.self.Path & "\*.csv "
Set obj = Nothing
Call Shell(Environ("ComSpec") & " /c copy /b " & arg & CRFILE)
End Sub
とやっているのですがうまくいきません。
フォルダ選択の画面はでてくるのですが
C:\My Documents\test2
に結合されたＣＳＶファイルができるはずですが、できなくて。
ソース間違ってますか？
エクセル２００７です。