按字段不同值输出成多文件

lonespark · 发表于 2010-1-13 15:00

大虾们好，
由于工作需要，我需要把一份资料分成几个文件，要求就是按照安段里面的不同值，相同值的行提出出来保存成一个文件，文件名就是那个值。

这里我给出一个原始文件叫做“试验”，结果要求是按照性别出2个文件，一个叫“男.xls”，里面应该包含 1，11，111，1111；一个叫“女.xls”，里面包含2，22，222，2222。

请各位大虾贴上可以用的VBA代码。多谢了

[ 本帖最后由 lonespark 于 2010-1-15 08:14 编辑 ]

ningyuanchao · 发表于 2010-1-13 15:05

建议楼主先学习一下附件的上传方法。

lonespark · 发表于 2010-1-13 15:13

我就是不想上传附件，内部数据，我自己做一个可以示范的吧，我想学方法。或者告诉我哪个帖子找哪里能找到也行

lonespark · 发表于 2010-1-13 15:17

我上传了一个，不过只是结果我不要，我想要方法

ningyuanchao · 发表于 2010-1-13 15:25

不是要你泄露敏感信息，可以这样：比如涉及到姓名就用甲乙丙丁代替，涉及到公司就用ABCD代替，其它类推，内容可以改变，但最好保持表格的结构。

lonespark · 发表于 2010-1-13 15:36

就附件那个，按照性别出2个文件，一个叫“男.xls”，里面应该包含 1，11，111，1111；一个叫“女.xls”，里面包含2，22，222，2222

lonespark · 发表于 2010-1-15 08:15

我更新了要求，这样大家应该知道我的意思了。多谢

lonespark · 发表于 2010-1-15 15:54

请帮帮我阿，星期一就需要这个了

extyg · 发表于 2010-1-15 16:40

Sub 拆分文件()
Dim oCnn As Object, oRst As Object, sTabName As String, sFile As String
Dim arr, i As Long

sTabName = Sheet1.Name
Set oCnn = CreateObject("adodb.connection")
Set oRst = CreateObject("adodb.recordset")
oCnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1';data source=" & ThisWorkbook.FullName
oRst.Open "select distinct 性别 from [" & sTabName & "$]", oCnn, 1, 3
arr = oRst.getrows
For i = 0 To oRst.RecordCount - 1
      sFile = ThisWorkbook.Path & "\" & arr(0, i) & ".xls"
      If Dir(sFile) <> "" Then Kill sFile
      oCnn.Execute ("select * into [" & sFile & "]." & arr(0, i) & " from [" & sTabName & "$] where 性别='" & arr(0, i) & "'")
Next
oRst.Close
oCnn.Close
Set oRst = Nothing
Set oCnn = Nothing
End Sub

ningyuanchao · 发表于 2010-1-15 16:45

请楼主参考：

		自动登录	找回密码
密码			免费注册

[求助] 按字段不同值输出成多文件