按照whsfhwm提示的方法写的两个SQL语句到底有什么区别？为什么一个正确一个是错误的？

jooter

今天按照大侠whsfhwm 提示的方法的做数据透视表（利用宏录制外部数据查询SQL后自己修改代码）出现了我想不通的问题。
修改后代码中就这两句代码不同，其余部分一样，为什么一句可以实现数据透视表的创建，一句却出错呢？
请看着两句代码？
正确的SQL语句：

1. 
   
2. select 区域,工装构成,夹具总成,设计者,序号,图号,名称,iif(instr(数量,'各')>0,2*val(right(数量,len(数量)-instr(数量,'各'))),val(数量)) as 新数量,规格,制造商,单价 from [sheet1$]
   

复制代码

错误的代码：

1. 
   
2. select 区域,工装构成,夹具总成,设计者,序号,图号,名称,iif(instr(数量,'各')>0,2*val(right(数量,len(数量)-instr(数量,'各'))),val(数量)) as 新数量,规格,制造商,发图时间,计划完成时间,实际完成时间,PRE编号,PR单编号,QEV编号,单价 from [sheet1$]
   

复制代码

实际上我需要是的错误的代码中所能实现的数据透视表。

完整代码如下：

1. Sub 生成pivot()
   
2. '
   
3. '生成pivot Macro
   
4. ' 宏由 jooter 录制，时间: 2010-6-4
   
5. '
   
6. 
   
7. '
   
8. Columns("H:H").Select
   
9. Selection.TextToColumns Destination:=Range("H1"), DataType:=xlDelimited, _
   
10. TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    
11. Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
    
12. :=Array(1, 2), TrailingMinusNumbers:=True
    
13. Range("M1").Select
    
14. With ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
    
15. .Connection = Array( _
    
16. "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=F:\working\2010\06\数据透视表\sadfas.xls;Mode=Share De" _
    
17. , _
    
18. "ny Write;Extended Properties=""HDR=YES;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";J" _
    
19. , _
    
20. "et OLEDB:Engine Type=35;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions" _
    
21. , _
    
22. "=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Co" _
    
23. , _
    
24. "py Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False" _
    
25. )
    
26. .CommandType = xlCmdTable
    
27. .CommandText = Array( _
    
28. "select 区域,工装构成,夹具总成,设计者,序号,图号,名称,iif(instr(数量,'各')>0,2*val(right(数量,len(数量)-instr(数量,'各'))),val(数量)) as 新数量,规格,制造商,单价 from [sheet1$]" _
    
29. )
    
30. '.CommandText = Array( _
    
31. "select 区域,工装构成,iif(instr(数量,'各')>0,2*val(right(数量,len(数量)-instr(数量,'各'))),val(数量)) as 新数量,发图时间,计划完成时间,实际完成时间,PRE编号,PR单编号,QEV编号,单价 from [sheet1$]" _
    
32. )
    
33. '.CommandText = Array( _
    
34. "select 区域,工装构成,夹具总成,设计者,序号,图号,名称,iif(instr(数量,'各')>0,2*val(right(数量,len(数量)-instr(数量,'各'))),val(数量)) as 新数量,规格,制造商,发图时间,计划完成时间,实际完成时间,PRE编号,PR单编号,QEV编号,单价 from [sheet1$]" _
    
35. )
    
36. .MaintainConnection = True
    
37. .CreatePivotTable TableDestination:="", TableName:="10", _
    
38. DefaultVersion:=xlPivotTableVersion10
    
39. End With
    
40. ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    
41. ActiveSheet.Cells(3, 1).Select
    
42. End Sub

复制代码

请高手帮我看看，为什么错误的代码不能生成数据透视表呢？
还有上面的代码可以简化吗？我看着好复杂，看不懂导入外部数据部分。

whsfhwm

QEV编号——————改为“QEV单编号” 就可以了。
粗心啦~~~

jooter

原帖由 whsfhwm 于 2010-6-7 21:02 发表
QEV编号——————改为“QEV单编号” 就可以了。
粗心啦~~~

哎呀，我的神啊！真是少了一个字。
家里装的是office2007，运行不了，明天去帮公室试试看，应该是可以了，谢谢大侠whsfhwm！

请问大侠以下代码可以简化一下吗？看不懂啊！

1. With ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
   
2. .Connection = Array( _
   
3. "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=F:\working\2010\06\数据透视表\sadfas.xls;Mode=Share De" _
   
4. , _
   
5. "ny Write;Extended Properties=""HDR=YES;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";J" _
   
6. , _
   
7. "et OLEDB:Engine Type=35;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions" _
   
8. , _
   
9. "=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Co" _
   
10. , _
    
11. "py Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False" _
    
12. )
    

复制代码

开心萝卜惠州

你是用录制宏做的，可以肯定的是可以简化，我是不会，但可以给你一个思路，你按照语句分别将部分语句进行注释标志后运行，如能运行达到需要的表格，说明注释的语句就是可以简化的

whsfhwm

OLEDB;Provider=...
Data Source=...
Extended Properties=""HDR=YES;""
Jet OLEDB:Engine Type=35
好像其他的都可以省略吧。自己多动手试试吧（省略号表示=后面内容要跟上 ）