このページについて
 
このページは、mura's home の AutoCAD掲示板 で、当方の発言（書込み）がある以下の掲示板の内容です。
http://www.mura.sh/bbs/wwwbbs.cgi?print+200509/05090126.txt
 
タイトルおよび質問内容は上記より引用しています。
 
引用した質問内容は、バックカラーが

　　　

となっています。
 
当方の発言は、バックカラーが

　　　

となっています。
 
その他の著作権者の掲載許可を得ていない発言内容は削除（リンクを除く）しています。
 
また、当方では、削除部分の正当な著作権保持者を判断出来ませんので、
ご連絡を頂いても、復活させることは出来ません。ご了承下さい。
 
 
掲示板の著作権について
 
掲示板への匿名の書き込みであっても、著作権（著作権法）で保護されています。
また、判例（確定した判決）もあります。
 
裁判所　判例検索システム

ホテルジャンキーズ事件
知的財産裁判例
知的財産裁判例 		平成13(ワ)22066　　著作権　民事訴訟
平成14年04月15日　東京地方裁判所		 全文 控訴
付帯控訴
知的財産裁判例
知的財産裁判例 		平成14(ネ)2887　　著作権　民事訴訟
平成14年10月29日　東京高等裁判所		 全文 確定

ただし、あらかじめ取り決めがある場合は、その取り決めが優先します
 ※たとえば、OKWave の掲示板 （利用規約／第10条（投稿内容の利用権））
 
 
 

vbaでファイルを閉じるには

▼ se1 2005/09/15(木) 19:00:28

いつもお世話になっております
はじめたばかりのvbaで質問です
ブロック（属性付）の入っているファイルを
ThisDrawing.Application.Documents.Open（ファイル）
にて開きファイルから属性を抽出して閉じ、また
別のファイルを開き処理をし閉じたいのですが
閉じ方がうまくいきません。
ThisDrawing.Application.Documents.Close
で最後に全ファイルを閉じることは出来るのですが
ファイルが多すぎて・・・
きっともっとうまいやり方があるのかもしれませんが・・・
御手数ですが、どなたか御教示願います。

▼ AK [HOMEPAGE] 2005/09/15(木) 21:06:03

以下の方法でいかがでしょう？

Option Explicit
Sub MyDoc_OpenClose()
Dim MyDoc As AcadDocument
Dim MyDocFullName As String
    MyDocFullName = "C:\temp\test.dwg"
    Set MyDoc = ThisDrawing.Application.Documents.Open(MyDocFullName)
    '
    '必要な処理・・・
    '
    MyDoc.Close
End Sub


ファイルが１つなら上の方法がよろしいかと
多数の中の１つのみクローズするなら、

Option Explicit
Sub MyDoc_OpenClose2()
Dim MyDoc, Doc As AcadDocument
Dim MyDocFullName As String
    MyDocFullName = "C:\temp\test.dwg"
    ThisDrawing.Application.Documents.Open　(MyDocFullName)
    '
    '必要な処理・・・
    '
    For Each Doc In Documents
       If Doc.FullName = MyDocFullName Then
           Doc.Close
       End If
    Next
End Sub


ご参考まで・・・
我流のＶＢＡなので、詳しい方添削お願いします

▼ se1 2005/09/16(金) 08:52:47

著作権者の許可を得ていないため削除
 
 
 

▼ se1 2005/09/16(金) 14:17:36

≪ 解決 ≫

著作権者の許可を得ていないため削除
 

▼ se1 2005/09/16(金) 14:20:13

≪ 解決 ≫

著作権者の許可を得ていないため削除