投稿日 | : 2003/05/30(Fri) 19:14 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: 複数のCSVデータ⇒XLSブック |
ひとつにまとめるだけなら、こんな方法も
Private Sub Command1_Click()
Dim AFilePath As String
Dim BFilePath As String
Dim CFilePath As String
AFilePath = App.Path & "\AFile.CSV" & " + "
BFilePath = App.Path & "\BFile.CSV" & " " '半角スペースを付加
CFilePath = App.Path & "\CFile.CSV"
Shell "command.com /c copy " & AFilePath & BFilePath & CFilePath, 0
End Sub