Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

QueryTable wird in englisch heruntergeladen. Wo kann man die Sprachregion übergeben

Frage Microsoft Microsoft Office

Mitglied: thomas1972

thomas1972 (Level 1) - Jetzt verbinden

27.12.2014 um 15:00 Uhr, 1351 Aufrufe, 2 Kommentare

Hallo,

ich mache eine Webabfrage,
lasse ich mir die Page im Browser anzeigen wird alles in deutsch dargestellt,
sobald ich diese dann mit folgendem Code herunter lade,
wird dieses in Englisch in Excel eingebunden (Bezeichnungen, aber auch Umlaute werden falsch dargestellt)
kann man in der Abfrage ein Parameter mit angeben, dass dieser die Spracheinstellung des Browsers verwendet?


01.
Set shFirstQtr = Workbooks(1).Worksheets(1)  
02.
Set qtQtrResults = shFirstQtr.QueryTables _  
03.
 .Add(Connection := "URL;xxxxxx Testpage von mi ( da Intranet nicht extern aufrufbar!!!", _  
04.
 Destination := shFirstQtr.Cells(1,1))  
05.
With qtQtrResults  
06.
 .WebFormatting = xlNone  
07.
 .WebSelectionType = xlSpecifiedTables  
08.
 .WebTables = "1,2"  
09.
 .Refresh  
10.
End With 
11.
 
Mitglied: colinardo
27.12.2014, aktualisiert um 16:45 Uhr
Hallo Thomas1972,
das muss man normalerweise per HTTP-Header in der Anfrage übergeben.
Deswegen benutze ich für Webabfragen keine Webqueries mehr. Das ist eher was für Anfänger die nicht wissen wie sie sonst Daten aus Webseiten extrahieren sollen

Ich würde das mit einem InternetExplorer.Application-Object machen oder mit Powershell, dort geht das z.B. so:
01.
$net = New-Object System.Net.WebClient 
02.
$net.Encoding = [System.Text.Encoding]::UTF8 
03.
$net.Headers.Add("Accept-Language","de-de") 
04.
$data = $net.DownloadString("http://www.google.de") 
05.
write-host $data
Die benötigten Daten lassen sich dann via RegEx extrahieren oder man nutzt das ParsedHTML-Objekt das das HTML-Dom für einen ansprechbar macht. Dazu habe ich hier im Forum schon einige Beiträge gepostet ...

Mit WebQueries in Excel ist die Angabe eines HTTP-Header IMHO nicht möglich, außer eure Seite bietet das Umschalten per URL-Parameter an..

Grüße Uwe

p.s. hier mal ein kleines Beispiel was man damit so alles machen kann:
(In diesem Beispiel werden die Titel aller Fragen auf der Startseite per Msgbox angezeigt)
VBS
01.
Set objIE = CreateObject("InternetExplorer.Application") 
02.
objIE.Navigate "http://www.administrator.de" 
03.
'Wenn du den IE nicht sehen möchtest schaltest du ihn hier auf 'False' 
04.
objIE.Visible = True 
05.
'warten bis die Seite komplett geladen ist 
06.
While Not objIE.ReadyState = 4 
07.
	WScript.Sleep 250 
08.
        ' Oder "DoEvents" wenn VBA genutzt wird 
09.
Wend 
10.
 
11.
For Each node In objIE.Document.getElementsByClassName("teaser-preview") 
12.
	strTitle = node.getElementsByTagName("div")(1).firstChild.innerText 
13.
	MsgBox strTitle 
14.
Next 
15.
objIE.Quit
Du siehst, an die Daten kommt man auch auf anderem Wege als nur über Excel
Bitte warten ..
Mitglied: thomas1972
27.12.2014 um 17:06 Uhr
Hallo Uwe,

danke für die Rückinformation.
Hab es nach dem einlesen mit einem kleinen Suchen ersetzen Script einfach umschreiben lassen ( ist von der Performance kaum merklich)

Danke nochmal
Bitte warten ..
Ähnliche Inhalte
Windows Server
gelöst Druckertreiber deutsch heruntergeladen und installiert. Zeigt es aber auf Englisch an (13)

Frage von rainergugus zum Thema Windows Server ...

Windows Installation
gelöst Server 2016 auf englische Sprache umgestellt aber (5)

Frage von justdan zum Thema Windows Installation ...

Windows Server
gelöst Server in englisch also auch CAL in englisch oder ist das egal? (2)

Frage von Pedant zum Thema Windows Server ...

Webbrowser
gelöst URL an Internet Explorer aus Datei übergeben (4)

Frage von hesper zum Thema Webbrowser ...

Neue Wissensbeiträge
LAN, WAN, Wireless

Schwachstelle im WPA2 Protokoll veröffentlicht

(3)

Information von colinardo zum Thema LAN, WAN, Wireless ...

Heiß diskutierte Inhalte
Windows Server
gelöst Gruppenrichtlinie greift nicht zu! (19)

Frage von Syosse zum Thema Windows Server ...

Windows 7
gelöst Windows 7 Anmeldedomäne festlegen (13)

Frage von flotaut zum Thema Windows 7 ...

Windows Server
gelöst WSUS Updates auf iSCSI speichern (10)

Frage von lcer00 zum Thema Windows Server ...