Excel VBA - Fermer le tableau de données JMP<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />J'essaie de fermer une table de données JMP ouverte via une macro VBA Excel ".
L'éditeur Excel VB compile avec succès mon code (voir ci-dessous).
Cependant, lorsque je l'exécute, l'erreur d'exécution suivante s'affiche: "L'objet ne prend pas en charge les arguments nommés".
La référence d'automatisation JMP décrit la méthode Close pour l'objet Document de la manière suivante:
Fermer (SaveChanges as Boolean, FileName As String)
Ferme le document. SaveChanges donne à l'utilisateur la possibilité de spécifier un nom de fichier différent pour une sauvegarde finale du document. Si SaveChanges a la valeur true, définissez FileName sur le chemin et le nom du fichier où vous souhaitez enregistrer le document. Si vous souhaitez enregistrer dans le document existant, il est recommandé d'utiliser la méthode Save.
Notez que je n'ai pas vu une méthode Close pour l'objet DataTable.
Y a-t-il quelque chose qui me manque?
'----------------------------------------
Sub CloseDT ()
Dim app As JMP.Application
Dim doc comme JMP.Document
Dim dt As JMP.DataTable
'Démarrer JMP
Définir app = CreateObject ("JMP.Application")
app.Visible = True
'Open DT
Définir doc = app.OpenDocument ("C: \ Programmes \ SAS \ JMP \ 11 \ Exemples \ Data \ Big Class.jmp")
Définir dt = doc.GetDataTable
Activer
'Modifier DT
'**********
'Sauvegarder et fermer DT
doc.Close saveChanges: = True, Nom du fichier: = "C: \ Program Files \ SAS \ JMP \ 11 \ Samples \ Data \ Big Class.jmp"
End Sub
Re: Excel VBA - Fermer le tableau de données JMPOK, j'ai compris la syntaxe VB. J'ai remplacé la dernière ligne par ceci:
'Enregistrer le fichier
doc.SaveAs "C: \ Program Files \ SAS \ JMP \ 11 \ Samples \ Data \ Big Class.jmp"
'Fermer le fichier
doc.Fose False, ""
