Update from TXT-file

[jgmiddel]

Hi, some help would appriciated.

I would like to check some data in a TXT-file. If the worksheet is on a
computer without internet-connection, the messagebox "The update failed"
should appear. But, in the macro I made, the messagebox always appears,
also when the update is done. What am I doing wrong?

Sub CheckUpdate()
On Error GoTo ErrorMessage
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.domain.com/version.txt",
Destination:=Range("C14"))
..Name = "test"
..FieldNames = True
..RowNumbers = False
..FillAdjacentFormulas = False
..PreserveFormatting = True
..RefreshOnFileOpen = False
..BackgroundQuery = True
..RefreshStyle = xlInsertDeleteCells
..SavePassword = False
..SaveData = True
..AdjustColumnWidth = True
..RefreshPeriod = 0
..WebSelectionType = xlAllTables
..WebFormatting = xlWebFormattingNone
..WebPreFormattedTextToColumns = True
..WebConsecutiveDelimitersAsOne = True
..WebSingleBlockTextImport = False
..WebDisableDateRecognition = False
..WebDisableRedirections = False
..Refresh BackgroundQuery:=False
End With
ErrorMessage:
MsgBox "The update failed"
End Sub

 

[Jim Rech]

Put

Exit Sub

on the line before ErrorMessage:

--
Jim
message |
| Hi, some help would appriciated.
|
| I would like to check some data in a TXT-file. If the worksheet is on a
| computer without internet-connection, the messagebox "The update failed"
| should appear. But, in the macro I made, the messagebox always appears,
| also when the update is done. What am I doing wrong?
|
| Sub CheckUpdate()
| On Error GoTo ErrorMessage
| With ActiveSheet.QueryTables.Add(Connection:= _
| "URL;http://www.domain.com/version.txt",
| Destination:=Range("C14"))
| Name = "test"
| FieldNames = True
| RowNumbers = False
| FillAdjacentFormulas = False
| PreserveFormatting = True
| RefreshOnFileOpen = False
| BackgroundQuery = True
| RefreshStyle = xlInsertDeleteCells
| SavePassword = False
| SaveData = True
| AdjustColumnWidth = True
| RefreshPeriod = 0
| WebSelectionType = xlAllTables
| WebFormatting = xlWebFormattingNone
| WebPreFormattedTextToColumns = True
| WebConsecutiveDelimitersAsOne = True
| WebSingleBlockTextImport = False
| WebDisableDateRecognition = False
| WebDisableRedirections = False
| Refresh BackgroundQuery:=False
| End With
| ErrorMessage:
| MsgBox "The update failed"
| End Sub
|
|
| --
| jgmiddel
| ------------------------------------------------------------------------
| jgmiddel's Profile:
http://www.excelforum.com/member.php?action=getinfo&userid=32714
| View this thread: http://www.excelforum.com/showthread.php?threadid=530890
|