![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
WSHからExcel2000のマクロを実行させています。このマクロはセルの計算式の結果(セル(1,2))をif関数で比較するコードが入っています。
If Cells(1, 2).Value = "8月" Then
hensu = 1
End If
これをWSHから実行させると「型が一致しません」とエラーが出ます。
Debug.Print TypeName(Cells(1,2).Value)で型を表示させてみるとマクロを直接実行させたときはStringですが、WSHから実行させるとErrorとなっています。
なぜWSHから実行すると型がErrorとなるのかということと、解決策を教えていただければ幸いです。
ちなみにWSHでマクロを実行させている部分は以下のとおりです。
Set objExcelApp = CreateObject("Excel.Application")
Set objWbk = objExcelApp.Workbooks.Open("ExcelBook.xls",True)
objExcelApp.Run("ExcelBook.xls!macro1")
No.3ベストアンサー
- 回答日時:
ANo1です。
> TisWookBook.WorkSheets(1).CellsではVBAマクロ内で「424:オブジェクトが必要です」
すいません。「TisWookBook」は「ThisWorkBook」の書き間違いです。
> Appkucation.Cellsでは変化ありませんでした
うーん。でしたら、
Debug.Print TypeName(Application)
Debug.Print TypeName(Application.Cells)
とすると、どうなります?
#ちなみにExcel2000でも試してみましたが・・・エラー発生しませんでした・・・
ありがとうございます。原因がわかりました。実は質問を簡略化するために書いていなかったのですが、計算式は外部サーバのデータベースにアクセスして計算結果を出すものだったのでデータのやり取りに数秒時間を要していました。WSHスクリプトのほうはEXCELを立ちあげたあとすぐマクロを実行させていたのでセルの値をErrorと判断したようです。以下のように待機時間を入れたらうまくいきました。
Set objWbk = objExcelApp.Workbooks.Open("ExcelBook.xls",True)
WScript.Sleep(10000)
objExcelApp.Run("ExcelBook.xls!macro1")
お騒がせしました。
No.4
- 回答日時:
まず
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.visible=true
Set objWbk = objExcelApp.Workbooks.Open("Book1.xls",True)
If objExcelApp.activeworkbook.activesheet.Cells(1, 2).Value = "8月" Then
hensu = 1
msgbox "aaa"
End If
私の場合はブックはBook1でSheet1のB1に「8月」と入れました。
実行OKのようでmsgbox "aaa" が表示されました。
ーーー
次に
Book1のModule1にTest03という名で下記を作りました
Sub test03()
If ActiveWorkbook.ActiveSheet.Cells(1, 2).Value = "8月" Then
hensu = 1
MsgBox "aaa"
End If
VBSは下記に変えました。
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.visible=true
Set objWbk = objExcelApp.Workbooks.Open("Book1.xls",True)
objExcelApp.Run("Book1.xls!Module1.test03")
VBSを実行するとMsgBox "aaa"が表示されました。
ーー
少し自信ないですが
ActiveWorkbook.ActiveSheetの辺のオブジェクトの特定が、記述上必要なのではないでしょうか。
エクセルの中からでは働く、規定値的なものが、外の世界では働かないとか。
Cellsは良く「Global・・」で、良くはじかれますので、エクセルVBAの
中の話ですが、極力Sh1.Cells()のように限定をつけています。
Set Sh1=WorrkSheets("Sheet1")
Set Sh2=WorrkSheets("Sheet2")と
2つ以上定義したときなど。
これから連想したのですが。
No.2
- 回答日時:
ごめんなさい。
現象を誤解していました。#「マクロ内でエラー」なんですね・・・
先ほどの投稿は忘れてください。
#ちなみに、Excel2002では再現しませんでした。
エラーメッセージ的には、「変数未定義」の時と同じなんですよね・・・
「Application.Cells」と明記してみるとか・・・
「TisWookBook.WorkSheets(1).Cells」としてみるとか・・・
この回答への補足
ありがとうございます。Appkucation.Cellsでは変化ありませんでした。TisWookBook.WorkSheets(1).CellsではVBAマクロ内で「424:オブジェクトが必要です」という新たなエラーが出てきました。これはどういうことでしょうか。
補足日時:2007/08/23 08:17No.1
- 回答日時:
オブジェクトを指定しないで「Cells」を使った場合、
ExcelVBA(Excelマクロ)上では「Application」で修飾され、
「Application.Cells」の省略として扱われますが、VBS上では特別扱いされず、
単なる「未定義の配列変数」とみなされます。
同等なコードは、
> If objExcelApp.Cells(1, 2).Value = "8月" Then
と、なるでしょうね。
#他のExcelのキーワードも(もし使っているなら)同様の処置が必要です。
#また、Excelの定数を使っている場合、VBS内で明示的に(Constで)定義する必要があります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Excel(エクセル) Excel-VBAの「しばらくお待ちください」のダイアログが自動的に閉じない 2 2023/05/24 15:31
- C言語・C++・C# C# DatagridviewにExcelシートを反映するとエラーが出る 2 2023/05/06 17:12
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
Excel マクロ VBA プロシー...
-
エクセルで特定の列が0表示の場...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelVBAでPDFを閉じるソース
-
ソース内の行末に\\
-
特定文字のある行の前に空白行...
-
TERA TERMを隠す方法
-
wordを起動した際に特定のペー...
-
アクセス マクロ クリップボ...
-
【EXCEL VBA】オートシェイプを...
-
ExcelVBA 図形をクリックした...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
マクロ実行時、ユーザーフォー...
-
コマンドボタンに二回目のマク...
-
WORD テキストボックスを全ペ...
-
EXCELマクロでのThisisWor...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
Excel VBAからAccessマクロを実...
-
EXCELのVBAでRange("A1:C4")を...
-
ExcelVBAでPDFを閉じるソース
-
エクセルに張り付けた写真のフ...
-
エクセルで別のセルにあるふり...
-
TERA TERMを隠す方法
-
2つのマクロでチェックボックス...
-
マクロ実行時、ユーザーフォー...
-
【マクロ】1つのマクロの中に...
-
ピボットテーブルでの毎回可変...
-
特定文字のある行の前に空白行...
-
エクセルのマクロについて教え...
-
wordを起動した際に特定のペー...
おすすめ情報