Excel VBA質問箱 IV

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

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


9713 / 13644 ツリー ←次へ | 前へ→

【7197】別ファイルを開かずにシートのデータを取得したい M 03/8/26(火) 12:03 質問
【7198】Re:別ファイルを開かずにシートのデータを取... INA 03/8/26(火) 12:57 回答
【7199】Re:別ファイルを開かずにシートのデータを取... Jaka 03/8/26(火) 12:57 回答
【7223】Re:別ファイルを開かずにシートのデータを取... Jaka 03/8/27(水) 9:35 回答
【7230】すみません。お返事遅くなりました。 M 03/8/27(水) 12:05 お礼
【25840】Re:別ファイルを開かずにシートのデータを... Jaka 05/6/16(木) 11:20 発言[未読]

【7197】別ファイルを開かずにシートのデータを取...
質問  M  - 03/8/26(火) 12:03 -

引用なし
パスワード
   はじめまして。検索してみたのですが、見つけられなかったので質問させてください。

ファイル名とシート名を指定して、そのファイルを開かずに、A10〜B40のセルの値をコピーして、今開いているシートのB10〜C40へ貼り付けるということは可能でしょうか?

どなたかわかる方がいらっしゃいましたらご教授くださいm(_ _)m

【7198】Re:別ファイルを開かずにシートのデータを...
回答  INA  - 03/8/26(火) 12:57 -

引用なし
パスワード
   >ファイル名とシート名を指定して、そのファイルを開かずに、
不可能です。

○開く。処理する。閉じる。
○開く。非表示にする。処理する。閉じる。
とするしかないです。

【7199】Re:別ファイルを開かずにシートのデータを...
回答  Jaka  - 03/8/26(火) 12:57 -

引用なし
パスワード
   こんにちは。

1例
Sub jjjj()
Dim Mp As String, Clad As String
Mp = "'C:\Windows\デスクトップ"
For i = 1 To 2
  For ii = 10 To 40
    Clad = Cells(ii, i).Address(, , xlR1C1)
    Cells(ii, i).Value = Application.ExecuteExcel4Macro(Mp & "\[Book2.xls]Sheet1'!" & Clad)
  Next
Next
End Sub

単純にセル参照の関数を書きこんで
with range("A10:B40")
 .value=.value
end with
とした方が簡単なような気がします。

【7223】Re:別ファイルを開かずにシートのデータを...
回答  Jaka  - 03/8/27(水) 9:35 -

引用なし
パスワード
   反応が無く、どうでもよさそうな感じになっていますが...。

>単純にセル参照の関数を書きこんで
>with range("A10:B40")
> .value=.value
>end with
>とした方が簡単なような気がします。
上をちゃんと書くとこんな感じ。

Dim BKpth As String
BKpth = "'" & "C:\Windows\デスクトップ"
With Range("A10:B40")
  .FormulaR1C1 = "=IF(" & BKpth & "\[Book1.xls]Sheet1'!RC="""",""""," & _
           BKpth & "\[Book1.xls]Sheet1'!RC)"
  .Value = .Value
End With

【7230】すみません。お返事遅くなりました。
お礼  M  - 03/8/27(水) 12:05 -

引用なし
パスワード
   書込みをしてから、帰るまで他の作業をしていたのでこここれませんでした。

今朝会社の人が他サイトにてサンプルをGETしてきてくれて、それに少し手を加えて作ってしまいました。
今ファイルが手もとにないので載せられませんが希望する動きをしてくれるものができました。

みなさんありがとうございました。

【25840】Re:別ファイルを開かずにシートのデータ...
発言  Jaka  - 05/6/16(木) 11:20 -

引用なし
パスワード
   ここで、紹介されたのでちょうど良かったです。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=25832;id=excel

ExecuteExcel4Macroの方は、通常のセル参照と同じで、参照セルが空白の場合、0と返ってきます。
IF文でうまく分けられないから、その辺注意してください。

9713 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free