vbs或者vb操作excel

Question

第一个工具，使用vbs，把当前目录下所有的excel文件合并成一个文件，注意：网上有只合并一行的，就是说合并出来的文件只是所有文件第一行的和，而不是所有文件合并，做出来加分。第二个工具，应该是录制一个宏，或者写个函数，原有单元格的内容是1-15,16,17-20这样的内容，，求一个宏或者函数，自动计算，比如第一个应该是15（15-1+1），第二个没有分割的应该是1，第三个应该是4（20-17+1）。跟第一个一样，目录下很多表格，但是这个很难实现所有的，可以每个打开自动生成一行记录结果的。每个做出来试用好了我加分。2011-12-16日16点之前如果没有答案，我就关闭问题

Answer 1

我很在行这样的文件处理，但是你提供的信息不完整。我给你个大致的思路。
确保若打开某一文件，数据就能看见——即不用点其他sheet。建一新Excel，也存到该文件夹。仅打开该新Excel，同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：

Sub Find()
Application.ScreenUpdating = False
Dim MyDir As String
MyDir = ThisWorkbook.Path & "\"
ChDrive Left(MyDir, 1) 'find all the excel files
ChDir MyDir
Match = Dir$("*.xls")
Do
If Not LCase(Match) = LCase(ThisWorkbook.Name) Then
Workbooks.Open Match, 0 'open
ActiveSheet.Copy Before:=ThisWorkbook.Sheets(1) 'copy sheet
activesheet.name = replace(match,".xls","")
Windows(Match).Activate
ActiveWindow.Close 0
End If
Match = Dir$
Loop Until Len(Match) = 0
Application.ScreenUpdating = True
End Sub

在此界面直接按F5运行此宏，所有文件的工作表都复制到这个新的工作簿中（这是粗体部分的作用）。你可以用
=SUM(Sheet2:Sheet18B2)
来求这几个Sheet的B2的和。

第二个要求，假设你每个文件都在单元格A1或者A列，可以用以上类似方法把所有记录提取到一个工作表中，然后进入宏界面，插入如下代码：
Function chf(xStr As String) As String
Dim i, j As Integer
Dim xArr() As String
xArr = Split(xStr, ",")
For i = 0 To UBound(xArr)
j = InStr(xArr(i), "-")
If j > 0 Then
chf = chf & "," & Mid(xArr(i), j + 1, 5) - Left(xArr(i), j - 1) + 1
Else
chf = chf & "," & 1
End If
Next i
chf = Right(chf, Len(chf) - 1)
End Function

回到Excel，在B2输入
=chf(A2)
公式向下复制。
然后点B列，右键，复制，再右键，选择性粘贴，数值；再点菜单的数据，分列，以分隔符分列，下一步，选中逗号，完成。（这些当然也可以通过宏直接完成的）