[解決済み] VBAです。IfエラーにならないElse
2022-02-16 13:27:36
質問
以下のコードを実行しようとしているのですが、最初のサブでIf ErrorのないElseが出続けています。このコードは、列を通して実行され、セル内にURLがある場合はウェブページを開き、ページ情報をテキストファイルとして保存することになっています。urlがない場合、それは単にテキストファイルとしてそのファイル内のテキストを保存します。私はそれが動作するようになるために構文を変更する方法を見つけ出すことができません。
Sub LoopOverB()
Dim myRow As Long
myRow = 10
While Worksheets("Input_Format_A").Cells(myRow, 2).value <> ""
If InStr(1, Worksheets("Input_Format_A").Cells(myRow, 2).value, "http://", vbTextCompare) Then Call url_Test(Worksheets("Input_Format_A").Cells(myRow, 2).value, "C:\mallet\test\" & Worksheets("Input_Format_A").Cells(myRow, 1).value & ".txt")
myRow = myRow + 1
Else
Open "C:\mallet\test\" & Worksheets("Input_Format_A").Cells(myRow, 1) & ".txt" For Append As #1
Print #1, Worksheets("Input_Format_A").Cells(myRow, 2).value
Close #1
myRow = myRow + 1
End If
Wend
End Sub
Sub url_Test(URL As String, Filename As String)
Dim FSO As Object
Dim ieApp As Object
Dim Txt As String
Dim TxtFile As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TxtFile = FSO.OpenTextFile(Filename, 2, True, -1)
Set ieApp = CreateObject("InternetExplorer.Application")
ieApp.Visible = True
ieApp.Navigate URL
While ieApp.Busy Or ieApp.ReadyState <> 4
DoEvents
Wend
Txt = ieApp.Document.body.innerText
TxtFile.Write Txt
TxtFile.Close
ieApp.Quit
Set ieApp = Nothing
Set FSO = Nothing
End Sub
解決方法は?
のある行で、最初の
If
の後に改行する必要があります。
Then
そうでなければ、あなたの
If
は暗黙のうちに閉じてしまいます。
'Good (in this case)
If <condition> Then
DoSomething
myRow = myRow + 1
Else
DoSomething Different
End if
'NOT good
If <condition> Then DoSomething
'the if is now "closed" !!!
myRow = myRow + 1
Else
DoSomething Different
End if
関連
-
[解決済み】VBA。ランタイム1004を取得する。オブジェクト'_Worksheet'のメソッド'Range'は、セルを使用するときに失敗しました。
-
[解決済み】Excel VBAのByRef引数の型の不一致
-
[解決済み】エクセルVBA。一致しない、エラー "WorksheetFunctionクラスのMatchプロパティを取得できない"
-
[解決済み] OutlookでVBAスクリプトを実行しようとすると、「SubまたはFunction not defined」と表示される。
-
[解決済み] どのようにvbaコードCells.FindによってExcelの列で値を見つけるために
-
[解決済み] VBAでIFERRORを使用する
-
[解決済み] VBAでエラー時のGOTOステートメント
-
[解決済み] Microsoft Officeをインストールせずに、C#でExcel(.XLSおよび.XLSX)ファイルを作成するにはどうすればよいですか?
-
[解決済み】Visual Basic 6.0とVBAの違いについて
-
[解決済み】Excel VBAでSelectを使用しないようにする方法
最新
-
nginxです。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)
-
htmlページでギリシャ文字を使うには
-
ピュアhtml+cssでの要素読み込み効果
-
純粋なhtml + cssで五輪を実現するサンプルコード
-
ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード
-
タイピング効果を実現するピュアhtml+css
-
htmlの選択ボックスのプレースホルダー作成に関する質問
-
html css3 伸縮しない 画像表示効果
-
トップナビゲーションバーメニュー作成用HTML+CSS
-
html+css 実装 サイバーパンク風ボタン
おすすめ
-
[解決済み] プロパティの無効な使用 vba クラス
-
[解決済み] Redimを使用して配列のデータ型を設定する
-
[解決済み] コンパイルエラーです。End If without block If
-
[解決済み] VBA:マクロでMSXML2.DOMDocumentがMSXML2.DOMDocument40に変更された。
-
[解決済み] VBA チャートのタイトルを追加する
-
[解決済み] <>とはどういう意味ですか?
-
[解決済み] VBAを使用してtxtファイルを作成し、書き込む方法
-
[解決済み] FormulaR1C1 の機能は何ですか?
-
[解決済み】VBAは辞書構造を持っていますか?
-
[解決済み】Visual Basic 6.0とVBAの違いについて