[电脑] excle高手进，请教一个问题。。。。

有一个表，大约2000多行。

每行的第二列是设备序列号。

现在要以这2000多个序列号为名字，建立2000多个文件夹。这是第一步。。。。

然后，每个序列号下，还包括3个零件序列号，现在，要以这3个零件序列号为文件名，3个doc文件，分别放到对应的序列号文件夹下。这是第二步。。。。。而且以后还要再增加零件

我从周一就开始弄这个东西，先手动建一个，然后复制2000多个，然后一个一个改名字。主要是，如果以有增加，就得一个一个添加。请教有没有快捷一点的方法？要疯了。。。。。。。

用VBA啊 同志  这样头发白了也搞不完的啊

容我想想
Sub create folders()
DIM FOLDER AS STRING
FOR I=1 TO 2000
FOLDER=CELLs(i,2).value
mkdir  "D:\"+folder
next i
end sub
上面这个可以D盘根目录下创建2000个文件夹

[ 本帖最后由 越过俺的尸体 于 2008-3-12 22:26 编辑 ]

LZ
现在必须知道是序列号下面那三个零件号在什么位置上？

[ 本帖最后由 越过俺的尸体 于 2008-3-12 22:34 编辑 ]

VBA不熟，Excel发来可以帮你做个VB6或C#程序

3#的函数：

create folders() 似乎中间不能有空格的吧？

文件在公司的机器上，这个文件倒是无所谓，但还有其他客户资料什么的在一台机器上，所以拿不出来。。。。。。

VBA完全不会啊。。。是不是还要在装个其他软件配合？如果是的话就死B了，有权限设置。
我只是被临时抓来搞这个的，VBA估计全公司也没会的。。。。。。。

总序列号在第二列。3个零件的序列号分别在第3，4，5列上。在后面就是备注什么的。

[ 本帖最后由 shixn 于 2008-3-13 00:05 编辑 ]

我试过了  可以运行  运行结果是在D盘下生成一个叫test的文件夹 里面就是LZ所要的东西了  2000多行可能要运行半个小时左右，不过要注意的是  你说的这2000多行的设备号和序列号不能为空或者重复
运行VBA什么权限都不用，打开你的EXCEL文件 --工具--宏--VISAL BASIC编辑器 把下面代码粘进去运行就可以了
还有 这段代码需要引用WORD，在VBA编辑器下 工具--引用--MICROSOFT WORD OBJECT LIBRARY 钩选上就可以了

Sub createfolders()
Dim folder As String
Dim currentpath As Variant
Dim worddoc(3000, 2) As String
Dim docApp As New Word.Application
Dim docDoc As Word.Document
Set chk = CreateObject("Scripting.FileSystemObject")
If chk.FolderExists("D:\test") = False Then
MkDir "d:\test"
Else: MsgBox "路径已存在!"
Exit Sub
End If
RowCount = ActiveSheet.[b1].CurrentRegion.Rows.Count
For i = 1 To RowCount
folder = Cells(i, 2).Value
If folder <> "" Then
MkDir "D:\test\" + folder
currentpath = "D:\test\" + folder + "\"
Else
Exit Sub
End If
worddoc(i - 1, 0) = Cells(i, 3).Value
worddoc(i - 1, 1) = Cells(i, 4).Value
worddoc(i - 1, 2) = Cells(i, 5).Value
docApp.Visible = False
Set docDoc = docApp.Documents.Add
docDoc.SaveAs currentpath + worddoc(i - 1, 0) + ".doc"
docDoc.SaveAs currentpath + worddoc(i - 1, 1) + ".doc"
docDoc.SaveAs currentpath + worddoc(i - 1, 2) + ".doc"
docApp.DisplayAlerts = False
docDoc.Close
docApp.Quit
Set docDoc = Nothing
Set docApp = Nothing
Next i
End Sub

不知道LZ的文件是什么样子 也许会有些我没注意到的小毛病

[ 本帖最后由 越过俺的尸体 于 2008-3-13 14:23 编辑 ]

另外 5楼同学说的对  我小紧张了一下:D

大感激LS帮忙！！！！！！！！！！！！！！！！！！！！！

实验了一下，只弄了30多行，出错了，代码没修改，在试的时候excel说“该工程的宏被禁止”是咋回事？？
成功生成了一个文件夹，里面的内容都对，先抄下来，明天去单位弄，MB单位的破机器还不能上网。。。。

知识真伟大！！！！