Question

求助：想用vba代码 合并多个csv表格，但是不知道如何操作。

Sub MergeCSV()
Application.DisplayAlerts = False
Dim WK As Workbook, CSV As Workbook, MyPath$, MyName$, i As Integer
MyPath = ThisWorkbook.Path & "\csv\"
MyName = Dir(MyPath & "*.csv")
If MyName <> "" Then Set WK = Workbooks.Add
Do While MyName <> "" ' 开始循环。
Set CSV = Workbooks.Open(MyPath & MyName):
'ActiveSheet追加记录的功能
i = WK.ActiveSheet.UsedRange.Rows.Count
'第一次复制从row 1开始， 之后的在Count+1处开始复制
If i <> 1 Then i = i + 1
'复制记录到指定的位置
CSV.ActiveSheet.UsedRange.Copy WK.ActiveSheet.Cells(i, 1)
CSV.Close False
MyName = Dir
Loop

WK.SaveAs MyPath & "total.xls"
End Sub
————————————————————————-
上面这个是网上看的代码，但是输入到哪里呢？
这里面有什么需要调试的呢？
使用excel吗？
我的excel07里面有个vb，可是打开之后干嘛呀？
光有代码我也不知道怎么用啊~~~~
求助啊！非常感谢啊！！
我有一堆csv文件，每个csv里面一个sheet。
形式如下：
第一排是： 一组 二组 三组
第二排是： 数字 数字 数字
第n排是： 数字 数字 数字

现在想把多个csv文件的第二排之后的数字存到一个excel文件里！！！！！！求助！！！！！！！

Answer 1

你在你的excel表格里，点工具栏上的“工具（T）”、点“宏”、点右边的“Visual Bsic 编辑器”，这时出现一个窗口，如果你当前的表格是Sheet1，你就双击该窗口左边窗口中的sheet1(sheet1)，此时，右边变为空白页面。将你上面的代码复制粘贴到此，按F5键即运行该代码。
若有问题请Hi我。