Excel VBA質問箱 IV

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

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


74004 / 76732 ←次へ | 前へ→

【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
とした方が簡単なような気がします。

0 hits

【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 発言

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