<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />Ich versuche, eine JMP-Datentabelle zu schließen, die über ein Excel-VBA-Makro geöffnet wurde. "
Der Excel VB-Editor kompiliert erfolgreich meinen Code (siehe unten).
Beim Ausführen erhalte ich jedoch einen Laufzeitfehler "Objekt unterstützt keine benannten Argumente".
In der JMP-Automatisierungsreferenz wird die Close-Methode für das Document-Objekt folgendermaßen beschrieben:
Close (SaveChanges as Boolean, Dateiname als Zeichenfolge)
Schließt das Dokument. SaveChanges gibt dem Benutzer die Möglichkeit, einen anderen Dateinamen für das endgültige Speichern des Dokuments anzugeben. Wenn SaveChanges auf true gesetzt ist, setzen Sie FileName auf den Pfad und den Namen der Datei, in der das Dokument gespeichert werden soll. Wenn Sie im vorhandenen Dokument speichern möchten, wird empfohlen, die Save-Methode zu verwenden.
Beachten Sie, dass für das DataTable-Objekt keine Close-Methode angezeigt wurde.
Fehlt mir etwas?
'------------------------------------
Sub CloseDT ()
Dim-App als JMP.Application
Dim doc Als JMP.Dokument
Dim dt As JMP.DataTable
'Starten Sie JMP
Set app = CreateObject ("JMP.Application")
app.Visible = True
'DT öffnen
Legen Sie doc = app.OpenDocument fest ("C: \ Programme \ SAS \ JMP \ 11 \ Samples \ Data \ Big Class.jmp").
Legen Sie dt = doc.GetDataTable fest
dt.Activate
'DT ändern
'**********
'Speichern und schließen Sie DT
doc.Close saveChanges: = True, Dateiname: = "C: \ Programme \ SAS \ JMP \ 11 \ Samples \ Data \ Big Class.jmp"
End Sub
OK, ich habe die VB-Syntax herausgefunden. Ich habe die letzte Zeile damit ersetzt:
'Datei speichern
doc.SaveAs "C: \ Programme \ SAS \ JMP \ 11 \ Samples \ Data \ Big Class.jmp"
'Datei schließen
doc.Close False, ""
