多字段分类汇总-类数据透视表格式汇总-加载宏

《多字段分类汇总-类数据透视表格式汇总-加载宏》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、实例21：多字段分类汇总－类数据透视表格式的汇总－加载宏http://club.excelhome.net/dispbbs.asp?boardid=2&replyid=570898&id=195189&page=1&skin=0&Star=3PrivateSubUserForm_Initialize()   UserForm6.Hide   WithSheets(UserForm6.ComboBox_DataShName.Value)       arr=.Range(.Cells(1,1),.Cells(1,.[iv1].End(xlToLeft).Colum

2、n))   EndWith   arr=Application.Index(arr,1,0)   ListBox_Column.List=arr   ComboBox_Row.List=arr   ComboBox_field.List=arr   ComboBox_Mode.AddItem"求和"   ComboBox_Mode.AddItem"计数"EndSubPrivateSubCommandButton1_Click()   Dimsql$   UserForm7.Hide   Setcnn=CreateObject("ADODB.connection"

3、)   cnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;ExtendedProperties='Excel8.0;';DataSource="&ActiveWorkbook.FullName   sqlmode=IIf(ComboBox_Mode.Value="求和","sum","count")   Forj=0ToListBox_Column.ListCount-1       IfListBox_Column.Selected(j)Then           columntitle=columntitle&"["&Li

4、stBox_Column.List(j)&"],"       EndIf   Next   columntitle=Left(columntitle,Len(columntitle)-1)   sql="transform"&sqlmode&"("&"["&ComboBox_field&"])select"&columntitle&"from["&UserForm6.ComboBox_DataShName.Value&"$]groupby"&columntitle&"pivot["&ComboBox_Row&"]"   Settemp=cnn.Execute(

5、sql)   Fori=1Totemp.fields.Count       Cells(TextBox_Row.Value,i)=temp.fields(i-1).Name   Next   Range(TextBox_Column.Value&TextBox_Row.Value+1).CopyFromRecordsettemp   cnn.Close:Setcnn=NothingEndSub使用方法：工具－加载宏－浏览，找到下载的“分表合表及分类汇总.xla”，确定，确定，则在菜单上会增加一项“分表合表及分类汇总”，下面包含六个菜单项：           

6、单工作表拆分为多工作表           单工作表拆分成多工作簿           多工作表复制为多工作簿           当前工作簿多工作表合并           多工作簿工作表合并到当前表           多字段分类汇总－类数据透视表格式卸载方法：工具－加载宏，去掉“分表合表及分类汇总”前的对勾，确定即可。点击浏览该文件'06-11-14PublicarrPublicarr1Publicarr2PublicarPublicar1Subauto_open()'加载宏**********************************by赖效莹↓D

7、imCtrButtonAsCommandBarControlDimBtn(5)AsCommandBarControlSetCtrButton=Application.CommandBars(1).Controls.Add(Type:=10,before:=11)WithCtrButton.Caption="分表合表及分类汇总"SetBtn(0)=CtrButton.Controls.Add(Type:=1)Btn(0).Caption="单工作表拆分为多工作表"Btn(0).OnAction="将当前活动的工作表拆分成多个工作表"SetBtn(1)=CtrBut

8、ton.Controls