outlook中VBA字典出现错误

ztccsj

从outlook中导出邮件到excel文件中，如果使用单元格赋值myWorksheet.cells(1, 1) ，可以运行，但是速度很慢，为了提高速度，我想使用字典，但字典内容保存到excel文件中时就报错，“运行时错误 438 对象不支持属性或方法“  ，以下最后一行就报错，死活不知道错在了哪里，请求诊断，万分感谢

.......
Set myWorksheet = myWorkbook.Sheets("Sheet1")
myWorksheet.cells(1, 1) = "接收时间"
myWorksheet.cells(1, 2) = "上级目录"
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
myWorksheet.Range("g1").Select
myWorksheet.Range("g1").Resize(d.Count, 1) = Application.Transpose(d.keys)

changhong8

看看跟这个是不是一个毛病
http://club.excelhome.net/forum.php?mod=viewthread&tid=1352510

lh123lh1234

单纯代码上看没有问题

changhong8

文字超过255个字符时不能转置

ztccsj

changhong8 发表于 2019-12-1 11:55
看看跟这个是不是一个毛病
http://club.excelhome.net/forum.php?mod=viewthread&tid=1352510

谢谢，我测试了一天都没解决，我尝试了很多也查阅了很多资料，以前也用过转置函数，当时也没什么问题，虽然知道受限，但一般数据都能解决，谁知道测试用的字典就那么两行数据，也不能使用。

去掉转置函数后就解决了，谢谢，不过速度也没提升多少，十多兆的excel文件打开也没慢

changhong8

不需要用d.add 1，123的形式，直接d(1)=123