みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセルVBAで困っています。

Excell2003でマクロを作成したのですが、思うような結果が出なくて困っています。
どなたかお力をお貸しください。 お願いします。

【作成したマクロ】

Sub テスト()
  myPath = ThisWorkbook.Path
  buf = Dir(myPath & "¥データ¥" & "*.xls")
  Do While buf <> ""
    Target = "'" & myPath & "[" & buf & "]Sheet1'!R1C1"
    i = i + 1
    Cells(i, 1) = buf
    Cells(i, 2) = ExecuteExcel4Macro(Target)
    buf = Dir()
  Loop
End Sub


【設定状況】
・デスクトップ上に "サンプル.xls" があり、ThisWorkBookに上記マクロを書きました。
・デスクトップ上に "データ" というフォルダがあり、その中に、"Book1.xls" と "Book2.xls" があります。
・"Book1.xls" のSheet1のRange("A1")には "あいうえお" が入力されています。
・"Book2.xls" のSheet1のRange("A1")には "かきくけこ" が入力されています。


【マクロ実行結果】
・Range("A1") ・・・ Book1.xls
・Range("B1") ・・・ #REF!
・Range("A2") ・・・ Book2.xls
・Range("B2") ・・・ #REF!
となってしまいます。


【求めたい結果】
・Range("A1") ・・・ Book1.xls
・Range("B1") ・・・ あいうえお
・Range("A2") ・・・ Book2.xls
・Range("B2") ・・・ かきくけこ



よろしくお願いします。

投稿日時 - 2012-11-11 01:14:22

QNo.7791680

困ってます

質問者が選んだベストアンサー

まちがい:
Target = "'" & myPath & "[" & buf & "]Sheet1'!R1C1"

正解:
Target = "'" & myPath & "\データ\[" & buf & "]Sheet1'!R1C1"


なお全角の¥と半角の\も間違えないように、十分に念を入れて確認してください。

投稿日時 - 2012-11-11 01:56:00

お礼

ありがとうございました。
1日中悩んでいて、何で\データ\に気が付かなかったのだろうと、自分が情けなくなりました。
でもこれでスッキリしました。 本当にありがとうございました。

投稿日時 - 2012-11-11 06:05:29

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問