Excel VBA - JMPデータテーブルを閉じる<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />Excel VBAマクロで開かれたJMPデータテーブルを閉じようとしています。"
Excel VBエディタは私のコードを正常にコンパイルします(下記参照)。
しかし、実行すると、ランタイムエラー「オブジェクトは名前付き引数をサポートしていません」が発生します。
JMPオートメーションリファレンスは、DocumentオブジェクトのCloseメソッドについて次のように説明しています。
閉じる(SaveChangesをBoolean、FileNameをStringとして)
文書を閉じます。SaveChangesは、ドキュメントの最終保存用に異なるファイル名を指定するオプションをユーザーに提供します。SaveChangesがtrueの場合、FileNameをドキュメントを保存したいファイルのパスと名前に設定します。既存の文書に保存したい場合は、Saveメソッドを使用することをお勧めします。
DataTableオブジェクトに対してCloseメソッドが表示されないことに注意してください。
足りないものはありますか。
'------------------------------------
Sub CloseDT()
JMP.Applicationとして薄暗いアプリ
JMP.DocumentとしてDim doc
JMP.DataTableとしてDim dt
'JMPを起動
app = CreateObject( "JMP.Application")に設定します。
app.Visible = True
DTを開く
doc = app.OpenDocument( "C:¥Program Files¥SAS¥JMP¥11¥Samples¥Data¥Big Class.jmp"に設定します)
dt = doc.GetDataTableに設定します。
dt.Activate
'DTを修正
'**********
'DTを保存して閉じる
doc.Close saveChanges:= True、Filename:= "C:¥Program Files¥SAS¥JMP¥11¥Samples¥Data¥Big Class.jmp"
終了サブ
再:Excel VBA - JMPデータテーブルを閉じるさて、私はVBの構文を考え出しました。最後の行をこれに置き換えました。
'ファイルを保存
doc.SaveAs "C:¥Program Files¥SAS¥JMP¥11¥Samples¥Data¥Big Class.jmp"
'ファイルを閉じる
doc.Close False、""