Im Folgenden finden Sie den VBScript-Code zum Löschen der Duplikate aus einer Excel-Arbeitsmappe und zum anschließenden Kopieren in eine andere. Beim Ausführen wird eine Fehlermeldung angezeigt.

Objekt benötigt: Activesheet

Dies ist der Code:

Set objExcel = CreateObject("Excel.Application")    

' Open the workbook
Set objWorkbook1 = objExcel.Workbooks.Open("C:\Users\vijendra\Desktop\duplicates.xlsx")

Macro

Sub Macro1()
  activesheet.UsedRange.RemoveDuplicates Columns=Array(), Header=xlYes
End Sub

'Opening the 2nd workbook
Set objworkbook2 = objExcel.Workbooks.Open("C:\Users\vijendra\Desktop\test2.xlsx")

'Set to True or False, whatever you like
objExcel.Visible = True

'Select the range on Sheet1 you want to copy 
objWorkbook1.Worksheets("Sheet1").usedrange.Copy

'Paste it on sheet1 of workbook2, starting at A1
objWorkbook2.Worksheets("Sheet1").Range("A1").PasteSpecial

'Activate Sheet2 so you can see it actually pasted the data
objWorkbook2.Worksheets("Sheet1").Activate