Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2937 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【65298】特定端末でのエラー アルディ 10/5/6(木) 14:05 質問[未読]
【65299】Re:特定端末でのエラー 独覚 10/5/6(木) 14:30 回答[未読]
【65302】Re:特定端末でのエラー アルディ 10/5/6(木) 14:47 お礼[未読]
【65303】Re:特定端末でのエラー 独覚 10/5/6(木) 14:47 発言[未読]
【65300】Re:特定端末でのエラー kanabun 10/5/6(木) 14:33 発言[未読]
【65301】Re:特定端末でのエラー kanabun 10/5/6(木) 14:35 発言[未読]
【65298】特定端末でのエラー
質問  アルディ  - 10/5/6(木) 14:05 -
引用なし
パスワード
   月次報告書のＶＢＡを作成しております。
複数の担当者から報告書の作成が出来る様、ファイルを共有サーバに置いたところ
特定の端末のみ下記のラインでエラーとなってしまいます。
端末設定不備、ＶＢＥ設定不備、記述の誤りなのか判らずに困っています。
エラー要因の切り分け方法についてのアドバイスを宜しくお願い致します。

'報告用シートのコピー
　　　Windows("エリア.xls").Activate
　　　Sheets(Array("★別紙１", "★別紙２", "★報告書")).Select
※下記の行でSheets(1)の前にコピー出来ずにエラーとなってしまいます***
　　　Sheets(Array("★別紙１", "★別紙２", "★報告書")).Copy Before _
　　 　　:=Workbooks("エリア（" & 報告月 & 報告後部).Sheets(1)
【65299】Re:特定端末でのエラー
回答  独覚  - 10/5/6(木) 14:30 -
引用なし
パスワード
   エラーの無い端末では「コントロールパネル」―「フォルダオプション」の「表示」タブで
「登録されている拡張子は表示しない」にチェックが入っていませんか？

上記にチェックが入っている場合は「Workbook(ブック名)」でも「Workbook(ブック名.xls)」でも
エラーになりませんが上記にチェックが入っていない場合、「Workbook(ブック名.xls)」でないと
「インデックスが有効範囲にありません」エラーになります。

どちらの設定が両方ある場合には、「Workbook(ブック名.xls)」形式にしておいた方がいいかと。

　 　　:=Workbooks("エリア（" & 報告月 & 報告後部&".xls").Sheets(1)
でしょうか。
【65300】Re:特定端末でのエラー
発言  kanabun  - 10/5/6(木) 14:33 -
引用なし
パスワード
   ▼アルディ さん：

>特定の端末のみ下記のラインでエラーとなってしまいます。
>端末設定不備、ＶＢＥ設定不備、記述の誤りなのか判らずに困っています。
>エラー要因の切り分け方法についてのアドバイスを宜しくお願い致します。
>

>※下記の行でSheets(1)の前にコピー出来ずにエラーとなってしまいます***
>　　　Sheets(Array("★別紙１", "★別紙２", "★報告書")).Copy Before _
>　　 　　:=Workbooks("エリア（" & 報告月 & 報告後部).Sheets(1)

よく見てませんが、
> Workbooks("エリア（" & 報告月 & 報告後部)

Book名に 拡張子.xls が省略されてますね？
【65301】Re:特定端末でのエラー
発言  kanabun  - 10/5/6(木) 14:35 -
引用なし
パスワード
   独覚 さん、失礼しました。かぶりました。
【65302】Re:特定端末でのエラー
お礼  アルディ  - 10/5/6(木) 14:47 -
引用なし
パスワード
   独覚　様

　早々のご回答有難う御座いました。

>「登録されている拡張子は表示しない」にチェックが入っていませんか？

　上記につきましてチェックを入れたところ、ＯＫとなりました。

>どちらの設定が両方ある場合には、「Workbook(ブック名.xls)」形式にしておいた方がいいかと。

　今後はアドバイス頂いたとおり統一致します。
　ご教授、有難う御座いました。
　
【65303】Re:特定端末でのエラー
発言  独覚  - 10/5/6(木) 14:47 -
引用なし
パスワード
   あっ、変数名と「&」をくっつけちゃうのはまずいですね（汗

:=Workbooks("エリア（" & 報告月 & 報告後部 & ".xls").Sheets(1)
としてください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2937 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free