Recorded Macro not working.

[BBG]

I recorded a Macro in Excel 2007 that pulled from an html page that was only text. It worked the first 2 or 3 times but now it just places the word "continue" in each cell. I am at a loss as to why it would work once and then not. Any help would be greatly appreciated.

 

[Peter_SSs]

I recorded a Macro in Excel 2007 that pulled from an html page that was only text. It worked the first 2 or 3 times but now it just places the word "continue" in each cell. I am at a loss as to why it would work once and then not. Any help would be greatly appreciated.

I probably cannot help with this but I doubt anybody will be able to without looking at the code for clues. Can you post the code?

 

[BBG]

Sub Isotopesplayers()
'
' Isotopesplayers Macro
'
' Keyboard Shortcut: Ctrl+j
'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://goallineblitz.com/game/player.pl?player_id=1039607&print=1", _
Destination:=Range("$A$1"))
.Name = "player.pl?player_id=1039607&print=1_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Sheets("Run macro only on this tab").Select
Range("B1").Select
Columns("B:B").ColumnWidth = 19.14
Cells.Select
Selection.ColumnWidth = 30.29
Range("B1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://goallineblitz.com/game/player.pl?player_id=1039627&print=1", _
Destination:=Range("$B$1"))
.Name = "player.pl?player_id=1039627&print=1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Sheets("Run macro only on this tab").Select
Range("C1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://goallineblitz.com/game/player.pl?player_id=1039839&print=1", _
Destination:=Range("$C$1"))
.Name = "player.pl?player_id=1039839&print=1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Range("D1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://goallineblitz.com/game/player.pl?player_id=1039844&print=1", _
Destination:=Range("$D$1"))
.Name = "player.pl?player_id=1039844&print=1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Range("E1").Select
ActiveWindow.SmallScroll ToRight:=2
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://goallineblitz.com/game/player.pl?player_id=1039847&print=1", _
Destination:=Range("$E$1"))
.Name = "player.pl?player_id=1039847&print=1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Range("F1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://goallineblitz.com/game/player.pl?player_id=1039851&print=1", _
Destination:=Range("$F$1"))
.Name = "player.pl?player_id=1039851&print=1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Range("G1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://goallineblitz.com/game/player.pl?player_id=1040149&print=1", _
Destination:=Range("$G$1"))
.Name = "player.pl?player_id=1040149&print=1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Range("H1").Select
ActiveWindow.SmallScroll ToRight:=2
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://goallineblitz.com/game/player.pl?player_id=1040651&print=1", _
Destination:=Range("$H$1"))
.Name = "player.pl?player_id=1040651&print=1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Range("I1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://goallineblitz.com/game/player.pl?player_id=1043932&print=1", _
Destination:=Range("$I$1"))
.Name = "player.pl?player_id=1043932&print=1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Range("J1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://goallineblitz.com/game/player.pl?player_id=1043941&print=1", _
Destination:=Range("$J$1"))
.Name = "player.pl?player_id=1043941&print=1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Range("K1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://goallineblitz.com/game/player.pl?player_id=1106886&print=1", _
Destination:=Range("$K$1"))
.Name = "player.pl?player_id=1106886&print=1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Range("L1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://goallineblitz.com/game/player.pl?player_id=1186188&print=1", _
Destination:=Range("$L$1"))
.Name = "player.pl?player_id=1186188&print=1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
End Sub

 

[BBG]

This site does require authentication. But I got it to work after logging in first to the site and then running the macro. Now I just get "continue" in the row 1 of the spreadsheet for each entry.