![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
プログラム初心者です。
教えてください。
以下の処理が書かれている
画面のHTML上で実行開始のボタンを押すと、
書かれたSubプロシージャが走り、CSVファイル読み込みが始まります。
正解、不正解の判定をするダイアログ表示されて、できている様なのですが、
そのダイアログをOKで閉じると
以下のスクリプトエラーが表示されます。
どのような原因のエラーなのか教えていただけないでしょうか?
デバッグすると If arrFields(1) = "あ" Thenの行でエラーが起きているようです。
すみません。よろしくお願いします。
Sub syori
(省略)
Set objFile = objFSO.OpenTextFile(file_path, ForReading)
Do While objFile.AtEndOfStream <> True
strData(i) = objFile.ReadLine
Data = strData(i)
i = i + 1
arrFields = Split(Data,",")
'MsgBox arrFields(1)
If arrFields(1) = "あ" Then
MsgBox "正解"
else
MsgBox "不正解"
end if
(省略)
Sub End
No.1ベストアンサー
- 回答日時:
エラーが出てるならその内容書かなきゃ…
http://www.kanaya440.com/contents/script/vbs/fun …
Splitの結果が「要素数2以上の配列」にならない時に
>arrFields(1)
でインデックスのエラーになってるんじゃないですか?
極端に言うとDataの中にカンマが無ければ、arrFieldは要素数0か1になる。そうすると「インデックス1」は存在しないのでエラー。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBA ユーザーフォーム 複数のユーザーフォームの閉じ方。 2 2022/04/27 11:29
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) VBAユーザーフォームでテキストボックスについて。 1 2022/05/31 12:23
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Visual Basic(VBA) VBAでファイルを開くプログラムがエラーです 2 2023/02/21 16:56
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
VBA データ(特定値)のある最...
-
pythonのopenpyxlについて
-
数式は残し値をクリアするマク...
-
ASPでこんなエラーが出たんです...
-
ACCESSで値を代入できないとは?
-
Excel vbaについての質問
-
VBAでfunctionを利用しようとし...
-
エクセルVBAで#N/Aのようなエ...
-
VBA Find でオートメーションエ...
-
VB6とVB.NETでNullの扱いが違う?
-
ENCAPSED
-
マクロで"#N/A"のエラー行を削...
-
Maximaでのエラーメッセージ
-
paizaで下記コードを提出すると...
-
グラフを表示するとき「’~’メソ...
-
現在、QueryTableが設定されて...
-
フランスの生年月日(jj/mm/aaaa)
-
Filter関数を用いた結果、何も...
-
HTMLソースが表示のページのも...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
VBAでfunctionを利用しようとし...
-
【VBA】ワークブックを開く時に...
-
マクロで"#N/A"のエラー行を削...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
On ErrorでエラーNoが0
-
お助けください!VBAのファイル...
-
VBA データ(特定値)のある最...
-
インポート時のエラー「データ...
-
実行時エラー'-2147467259(8000...
-
ACCESSで値を代入できないとは?
-
VB.net 重複チェックがしたいです
-
ActiveCell.FormulaR1C1の変数
-
ApplicationとWorksheetFunctio...
-
「実行時エラー '3167' レコー...
-
【VB.NET】 パワポ操作を非表示で
-
フランスの生年月日(jj/mm/aaaa)
-
【マクロ】 IFERROR関数をマク...
おすすめ情報