Fehler beim wiederholten ausführen der Macro
17.12.2003 10:02:59
Valentin
Habe folgendes Problem:
Ich habe ein Macro das aus Outlook heraus in einer Excel Arbeitsmappen ein Blatt mit dem Firmennamen eines Outlook Kontakts erstellt und als letztes Blatt dieser Arbeitmappe einfügt. Das funktioniert auch prima beim ersten Mal ausführen. Schliesse ich aber danach Excel und starte die Macro erneut mit einem anderen Kontakt bekomme ich eine Fehlermeldung Fehler 1004, Fehler in der Methode 'Worksheets' des Objekts "_Global" in Linie myexapp.Sheets.Add.Move After:=Worksheets(b)
Schliesse ich Excel un starte das Macro erneut funktioniert es wieder. Wo könnte hier der Fehler liegen.
Vielen Dank im Voraus!
Der ganze Code sieht folgendermassen aus:
Sub Test_Carpeta()
Dim sDir As String
Dim b As Long
Dim sfile As String
Dim iopen As Integer
Set myItem = ActiveInspector.CurrentItem
a = myItem.CompanyName
f = myItem.FullName
g = myItem.BusinessTelephoneNumber
k = myItem.MobileTelephoneNumber
spath = "C:\Documents and Settings\libbiv0\Mis documentos\"
Set myexapp = CreateObject("Excel.Application")
myexapp.Visible = True
myexapp.Workbooks.Open (spath & "mis clientes.xls")
b = myexapp.Workbooks("mis clientes.xls").Worksheets.Count
myexapp.Sheets.Add.Move After:=Worksheets(b)
myexapp.ActiveSheet.Name = Left(a, 30)
myexapp.Cells(1, 1) = a
myexapp.Cells(2, 2) = f
myexapp.Cells(2, 4) = g
myexapp.Cells(2, 6) = k
myexapp.Cells(4, 1) = Now
myexapp.Cells.EntireColumn.AutoFit
myexapp.Workbooks("mis clientes.xls").Save
myexapp.Workbooks("mis clientes.xls").Close
Set myexapp = Nothing
End Sub