将ActiveCell.Address读入Outlook

如何将Excel中活动单元格的地址存储到Outlook中的variables中？

Outlook正在操作一个工作簿，我想在操作之后将活动单元恢复到原来的位置。

Set xl = GetObject(, "Excel.Application") Set xlB = xl.Workbooks("DWG_CHECKLIST") reactivateMeSheet = xlB.ActiveSheet.Name reactivateMeCell = xlB.Sheets(reactivateMeSheet).ActiveCell.Address 

我已经引用了Excel 15对象库。

Answer 1

如果你使用一个Rangevariables来存储你的治疗之前的初始单元格会更容易，
这样你只需要像这样包装你的代码：

 Set xl = GetObject(, "Excel.Application") Set xlB = xl.Workbooks("DWG_CHECKLIST") Dim reactivateMeCell As Object 'Excel.Range xlB.Activate Set reactivateMeCell = xl.ActiveCell '''Your code With reactivateMeCell .Parent.Parent.Activate .Parent.Activate .Activate End With 'reactivateMeCell 

Answer 2

ActiveCell是应用程序的一个属性

所以我觉得你在找

 Dim reactivateMeCell as String reactivateMeCell = xlB.ActiveCell.Address 

要不就

 Dim reactivateMeCell as Object 'Excel.Range reactivateMeCell = xlB.ActiveCell 

取决于你想要声明的variables。