ActiveCell.Address in Outlook lesen

Question

Wie speichere ich die Adresse der aktiven Zelle in Excel in eine Variable in Outlook?

Outlook manipuliert eine Arbeitsmappe und ich möchte die aktive Zelle an den ursprünglichen Speicherort nach der Manipulation wiederherstellen.

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

Ich habe die Excel 15 Objektbibliothek referenziert.

Answer 1

Es wird einfacher, wenn Sie eine Range Variable verwenden, um die Anfangszelle zu speichern, bevor Sie Ihre Behandlung,
auf diese Weise werden Sie nur Ihren Code wie folgt wickeln müssen:

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 ist eine Eigenschaft des Application

Also ich denke, du bist für

Dim reactivateMeCell as String 
reactivateMeCell = xlB.ActiveCell.Address 

oder nur

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

suchen, je nachdem, was Sie als die Variable deklarieren möchten.