![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
vbscript初心者です。
教えてください。
HTML内のボタンを実行するとonClick="sub_read()"で
CSVファイル(TAB区切り)が読み込まれ
以下のスクリプトが走るのですが、
"型が一致しません"というエラーが表示されてしまいます。
★マークの箇所が無ければエラーは無いのです。
すみません。
お願い致します。
<%@ Language = VBScript %>
<script language=vbscript>
Sub sub_read()
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
'ファイルのレコード数を取得
With objFSO.GetFile(file_path).OpenAsTextStream(8)
row = .Line
.Close
End With
ReDim Data(row)
i = 1
Set objFile = objFSO.OpenTextFile(file_path, ForReading)
Do While objFile.AtEndOfStream <> True
Datas(i) = objFile.ReadLine
Data = Datas(i)
i = i + 1
DataFields = Split(Data,chr(9))
★If DataFields(1) = "ABC" Then
For j = 0 To Ubound(DataFields)
If j = 1 Then
MsgBox arrayFields(j)
End If
Next
Loop
★End If
objFile.Close
End Sub
</script>
No.1ベストアンサー
- 回答日時:
なんで前に教えたこと無視していまさら同じ質問してるんですか?
カンマをタブに変えたところで同じ。
>Splitの結果が「要素数2以上の配列」にならない時に
>>arrFields(1)
>でインデックスのエラーになってるんじゃないですか?
>極端に言うとDataの中にカンマが無ければ、arrFieldは要素数0か1になる。そうすると「インデックス1」は存在しないのでエラー。
この文中の「カンマ」を「chr(9)」に置き換えてください。
ちなみに
>CSVファイル(TAB区切り)
CSVのCはカンマの頭文字。タブ区切りはTSVね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) FileSearch2007に変わる構文について 1 2022/12/16 16:57
- Visual Basic(VBA) 実行時エラー´5854´ 文字列型パラメーターが長すぎます。 3 2023/06/08 21:17
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Returnに対するGoSubがありません
-
VBでファイルが開かれているか...
-
NAS上のファイルの使用中が解除...
-
ワークブックに名前をつけて保...
-
freadでデータがない場合の読込...
-
ACCESS VBAでのインポート
-
「パス名が無効です」の発生原因
-
fgets関数のEOFの扱い方について
-
VB6 Dir関数で52エラー発生
-
ファイルの有無を確認した際の...
-
Access2013にてドラッグ&ドロ...
-
DisplayAlertsブロパティで ”実...
-
FORTRANの実行エラーについて
-
VBAでDLLが見つからないエラー
-
ファイル アクセス権のエラーの...
-
DOCUMENT行の書き出しについて-...
-
パソコンで受信したGmailのファ...
-
配列の中身の判別
-
batファイルでレジストリキーの...
-
エクセル VBA dll 読み込...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Returnに対するGoSubがありません
-
VBでファイルが開かれているか...
-
batファイルでレジストリキーの...
-
「パス名が無効です」の発生原因
-
FTPの送信結果を検知したい
-
アクセスのクエリでコンパイル...
-
VBから参照できないCのDLLを使...
-
ACCESS VBAでのインポート
-
VB6 Dir関数で52エラー発生
-
freadでデータがない場合の読込...
-
すでにファイルが開かれている...
-
access テキストボックスの値取得
-
fgets関数のEOFの扱い方について
-
NAS上のファイルの使用中が解除...
-
Access2013にてドラッグ&ドロ...
-
【COBOL】read文でエラー
-
エクセル VBA dll 読み込...
-
PowerShellを使って関連付けら...
-
アクセスでイベントのロジック...
-
エクセルマクロでエラーの原因...
おすすめ情報