Have an Excel accounts sheets that uses data connection to retrieve sales records from my shopping cart. Got a lot of Windows 10 updates today including a security update for Excel and now it's not working any more.
The main code is:
With ActiveSheet.QueryTables.Add(Connection:= thisurl, Destination:=Range("$C$10"))
.Name = "showorders4_1"
.FieldNames = True
----etc etc------
.Refresh BackgroundQuery:=False
End With
Range("C10:C1000").Select
Selection.TextToColumns Destination:=Range("C10"), DataType:=xlDelimited,TextQualifier:=xlDoubleQuote , ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
----etc etc---
46, 1), Array(47, 1), Array(48, 1)), TrailingMinusNumbers:=True
It gets to .Refresh BackgroundQuery:=False and hangs. If it delete that line it says "No data selected to parse". Can't see anything useful on the MS info on this update. Any data connection experts got an idea? Ta.
The main code is:
With ActiveSheet.QueryTables.Add(Connection:= thisurl, Destination:=Range("$C$10"))
.Name = "showorders4_1"
.FieldNames = True
----etc etc------
.Refresh BackgroundQuery:=False
End With
Range("C10:C1000").Select
Selection.TextToColumns Destination:=Range("C10"), DataType:=xlDelimited,TextQualifier:=xlDoubleQuote , ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
----etc etc---
46, 1), Array(47, 1), Array(48, 1)), TrailingMinusNumbers:=True
It gets to .Refresh BackgroundQuery:=False and hangs. If it delete that line it says "No data selected to parse". Can't see anything useful on the MS info on this update. Any data connection experts got an idea? Ta.
Comment