Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

63844 / 76732

←次へ　｜　前へ→


	【17479】Re:実際のワークシート数について

つん

- 04/8/31(火) 13:40 -


	引用なし

	パスワード

こんにちは。
横から失礼します。

>Worksheets(I).Activateでエラーとなります。
>
>Do While (Len(I_FNAME) <> 0)
>　 If Right$(I_FNAME, 4) = ".XLS" Or Right$(I_FNAME, 4) = ".xls" Then
>　　　
>　　　Workbooks.Open FileName:=F + I_FNAME
>　　　
　　　　　　↓
>　　　K = Worksheets.Count
>　　　LDX = SDX
>　　　For I = 1 To K Step 1
>　　　
　　　　　　↓
>　　　　　Worksheets(I).Activate

「↓」の部分で、ちゃんとブック名から指定すればどうですか？
それか、ブックをオープンした時点で変数に入れて、それで処理するとか・・・

1 hits

▼

【17474】実際のワークシート数について 西ヤン 04/8/31(火) 12:21