看着眼疼,帮你改下:
Dim s1,s2,s3,sql As String
Dim Ls1,Ls2 As String()
Dim n1 As Integer
s1 ="TradeNo|BuyerIdent|BuyerRemark|ReceiverState|ReceiverCity|ReceiverDistrict|ReceiverAddress|"
s1+ ="ReceiverMobile|ReceiverPhone|ReceiverName|ReceiverZip|StateDesc|IIF(TransportType='free',"
s1+="'包邮' ,'不包邮')|GoodsAmount|DiscountFee|PostFee|TotalCash|GoodsMoney|''"
s2 = "订单号|淘宝ID|订单备注|省份|城市|镇区|地址|手机|电话|联系人|邮编|"
s2+="订单状态|邮费类型|商品总数量|优惠金额|邮费|总金额|商品金额|是否存在"
Ls1=s1.split("|")
Ls2 =s2.split("|")
For Each s1 In Ls1
s3+ = "," & s1 & " as " & Ls2(n1)
n1+=1
Next
s1 =" where StateDesc like '%买家已付款%'"
sql= "Select TradeId" & s3 & " from {trade} " & s1 & " union all "
sql+ = "Select TradeId " & s3 & " from {TradeHistory} " & s1 & " order by tradeid"
Tables("网购接口_Table1").Fill(sql,"taobao",True)
[此贴子已经被作者于2012-5-22 17:26:00编辑过]
加好友 
发短信
Post By：2012/5/22 17:08:00 [显示全部帖子]
