Question

关于VBA编程 操作excel表的问题

这是我写的VBA宏，不知道怎么错了，请各位大虾看下

sub test()
Dim mysheet As Worksheet
For Each mysheet In Worksheets
With mysheet.Columns("A:G").Select
Range("G1").Activate
ActiveWorkbook.PivotCaches.Create (SourceType:=xlDatabase, SourceData:= _
"my sheet!R1C1:R65536C7", Version:=xlPivotTableVersion10). _
CreatePivotTable TableDestination:="my sheet!R9C10", tablename:= _
"数据透视表1", DefaultVersion:=xlPivotTableVersion10
Sheets("my sheet").Select
Cells(9, 10).Select
ActiveSheet.PivotTables("数据透视表1").AddDataField ActiveSheet.PivotTables("数据透视表1" _
).PivotFields("包括dns解析整体时间"), "计数项:包括dns解析整体时 间", xlCount
With ActiveSheet.PivotTables("数据透视表1").PivotFields("测试ip")
.Orientation = xlRowField
.Position = 1
End With
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
Range("K20").Select
ActiveSheet.PivotTables("数据透视表1").PivotFields("计数项:包括dns解析 整体时间").Function = _
xlAverage
End With
Next mysheet
End Sub

Answer 1

With mysheet.Columns("A:G").Select
要with干什么
其他的为什么不调试一下，看看哪句出了问题，要不你把文档上传。