dim objJSON = ""
dim objExcelWorkBook = ""
array = ["(出售)（产权过户）萝岗香雪地铁口 沿街旺铺 人流密集带租一万八急售","更新于2020-05-10","15 万元 7500元/m","20m","临街门面","1层/共1层","黄埔区 -开发区西","香雪地铁站-E口","15万元","7500元/m","20m","1层/共1层","临街门面-临街","面宽4m、层高6m、进深5m","经营中","餐饮美食-餐馆","18000元/月","暂无数据","办公、居民、旅游","===========顾客至上========诚信第①=========== 【香雪 煌上煌 】一、看铺须知 此铺位由老客户委托，如果诚心想要，价 格还可以再谈。此铺位带租约，看铺请勿打扰商家做生意 1，商铺简介：建筑面积为（20）方，层高（6）米 2，产权性质：业主证在手，产权清晰无抵押，交易安全 3，商铺状况：业主已经出租，租金稳定带长租，即买即 收 租 4，收   租：租金（18000）/月，每年递增8%。 5，该铺位置：香雪地铁口一线临街餐饮旺铺! 6，付 款方式：如果是一次性全 款，价钱还能再低点，商业贷款也可以 7，出 售理由：这个铺位是邻居委托本人帮转手的，业主急需要现金套现，所 以才卖这么便宜的二：铺位优势 1.回笼资金降价卖，低于市场价，一间 2.带独立私人产权证，红本在手，马上过户，产权清晰 3.租客稳定签约，租金8%，即买即收 租金 4.铺位一线临街，在主通道位置，出租非常抢手，租金\n\n\n\n联系我时，请说是在58同城上看到的，谢谢！","https://pic1.58cdn.com.cn/anjuke_58/2cf6af6e5faaf3ca37ccc85041ff7525?w=640&h=480&crop=1|https://pic1.58cdn.com.cn/anjuke_58/78208fafeeabb47a622f0b87679ac13e?w=640&h=480&crop=1|https://pic1.58cdn.com.cn/anjuke_58/ec6c5ba44697fad620c441cd33215ed1?w=640&h=480&crop=1|https://pic1.58cdn.com.cn/anjuke_58/9e086fec3456a2edf2dc6f578267a03d?w=640&h=480&crop=1|https://pic1.58cdn.com.cn/anjuke_58/d64e4868816694c7d49d25fecf7985f1?w=640&h=480&crop=1"]
objExcelWorkBook = Excel.OpenExcel("",true)
For i = 0 to 1
data = array
 if i = 0
 data = '''["链接失效"]'''
 data = JSON.Parse(data)
end if
Excel.WriteRow(objExcelWorkBook,"Sheet1","A"&i+1,data,true)
     
Next
-----------------------------------------------------------------------------------

上面就是代码，excle写入行数 前面写个短的 后面写个长的 写不进去！！！！会卡死！！！

刚刚写入， 现在excle卡住了...   一下都不带动的