投稿日 | : 2004/05/10(Mon) 08:45 |
投稿者 | : よいちょ |
Eメール | : |
URL | : |
タイトル | : excelのプロパティへ書き込めない |
いつもお世話になっております。
また行き詰まってしまいました。
アドインのVBから開いているexcelのプロパティを変更しようとしているのですができません。vbaでは出来たのですが。。「ファイル」−「プロパティ」のところです。
これは可能なんでしょうか?
コードは下記のようにしています。エラーは「このオブジェクトは、このプロパティ又はメソッドをサポートしていません。」とでます。
よろしくお願いします。
Public xlApp As Excel.Application
Set xlApp = GetObject(, "Excel.Application")
With xlApp
.BuiltinDocumentProperties(5).Value = _
xlApp.Cells(Gotyuumonnsaki.y, Gotyuumonnsaki.x) & "/" & vbLf & _
xlApp.Cells(Gonounyuusaki.y, Gonounyuusaki.x) & "/" & vbLf & _
xlApp.Cells(Banmeisyou.y, Banmeisyou.x)
End With