ここから本文です

エクセルVBAでファイル名の読み込みができません。

このエントリーをはてなブックマークに追加

質問者

kyackyakyackyaさん

2009/3/210:56:42

エクセルVBAでファイル名の読み込みができません。

開いているファイル名をセルに書き出そうとして、
以下のようにマクロを組んでいます。

Dim wb As Worksheet
Dim i As Integer, j As Integer

ThisWorkbook.ActiveSheet.Activate

'作業用データの削除
If Range("A1").Value > 0 Then
Range("A1:A5").ClearContents
End If

'開いているファイルを読み込む
i = 1
For Each wb In Workbooks
If wb.Name <> ActiveWorkbook.Name Then
Cells(i, 1).Value = wb.Name
i = i + 1
End If
Next

**********

i = 1
For Each wb In Workbooks
If wb.Name <> ActiveWorkbook.Name Then
Cells(i, 1).Value = wb.Name
i = i + 1
End If
Next

のところなのですが、これ単独では動くのですが、まとまって動こうとすると、
For Each wb In Workbooksのところで「型が一致しません。」といわれ、
エラーになってしまいます。

何が原因なのでしょうか?
分かる方、よろしくお願いします。
ThisWorkbook以外のファイル名をセルに書き出したいだけです。

閲覧数:
601
回答数:
2
お礼:
25枚

違反報告

ベストアンサーに選ばれた回答

2009/3/211:05:54

>これ単独では動くのですがまとまって動こうとすると、・・・
こちらでは単独でも同型エラーになります
状況が違うのか????

Dim wb As Worksheet

Dim wb As object
を試して見てください

質問した人からのコメント

2009/3/2 11:12:50

ありがとうございます!
早い対応もとても助かりました!

ちょい足しを取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル
  • このエントリーをはてなブックマークに追加

このQ&Aで解決しましたか?質問する

閉じる

ベストアンサー以外の回答
1〜1件/1件中

afline5555さん

2009/3/211:04:53

Dim wb As Worksheet となっているからでは?

ちょい足しを取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

ID/ニックネームを選択し、「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問や知恵ノートは選択されたID/ニックネームのMy知恵袋で確認できます。

ほかのID/ニックネームで利用登録する