Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

66872 / 76738

←次へ　｜　前へ→


	【14425】Re:テキストファイル内のエラー値をエクセルに表示させたい。

ちゃっぴ - 04/5/28(金) 16:10 -


	引用なし

	パスワード

>呼び出しを実行すると、矢印のところで"Typeブロック外では無効なステーメンとです"というエラーが発生します。ヘルプを見たのですがよくわかりません。

"o(-_-;*) ウゥム…
どこに書いてます？標準モジュール？

ってゆうか別に引数指定で実行する必要ないから
こうゆう風にしましょ

Sub S_ChkError()
Dim strFilePath As String

strFilePath = "ファイルパス"

>ファイルパス名は、textファイルのパスを入力すればいいのでしょうか？

はい、そのとおりです。

あと、ここんとこ自分で書いてね☆
>　　　　　　If vntDivBuf(i) = ntDivBuf(i + 3) _
>　　　　　　　　Or vntDivBuf(i) = ntDivBuf(i + 6) _
>　　　　　　　　Or vntDivBuf(i + 3) = ntDivBuf(i + 6) Then
>　　　　　　　　'セルへの出力を記述してください
>　　　　
>　　　　　　　　Exit For　↑ここ
>　　　　　　End If

このままだと何にも実行されません･･･(^^;)

2 hits

▼

【14352】テキストファイル内のエラー値をエクセルに表示させたい。 初級者１ 04/5/26(水) 15:47