So-net無料ブログ作成
検索選択

マクロでブックのフルパスを取得する。 EXCEL VBA [マクロ]

以下はブックのフルパスを、アクティブセルに順番に書き込みます。
Sub fullpasu()
Set A = GetObject(, "Excel.Application")
For Each i In A.Workbooks
ActiveCell.Value = i.FullName
ActiveCell.Offset(1).Select
Next
End Sub
nice!(0)  コメント(0)  トラックバック(0) 
クリック募金 各サイトに直接つながります。
http://www.cosmo-oil.co.jp/kankyo/charity/
http://www.able.co.jp/company/contribute/new-action/clickable/
http://kakaku.com/donation/

http://www.j-energy.co.jp/cp/society/click_tp.php
http://www.chintai.net/contribution/index.html
http://www.nittsu.co.jp/corporate/contribution/1click.html

http://www.daiichisankyo.co.jp/csr/clickdonation/index.html
http://www.nippn.co.jp/csr/unicef/oneclick.html

nice! 0

コメント 0

コメントを書く

お名前:
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。

トラックバック 0

この記事のトラックバックURL:
メッセージを送る

この広告は前回の更新から一定期間経過したブログに表示されています。更新すると自動で解除されます。