
ExcelのVBAの質問になりますが、教えてください。
下記を動かすと最後の行で「'Range'メソッドは失敗しました: '_Worksheet' オブジェクト」と出ます
どうしても最後の行をセレクトしたいのですが、どうしたらよいでしょうか。
Option Explicit
Public WB1 As Workbook
Public WB1SH1 As Worksheet
Public CSVWB1 As Workbook
Public CSVWB1SH1 As Worksheet
Dim MaxRow As Integer
Private Sub CommandButton1_Click()
Set WB1 = ActiveWorkbook
Set WB1SH1 = WB1.Worksheets(1)
Dim a As String
a = WB1SH1.Range("a1)
Workbooks.Open "C:\Users\User\Desktop\" & a & ".CSV"
Set CSVWB1 = ActiveWorkbook
Set CSVWB1SH1 = CSVWB1.Worksheets(1)
MaxRow = CSVWB1SH1.Cells(Rows.Count, 1).End(xlUp).Row
WB1SH1.Activate
WB1SH1.Range(Cells(1, 1), Cells(MaxRow, 3)).Select
CSVWB1SH1.Activate
CSVWB1SH1.Range(Cells(1, 1), Cells(MaxRow, 3)).Select '←ここでエラーがでる
End Sub

No.1ベストアンサー
- 回答日時:
初心者さんが必ず一度は失敗します。
>Private Sub CommandButton1_Click()
のようにシートオブジェクトに記載したマクロでは、シートを修飾しないセル(レンジ)オブジェクトは全て「マクロを記載したシート」に紐付けられています。
CSVWB1SH1.Range(CSVWB1SH1.Cells(1, 1), CSVWB1SH1.Cells(MaxRow, 3)).Select
のようにしなければいけません。
keithin様
早々のご回答ありがとうございます。
回答をメールで確認できたおかげで午前中に出先で処理ができました。
見事動きました!!
自己流でコードを組んでいるためとても読みづらかったと思われるのに
的確なご指摘で驚きました。
自分では全く何がダメなのかわからず困り果てての質問だったため感動
しました。
本当にありがとうございました。
No.2
- 回答日時:
こんにちは。
私のように細かなことを言う人はいないかと思いますが、少し我慢してください。
Private Sub CommandButton1_Click()
ということは、シートモジュール(オブジェクトモジュール)ですね。
シートモジュール上で、Public ステートメントが使えません。
シートモジュールに、もし入れるなら、
Dim Wb1 As Workbook
Dim Wb1Sh1 As Worksheet
Dim CSVwb1 As Workbook
Dim CSVwb1Sh1 As Worksheet
Dim MaxRow As Integer
のようにしますが、ブックが閉じるまで、変数を抱えることになりますから、必要以上には、モジュールスコープ(=そのモジュールだけの範囲)でも、用いません。
Public ステートメントを使うなら、標準モジュールを使います。しかし、Public ステートメントは、慎重に使わないといけない書き方です。テキストには「グローバル変数(Public変数)はできる限り使わない」ということが書かれています。それは、プロジェクト全体に関わってきますので、通常、使っても、モジュール内だけにします。ちなみに、なぜ「グローバル」と呼ぶのか、少し疑問がつくのは、厳密には、複数のプロジェクト間には使えないからです。
それと、変数は、大文字・小文字を含めていれるというのが、標準的な記法です。そうすることによって、入力ミスを減らすわけです。大文字だけで書くのは、定数に限ります。
例:
'標準モジュール
Public Wb1 As Workbook
Public Wb1Sh1 As Worksheet
Public CSVwb1 As Workbook
Public CSVwb1Sh1 As Worksheet
また、VB6系では、Sub プロシージャ名の直下から、Dim の変数定義の宣言をまとめるというのが通例になっていますから、
Private Sub CommandButton1_Click()
Dim a As String '←ここに置く
Set Wb1 = ActiveWorkbook
Set Wb1Sh1 = WB1.Worksheets(1)
---------------------
Set Wb1 = ActiveWorkbook
Set Wb1Sh1 = Wb1.Worksheets(1)
実際は、このようには書きません。Worksheet("*****") を変数に入れた時に、すでに親オブジェクトの、Workbookも含まれていますから、2つにする必要はありません。
Set Wb1Sh1 = ActiveWorkbook.Worksheets(1) '←出来る限り、パラメータは、シート名にしてください。
だけで良いです。
----------------------
このコードは少し問題がありますから、正確には書けませんが、Rangeのパラメータで、Cells を2ついれることは、ふつうはしません。いずれにしても、なるべく、Withステートメントを使うようにしましょう。(オブジェクトの前に、ピリオド[.]が入っていますから、注意してください)
もちろん、前に変数を使って、コンテナ型(親オブジェクトから全部入れる)という方法も悪くはありませんが、VBAの書き方の基本は、文字数を少なくして、なおかつ可読性を悪くしないということです。
'//
With Wb1Sh1
.Activate
.Range(.Cells(1, 1), .Cells(MaxRow, 3)).Select
'前々行のActivate を含めて、実務上は、Activate やSelect はあまり使いません。これらのメソッドはユーザーに見せるために使うものです。
End With
With CSVwb1Sh1
.Activate
.Range(.Cells(1, 1), .Cells(MaxRow, 3)).Select 'こちらも同様です。
End With
'//
記法の参考資料です。今さらという人もいるかもしれませんが、私でも参考にしています。
コーディング技法(VS.Net 2003)
http://msdn.microsoft.com/ja-jp/library/aa291593 …
Microsoft Office 2000/Visual Basic プログラマーズ ガイド
http://msdn.microsoft.com/ja-jp/library/cc375992 …
私は、この書籍版を手に入れています。
面倒な話を長く書きましたが、少しずつ習得してみてください。信じないかもしれませんが、これを覚えればエラーが減り、自然と上達していきます。なお、インデント(桁下げ)は、mougで知られた渡辺さんという方の、VBePlus というツールを使っています。これも、エラーを発見するためです。
WindFaller様
ご指導、ありがとうござます。
初心者で独学の私にはとても勉強になりました。
>シートモジュール上で、Public ステートメントが使えません
>変数は、大文字・小文字を含めていれるというのが、標準的な記法です
>大文字だけで書くのは、定数に限ります
>Subプロシージャ名の直下から、Dim の変数定義の宣言をまとめるというのが通例
これらはどれも知りませんでした。。。
>親オブジェクトの、Workbookも含まれていますから、2つにする必要はありません。
2個も書く必要はないのですね!!少しコンパクトになります!
>なるべく、Withステートメントを使うようにしましょう
Withはとても苦手で避けているところが自分にあります。
もっと勉強して活用します。
記法の参考資料、Web版も参考になりますが、書籍版ももっと興味があります。
Web版を活用してみて自分にあっていそうだったら入手を考えてみます。
ご指導、ありがとうございました。感謝いたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
マクロの「Rangeメソッドは失敗しました’Globalオブジェクト」エラーの解決方法について
Excel(エクセル)
-
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
VBA 実行時エラー1004 rangeメソッドは失敗しました。globalオブジェクトのエラー
Excel(エクセル)
-
-
4
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
5
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
6
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
7
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
8
Worksheets メソッドは失敗しました。のエラー処理のやり方
Visual Basic(VBA)
-
9
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
10
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
11
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
12
VBAで文字列を数値に変換したい
Excel(エクセル)
-
13
VBA マクロ実行時エラー’1004RangeクラスのPasteSpecialメソッドが失敗
Access(アクセス)
-
14
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
15
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
-
16
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
17
特定の複数のシートに同じ処理をさせたい
Excel(エクセル)
-
18
実行時エラー'1004''Range'メソッドは失敗しました:'_Worksheet'オブジェクト
Excel(エクセル)
-
19
VBAでセル入力の数式に変数を用いたい
Excel(エクセル)
-
20
cellsで特定の離れた範囲を選択する方法は?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
VBA モジュールで共通に使う変...
-
5
グラフのX,Y座標を取得したい
-
6
Excel VBA 『Call』で呼び出す...
-
7
Excel VBAで、ユーザーフォーム...
-
8
【vba】フォームに書いてあ...
-
9
Sub Workbook_Open()でユーザー...
-
10
エクセルVBAでシートモジュール...
-
11
ベースモジュールって?
-
12
エクセルでインポートした標準...
-
13
エクセルVBA クラスモジュール...
-
14
VBでグローバル変数を宣言するには
-
15
ExcelVBA:パブリック オブジェ...
-
16
Excel VBA 標準モジュール内で...
-
17
モジュールの最大数はいくつな...
-
18
'Range'メソッドは失敗しました
-
19
モジュールからフォームのボタ...
-
20
エクセルVBA 時間のカウントダ...
おすすめ情報
公式facebook
公式twitter