Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7536 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【38545】worksheetsメソッド わぐ 06/6/6(火) 12:05 発言[未読]
【38553】Re:worksheetsメソッド inoue 06/6/6(火) 12:41 発言[未読]
【38566】Re:worksheetsメソッド Kein 06/6/6(火) 14:12 発言[未読]
【38580】Re:worksheetsメソッド わぐ 06/6/6(火) 16:52 お礼[未読]
【38545】worksheetsメソッド
発言  わぐ  - 06/6/6(火) 12:05 -
引用なし
パスワード
   はじめまして

ココの質問箱やGoogleで検索をしたのですが回答が見つからなかったので
質問させてください

下記のようなコードを実行しようとすると
「実行時エラー worksheetsメソッドは失敗しました _workbookオブジェクト」
とでます
YYY = Workbooks("XX.xls").Worksheets("sheet1").Range("e2").Value

EXCEL2003ですがエラーが出るやつと出ないものがあります
解決方法がわかる方 いらっしゃいましたらお教えください
よろしくお願いします
【38553】Re:worksheetsメソッド
発言  inoue E-MAILWEB  - 06/6/6(火) 12:41 -
引用なし
パスワード
   >下記のようなコードを実行しようとすると
>「実行時エラー worksheetsメソッドは失敗しました _workbookオブジェクト」
>とでます
>YYY = Workbooks("XX.xls").Worksheets("sheet1").Range("e2").Value
問題を切り分けるために、１行で済ませずに
きちんと変数を宣言して処理してはいかがでしょう。

Dim WBK As Workbook
Dim SH As Worksheet
Dim YYY As String
Set WBK = Workbooks("XX.xls")
Set SH = WBK.Worksheets("sheet1")
YYY = SH.Range("e2").Value

どこでどのようなエラーになるかによって対処方法が見えてくるかも知れません。
【38566】Re:worksheetsメソッド
発言  Kein  - 06/6/6(火) 14:12 -
引用なし
パスワード
   Worksheets("sheet1")
↓

Worksheets("Sheet1")
【38580】Re:worksheetsメソッド
お礼  わぐ  - 06/6/6(火) 16:52 -
引用なし
パスワード
   inoue さん, keinさん 回答ありがとうございます

inoueさんとkeinさんのアドバイス通り
いろいろとやってみたところ
Set SH = WBK.Worksheets("Sheet1")
の部分で今までと同じメッセージのエラーが出てしまいました

また起動するたびにエラーが出たり出なかったりしました
2003を入れ直しやコードをもう一回書いて様子を見ようと思います

お忙しいところ回答して頂きありがとうございます
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7536 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free