vba 中换行符太多如何处理？（急切）

scv

月末部品在库.rar (45.79 KB, 下载次数: 9)

2013-3-9 08:22 上传

点击文件名下载附件

我做了一个sql查询，代码比较长，想搬到excel vba中，可是，在vba中编辑时，系统提示换行符过多。就是 _ 用的太多了。
这种情况该如何处理呢？

ctp_119

代码没有代码，附件没有附件，很难知道怎么处理！！！

scv

1. select  case when left(Fnumber,5)='01.03' then '双金属片（进口）'
   
2.              when left(Fnumber,5)='01.02' then '基座（进口）'
   
3. when left(Fnumber,5)='01.04' then '固定接点板（进口）'
   
4. when left(Fnumber,5)='01.05' then '热敏端子（进口）'
   
5. when left(Fnumber,5)='01.06' then '连接线（进口）'
   
6. when left(Fnumber,5)='01.07' then '螺丝（进口）'
   
7. when left(Fnumber,5)='01.01' then '电热丝（进口）'
   
8. when left(Fnumber,5)='01.08' then '螺母（进口）'
   
9. when left(Fnumber,5)='01.09' then '半制品（进口）'
   
10. when left(Fnumber,5)='01.10' then '弹簧（进口）'
    
11. when left(Fnumber,5)='01.11' then '盖子（进口）'
    
12. when left(Fnumber,5)='01.15' then '其他（进口）'
    
13. when left(Fnumber,5)='02.01' then '电热丝（国产）'
    
14. when left(Fnumber,5)='02.02' then '基座（国产）'
    
15. when left(Fnumber,5)='02.03' then '固定接点板（国产）'
    
16. when left(Fnumber,5)='02.04' then '热敏端子（国产）'
    
17. when left(Fnumber,5)='02.05' then '连接线（国产）'
    
18. when left(Fnumber,5)='02.06' then '弹簧（国产）'
    
19. when left(Fnumber,5)='02.07' then '螺丝、垫片（国产）'
    
20. when left(Fnumber,5)='02.08' then '盖子（国产）'
    
21. when left(Fnumber,5)='02.09' then '其他（国产）'
    
22. when left(Fnumber,5)='02.10' then '双金属片（国产）'
    
23. when left(Fnumber,5)='03.01' then '双金属片（自制）'
    
24. when left(Fnumber,5)='03.04' then '连接线（自制）'
    
25. when left(Fnumber,5)='03.03' then '固定接点板（自制）'
    
26. when left(Fnumber,5)='04.01' then '电热丝（委外）'
    
27. 
    
28.              else ' '
    
29.         end as Fname,
    
30.         
    
31.         
    
32.         case when (grouping(Fnumber)=1) then '小计'
    
33.              else isnull(Fnumber,'Unknown')
    
34.         end as Fnumber,
    
35.         case when (grouping(Fmodel)=1) then ' '
    
36.              else isnull(Fmodel,'Unknown')
    
37.         end as Fmodel,
    
38. 
    
39. sum(BegQty) as BegQty,sum(InQty) as InQty,sum(OutQty) as OutQty,sum(EndQty) as EndQty
    
40. 
    
41. from
    
42. (select icinvbal.fitemid,t_IcItemCore.Fnumber,t_IcItemCore.Fname,t_IcItemCore.Fmodel,icinvbal.fyear,icinvbal.fperiod,icinvbal.fbegqty as BegQty,isnull(BillInQry.InQty,0) as InQty,isnull(BillOutQry.OutQty,0) as OutQty,
    
43.         (icinvbal.fbegqty+isnull(BillInQry.InQty,0)-isnull(BillOutQry.OutQty,0)) as EndQty,left(t_IcItemCore.Fnumber,5) as Ftype,icinvbal.fstockid
    
44. from icinvbal full join
    
45. (select icstockbillentry.fitemid as Fitemid,sum(icstockbillentry.fqty) as InQty
    
46. from icstockbillentry inner join icstockbill on icstockbillentry.finterid=icstockbill.finterid
    
47. where icstockbill.fdate>'2013-01-01' and icstockbill.fdate<='2013-01-31'
    
48.                                      and icstockbill.fdcstockid='212'
    
49. group by icstockbillentry.fitemid) as BillInQry on BillInQry.fitemid=icinvbal.fitemid
    
50. 
    
51. full join
    
52. (select icstockbillentry.fitemid as Fitemid,sum(icstockbillentry.fqty) as OutQty
    
53. from icstockbillentry inner join icstockbill on icstockbillentry.finterid=icstockbill.finterid
    
54. where icstockbill.fdate>'2013-01-01' and icstockbill.fdate<='2013-01-31'
    
55.                                      and  icstockbill.fscstockid='212'
    
56. group by icstockbillentry.fitemid) as BillOutQry on BillOutQry.Fitemid=icinvbal.fitemid
    
57. 
    
58. inner join t_IcItemCore on icinvbal.fitemid=t_IcItemCore.FitemId
    
59. 
    
60. where icinvbal.fyear='2013' and icinvbal.fperiod='1' and icinvbal.fstockid='212'
    
61. 
    
62. ) as MainTbl
    
63. 
    
64. group by Ftype,Fnumber,Fmodel with rollup
    
65. 
    
66. having grouping(Fnumber)=1 or grouping(Fmodel)=0

复制代码

代码奉上。这段代码要放到vba的 sub过程中，如何处理？ 我用换行符，提示换行符太多！

scv

ctp_119 发表于 2013-3-9 08:07
代码没有代码，附件没有附件，很难知道怎么处理！！！

代码有了，请帮忙看看啊。。

scv

附件也有了啊。就是附件中的代码不知如何处理。

ctp_119

哇，晕呼呼的，我看是嵌套太多吧！！！这么长的SQL语句！！！另寻高手！！！不好意思！！

scv

ctp_119 发表于 2013-3-9 08:26
哇，晕呼呼的，我看是嵌套太多吧！！！这么长的SQL语句！！！另寻高手！！！不好意思！！

语法没问题。这段代码我在sql中测试过，能用。单就是不知如何搬到vba过程中。

ctp_119

你那是数据库的连接方式，工作表（或工作簿）的连接方式有点不同。。。

DataBus

你不用改太多了，有了SQL, 用VBA一样调用SQL,搜下ado。

scv

ctp_119 发表于 2013-3-9 08:59
你那是数据库的连接方式，工作表（或工作簿）的连接方式有点不同。。。

因为代码长，我尝试用了很多换行符   就是 _
可是vba提示换行符太多。