实例21：多字段分类汇总－类数据透视表格式的汇总－加载宏club.excelhome/dispbbs.asp?boardid=2replyid=570898id=195189page=1skin=0Star=3PrivateSubUserForm_Initialize()UserForm6.HideWithSheets(UserForm6boBox_DataShName.Value)arr=.Range(.Cells(1,1),.Cells(1,.[iv1].End(xlToLeft).Column))EndWitharr=Application.Index(arr,1,0)ListBox_Column.List=arrComboBox_RoList=arrComboBox_field.List=arrComboBox_Mode.AddItem"求和"ComboBox_Mode.AddItem"计数"EndSubPrivateSubCommandButton1_Click()Dimsql$UserForm7.HideSetcnn=CreateObject("ADODB.connection")cnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;ExtendedProperties='Excel8.0;';DataSource="ActiveWorkbook.FullNamesqlmode=IIf(ComboBox_Mode.Value="求和","sum","count")Forj=0ToListBox_Column.ListCount-1---本文来源于网络，仅供参考，勿照抄，如有侵权请联系删除---IfListBox_Column.Selected(j)Thencolumntitle=columntitle"["ListBox_Column.List(j)"],"EndIfNextcolumntitle=Left(columntitle,Len(columntitle)-1)sql="transform"sqlmode"(""["ComboBox_field"])select"columntitle"from["UserForm6boBox_DataShName.Value"$]groupby"columntitle"pivot["ComboBox_Row"]"Settemp=cnn.Execute(sql)Fori=1Totemp.fields.CountCells(TextBox_RoValue,i)=temp.fields(i-1).NameNextRange(TextBox_Column.ValueTextBox_RoValue+1).CopyFromRecordsettempcnn.Close:Setcnn=NothingEndSub使用方法：工具－加载宏－浏览，找到下载的“分表合表及分类汇总.xla”，确定，确定，则在菜单上会增加一项“分表合表及分类汇总”，下面包含六个菜单项：单工作表拆分为多工作表单工作表拆分成多工作簿多工作表复制为多工作簿当前工作簿多工作表合并---本文来源于网络，仅供参考，勿照抄，如有侵权请联系删除---多工作簿工作表合并到当前表多字段分类汇总－类数据透视表格式卸载方法：工具－加载宏，去掉“分表合表及分类汇总”前的对勾，确定即可。点击浏览该文件'06-11-14PublicarrPublicarr1Publicarr2PublicarPublicar1Subauto_open()'加载宏**********************************by赖效莹↓DimCtrButtonAsCommandBarControlDimBtn(5)AsCommandBarControlSetCtrButton=ApplicationmandBars(1).Controls.Add(Type:=10,before:=11)WithCtrButton.Caption="分表合表及分类汇总"SetBtn(0)=CtrButton.Controls.Add(Type:=1)Btn(0).Caption="单工作表拆分为多工作表"Btn(0).OnAction="将当前活动的工作表拆分成多个工作表"SetBtn(1)=CtrButton.Controls.Add(Type:=1)Btn(1).Caption="单工作表拆分成多工作簿"Btn(1).OnAction="将当前活动的工作表拆分成若干工作簿"SetBtn(2)=CtrButton.Controls.Add(Type:=1)Btn(2).Caption="多工作表复制为多工作簿"Btn(2).OnAction="将当前活动工作簿的若干工作表拆分成若干工作簿"SetBtn(3)=CtrButton.Controls.Add(Type:=1)Btn(3).Caption="当前工作簿多工作表合并"Btn(3).OnAction="将一个工作簿的若干工作表任意合并成一张工作表"SetBtn(4)=CtrButton.Controls.Add(Type:=1)Btn(4).Caption="多工作簿工作表合并到当前表"Btn(4).OnAction="ADO_将同路径下的多张工作簿中的工作表合并到当前活动的工作表"---本文来源于网络，仅供参考，勿照抄，如有侵权请联系删除---SetBtn(5)=CtrButton.Controls.Add(Type:=1)Btn(5).Caption="多字段分类汇总－类数据透视表格式"Btn(5).OnAction="ADO_多字段分类汇总"EndWithEndSubSubauto_close()'卸载宏ApplicationmandBars(1).Controls("分表合表及分类汇总").DeleteEndSub'ADO合并文件并去除表中链接及空行SubADO_将同路径下的多张工作簿中的工作表合并到当前活动的工作表()UserForm5.Show(0)EndSubSubADO_多字段分类汇总()UserForm6.Show(0)EndSub'******************by赖效莹↑Sub将一个工作簿的若干工作表任意合并成一张工作表()'******************by彭希仁↓UserForm1.Show(0)EndSubSub...