Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11171 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【17856】ファイルを開かずにセルの値を取得 ぐっさん 04/9/8(水) 20:52 質問[未読]
【17858】Re:ファイルを開かずにセルの値を取得 かみちゃん 04/9/8(水) 21:46 回答[未読]
【17859】Re:ファイルを開かずにセルの値を取得 IROC 04/9/8(水) 21:59 回答[未読]
【17860】Re:ファイルを開かずにセルの値を取得 ぐっさん 04/9/8(水) 22:02 お礼[未読]
【17856】ファイルを開かずにセルの値を取得
質問  ぐっさん  - 04/9/8(水) 20:52 -
引用なし
パスワード
   マクロ初心者です。
下記の動作はマクロで可能でしょうか？？

フォルダ配下に複数ある特定の文字を含むファイル名のファイルに対して、
ファイルを開かずにそのファイルの中の指定したセルの値を取得すること。

よろしくお願いいたします。
【17858】Re:ファイルを開かずにセルの値を取得
回答  かみちゃん  - 04/9/8(水) 21:46 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>フォルダ配下に複数ある特定の文字を含むファイル名のファイルに対して、
>ファイルを開かずにそのファイルの中の指定したセルの値を取得すること。

とりあえず、「ファイルを開かずにそのファイルの中の指定したセルの値を取得」するには、次のようにするとできると思います。

'参照ＵＲＬ
'http://homepage2.nifty.com/kmado/ke_c1.htm#E97C006
Range("A2").Select
With Selection
　.FormulaR1C1 = "='c:\dat\[book1.xls]Sheet1'!R2C1"
　.Copy
　.PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
【17859】Re:ファイルを開かずにセルの値を取得
回答  IROC  - 04/9/8(水) 21:59 -
引用なし
パスワード
   ご質問にはあっていないと思いますが、
>マクロ初心者です。
とのことなので、回答させて頂きます。

一般的には、
　・ブックを開く
　・値を取得
　・ブックを閉じる
の手順で処理します。
このとき、画面の表示を停止させることで
ブックを開いているようには見えなくすることは出来ます。

特別ブックを開いてはいけない理由が無いのであれば、
この方法で処理することをお勧め致します。

Dir関数をDo〜Loopのループ文で使用して、
順次、フォルダ内のファイルに対し、
上記の方法で処理することで
目的の処理が出来ると思います。
【17860】Re:ファイルを開かずにセルの値を取得
お礼  ぐっさん  - 04/9/8(水) 22:02 -
引用なし
パスワード
   ▼かみちゃん さん：
>とりあえず、「ファイルを開かずにそのファイルの中の指定したセルの値を取得」するには、次のようにするとできると思います。
>
>'参照ＵＲＬ
>'http://homepage2.nifty.com/kmado/ke_c1.htm#E97C006
>Range("A2").Select
>With Selection
>　.FormulaR1C1 = "='c:\dat\[book1.xls]Sheet1'!R2C1"
>　.Copy
>　.PasteSpecial Paste:=xlValues
>End With
>Application.CutCopyMode = False

ありがとうございます。
とても勉強になりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11171 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free