When running EXCEL macro prompt Refresh BackgroundQuery:=False error, how to change-CodePudding

Before download has been download the double chromosphere download list, when you use the new computer to download to use tip Refresh BackgroundQuery:=False, how to solve the
The following is a macro data:

Private Sub CommandButton1_Click ()

A3: AC3500 Range (" "). The Clear

K3dshijihao="http://182.92.109.149/getData/ssq.TXT"

D3s="WData3D_All"

Cells (2, 1)="issue"
"Cells (2, 2)="date", "
Cells (2, 3)="red"
Cells (2, 4)=", "
Cells (2, 5)=""
Cells (2, 6)=""
Cells (2, 7)=""
Cells (2, 8)=""
Cells (2, 9)="blue"

Cells (2, 10)="red"
Cells (2, 2)=", "
Cells (2, 12)=""
Cells (2, 13)="ball"
Cells (2, 14)="shun"
Cells (2, 15)="sequence"

Cells (2, 16)="total handle
"Cells (2, 17)="jackpot amount
"
Cells (2, 18)="wait note number
"Cells (2, 19)="first-class amount
"
Cells (2, 20)="second-class note number
"Cells (2, 21)="second-class amount
"
Cells (2, 22)="third note number
"Cells (2, 23)="amount"

Cells (2, 24)="fourth note number
"Cells (2, 25)="amount"

Cells (2, 26)="five note number such as"
Cells (2, 27)="amount"

Cells (2, 28)="six note number such as"
Cells (2, 29)="amount"

Cz=k3dshijihao: CZMC=d3s

With ActiveSheet. QueryTables. Add (Connection:=_
"TEXT." & Cz, Destination:=Range (" A3 "))
.name=CZMC
The FieldNames=True
. RowNumbers=False
. FillAdjacentFormulas=False
. PreserveFormatting=True
. RefreshOnFileOpen=False
. RefreshStyle=xlInsertDeleteCells
. SavePassword=False
. A SaveData=https://bbs.csdn.net/topics/True
. AdjustColumnWidth=True
. RefreshPeriod=0
. TextFilePromptOnRefresh=False
. TextFilePlatform=xlWindows
. TextFileStartRow=1
. TextFileParseType=xlDelimited
. TextFileTextQualifier=xlTextQualifierDoubleQuote
. TextFileConsecutiveDelimiter=True
. TextFileTabDelimiter=False
. TextFileSemicolonDelimiter=False
. TextFileCommaDelimiter=False
. TextFileSpaceDelimiter=True
TextFileColumnDataTypes=Array (1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
. TextFileTrailingMinusNumbers=True
The Refresh BackgroundQuery:=False
End With
Range (" A "& amp; (Application. The Count (Range (" a1: a3000 ")))). Select
End

End Sub

Private Sub Worksheet_SelectionChange (ByVal Target As Range)

End Sub