特定の文字の有無でif文を分岐させたい

こんにちわ。
初心者ですが、Excelでマクロを書いています。

テキストファイルから文字列を1行ずつ取得し、
その文字列の中に特定の文字があったら、それ以外でif文を分岐させたいのですがうまくできません。

vba
1Sub Run()
2    Dim OpenFileName As String
3    'ファイルを開くダイアログ
4    ChDir ThisWorkbook.Path & "\"
5    OpenFileName = Application.GetOpenFilename("テキストファイル,*.txt")
6    
7    If OpenFileName <> "False" Then
8        Open OpenFileName For Input As #1
9    End If
10       
11    Dim line1 As String
12    Dim line2 As String
13
14    
15    '2行読み込み
16    Line Input #1, line1
17    Line Input #1, line2
18    
19    '2行目を取得
20    Dim userName As String
21    Dim todofuken As String
22    If InStr(line2, "*東京*") > 0 Then
23        userName = Left(line2, InStr(line2, "東京") - 1)
24        todofuken = Trim(userName)
25    Else
26        userName = Left(line2, InStr(line2, "大阪") - 1)
27        todofuken = Trim(userName)
28    End If
29    
30    Debug.Print , todofuken ;
31       
32    Close

テキストファイルの２行目を取得して、
その行には必ず東京か大阪の文字があります
東京がある場合と大阪（そうでない場合）で処理を変えたいです。
（処理内容はほぼ同じなのですが…）

これを実行すると
プロシージャーの呼び出し、または引数が不正です
というエラーになります。
if文の条件はいろいろ試したのですがうまくできません…。
何が悪いのでしょうか。

よろしくお願いします。

行動規範の内容に同意します

回答2件

InStr関数にはワイルドカードという概念はありません。
そのためInStr(line2, "*東京*")と書いた場合、"*東京*"の文字列を探す処理となります。

この部分もInStr(line2, "東京")で良いでしょう。

自分が書くとしたら以下のような感じですかね（もう少し効率化できますが）。

vba
1    '2行目を取得
2    Dim todofukenStart As Long
3    todofukenStart = InStr(1, line2, "東京")
4    
5    If todofukenStart = 0 Then '「東京」が含まれていなかったら
6        todofukenStart = InStr(1, line2, "大阪")
7    End If
8        
9    If todofukenStart = 0 Then '「大阪」も含まれていなかったら
10        '正しいファイルを選べばここに来ることは無いはず
11        Err.Raise 5, Description:="line2「" & line2 & "」に「東京」も「大阪」も含まれていません"
12    End If
13        
14    Dim userName As String
15    Dim todofuken As String
16        
17    userName = Left(line2, todofukenStart - 1)
18    todofuken = Trim(userName)

気になったことをいくつか

vba
1    If OpenFileName <> "False" Then
2        Open OpenFileName For Input As #1
3    End If

上記の箇所で処理を抜けなくて大丈夫ですか？

プロシージャーの呼び出し、または引数が不正です

というエラーになります。

具体的にどの行でエラーになるのかを書いた方が回答者がわかりやすいです。
（恐らくElse節の中のuserName = Left(line2, InStr(line2, "大阪") - 1)だと思われますが）

todofuken = Trim(userName)としていますが、ここに「都道府県」は入らないような気がします（実際の文字列がわからないのでなんとも言えませんが）。

投稿2018/08/16 01:39

imihito

総合スコア2166

pro-poke5

2018/08/16 01:58

ありがとうございます。もう少し効率のいいきれいな書き方ができるようになりたいとおもいます。エラー行もわかる場合は記載を忘れないようにします。とりあえず出力はうまくできました。 If OpenFileName <> "False" Then～の部分は私もおかしいと感じています…。（ファイルが開かれていますというエラーがでる場合があるので…）

imihito

2018/08/16 02:05

開いたファイルは必要な情報を読み込んだら即座にCloseしてしまって良いと思います（今回で言えば`Line Input` の直後）。途中で処理を止めたりすると、開きっぱなしになる可能性があるので。また、ファイル番号は`FreeFile`関数を使用すると番号の重複を考えずに済みます。 https://msdn.microsoft.com/ja-jp/vba/language-reference-vba/articles/freefile-function

行動規範の内容に同意します