複数のリンクのマクロ

Question

コードをループ/実行する方法.txtファイルのリストに従って、リストが終了するまで??

コードをループ/実行するには.txtファイルのリストに従って、リストが終了するまで??

Sub FundData() 

Dim TikerName As String 

    TikerName = 'check & execute the names in list one after one in .txt file until it ends up 

    With ActiveSheet.QueryTables.Add(Connection:= _ 
     "URL;http://example.com/index.php?name=" & TikerName, Destination:=Range(_ 
     "$A$1")) 
     '.CommandType = 0 
     .Name = "name=" & TikerName 
     .FieldNames = True 
     .RowNumbers = False 
     .FillAdjacentFormulas = False 
     .PreserveFormatting = True 
     .RefreshOnFileOpen = False 
     .BackgroundQuery = True 
     .RefreshStyle = xlInsertDeleteCells 
     .SavePassword = False 
     .SaveData = True 
     .AdjustColumnWidth = True 
     .RefreshPeriod = 0 
     .WebSelectionType = xlSpecifiedTables 
     .WebFormatting = xlWebFormattingNone 
     .WebTables = """company""" 
     .WebPreFormattedTextToColumns = True 
     .WebConsecutiveDelimitersAsOne = True 
     .WebSingleBlockTextImport = False 
     .WebDisableDateRecognition = False 
     .WebDisableRedirections = False 
     .Refresh BackgroundQuery:=False 
    End With 
    ActiveSheet.Name = TikerName 
    Sheets.Add After:=ActiveSheet 
    ThisWorkbook.Save 

End Sub 

Answer 1

このような構造の何かを作成します。

Sub FundData() 

    Dim TikerName As String 

    Open "C:\somepath\sometextfile.txt" For Input As #1 
    Do While Not EOF(1) 
     Line Input #1, TikerName 

     ' your main code goes here 

    Loop 
    Close #1 
    ThisWorkbook.Save 
End Sub