ブック名の指定

解決済

質問者：guruguru2
質問日時：2003/07/23 14:15
回答数：3件

Excelのワークブックの名前を下記のプログラム中の★の所に指定したいのですが、どうやったら、いいのでしょうか(T T)。値の取得しかわからなくて…。
Dim xlbook As Excel.Workbook

★XlbookのName　を指定のブック名に★

xlbook.Close
Set xlbook = Nothing

教えていただきたいです。お願いします。m(_ _)m

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： taisuke555
回答日時：2003/07/23 15:59

質問と違っていたらすみません。

開いているブックを閉じるのならば、
新規ブック
Workbooks("Book1").Close
保存されたブック
Workbooks("Book1.xls").Close

でいいと思いますが・・・
こういう事ではないのですか？

Set xlbook = Workbooks("Book1")

- 0
- 件

通報する

この回答へのお礼

ありがとうございます！！現在開いているブック名を
Set xlbook = Workbooks(ブック名)
の形で指定したかったのですが
Workbooks(ブック名).Close
でやればsetで指定せずともクローズできますね！！(^^)
ありがとうございます。

通報する

お礼日時：2003/07/23 16:39

No.3

回答者： 2ch
回答日時：2003/07/23 16:11

If (Xlbook.FullName Like "\") Then

　　上書き
　　Xlbook.Save
Else
　　新規保存
　　Xlbook.SaveAs "ファイルパス"
End If

- 0
- 件

通報する

この回答へのお礼

いつもありがとうございます。無事解決しました。(^ ^)

通報する

お礼日時：2003/07/23 16:40

No.1

回答者： maruru01
回答日時：2003/07/23 14:30

こんにちは。

maruru01です。

こんな感じでしょうか。

Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook

Set xlBook = xlApp.Workbooks.Open("ファイル名フルパス")

'処理

xlBook.Close
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing

この回答への補足

いち早く教えていただいてありがとうございます。ですが、困ったことに新規で作成されたブックも対象となるので、フルパスが取得出来なさそうなのですが…。やりたいことを簡単に言うと、現在起動している複数のブックの中からある一つのブックのみをクローズさせたいということなんです。（もちろんアクティブになっているとは限りません。）その場合、Excel上でブックを違う場所へ保存されてしまった場合のフルパスの取得はできるのでしょうか？

補足日時：2003/07/23 14:55

通報する