Japanische Zeichen in Datainame

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Thomas,
dann wird es wohl eine japanische Excel-Version sein!? (Sind denn die Menübefehle auf Japanisch?) Aber trotzdem sollte man bei Dateinamen immer
vorsichtig sein. Wenn nämlich Fragezeichen kommen, zeigt das meistens, dass eine Software mit
den zu verarbeitenden Zeichen nicht richtig umgehen kann, so z.B., wenn man europäisch-amerikanische
Software auf einem asiatischen Windows-Betriebssystem zur Verarbeitung von Schriftzeichen benutzen will - das funktioniert dann i.d.R. nicht.
Wenn die Menübefehle nicht Japanisch sind, ist es vielleicht eine englische Excel-Version. Die kann
Schriftzeichen oder Kana-Zeichen wohl auch schwerlich verdauen. Mehr kann ich dazu mangels
Kenntnis der näheren Umstände auch nicht sagen. Werner R.

Sub DatenHolen() Dim wksQuelle As Worksheet, wksZiel As Worksheet Set wksZiel = ThisWorkbook.Sheets(1) Set wksQuelle = Workbooks.Open(NeuesteDatei(ThisWorkbook.Path, ThisWorkbook.Name)).Sheets(1) 'weiterer Code wksQuelle.Parent.Close False End Sub

Function NeuesteDatei(strPfad As String, strIgnoredWkb As String) As String Dim dteMax As Date, strDatei As String Const strType As String = "*.xls" If Right(strPfad, 1) "\" Then strPfad = strPfad & "\" strDatei = Dir(strPfad & strType, vbNormal) Do While strDatei "" If strDatei strIgnoredWkb Then If FileDateTime(strPfad & strDatei) > dteMax Then dteMax = FileDateTime(strPfad & strDatei) NeuesteDatei = strPfad & strDatei End If End If strDatei = Dir Loop End Function

Hallo Thomas,
Noch ein Hinweis: Man kann in Excel die Sprachversion von Excel, mit der man gerade arbeitet, wie folgt herausfinden. Dazu folgendes in ein Modul im Editor schreiben, dann die mit "Sub" beginnende Prozedur
aufrufen.


Function myLanguageID() As String
myLanguageID = Application.LanguageSettings.LanguageID(msoLanguageIDInstall)
End Function


Sub myLanguageInfo()
Select Case myLanguageID
Case 1031
MsgBox "Deutsch installiert"
Case 1052 '?
MsgBox "Englisch installiert"
End Select
End Sub

(laut Schels, Excel 2007, Formeln und Funktionen, p. 594)
In obiger Prozedur muesste noch die Abfrage fuer Japanisch ergaenzt werden, deren Nummer ich aller-
dings nicht kenne. Immerhin kannst du so schon pruefen, ob eine der beiden genannten Sprachen
installiert ist.
Grüße Werner R.

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread