pinieroboy
New Member
- Joined
- Dec 16, 2005
- Messages
- 5
Hello board!
This one is a newbie question!
I use the web querry function to import a web page into excel.
The problem arrises with the encoding used in the web page. charset=windows-1253 (it's a greek one!)
What is wrong? when i import the page to the excel sheet, the greek are displayed like chinese! My mother tongue is greek and not chinese!
Is there any property in web querry to set the encoding-charset?
This is the code i currently use in excel
With ActiveSheet.QueryTables.ADD(Connection:=Conne, Destination:=Range("A1"))
'.Name = "league_rank.asp?leaid=68_1"
.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
.Refresh BackgroundQuery:=False
End With
Could you please help me?
Thanks in advance.
This one is a newbie question!
I use the web querry function to import a web page into excel.
The problem arrises with the encoding used in the web page. charset=windows-1253 (it's a greek one!)
What is wrong? when i import the page to the excel sheet, the greek are displayed like chinese! My mother tongue is greek and not chinese!
Is there any property in web querry to set the encoding-charset?
This is the code i currently use in excel
With ActiveSheet.QueryTables.ADD(Connection:=Conne, Destination:=Range("A1"))
'.Name = "league_rank.asp?leaid=68_1"
.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
.Refresh BackgroundQuery:=False
End With
Could you please help me?
Thanks in advance.