android多语言对应时 利用excel生成不同语言的string.xml文件

excel的文件格式 严格按照该格式进行排版。

#######################################
##                                  ###
##   マクロでstring.xml作成手順     ### 
##                                  ###
#######################################
1.excel.xlsmでマクロの功能追加する
File-->option-->リボンのユーザー設定-->マクロを選択-->追加で右レイアウト「開発」を選択する-->OK
2.menu　barで　「開発」-->VisualBasic-->
ThisWorkBookのコードwindowで下記のコード入力する
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub MakeText()
Dim f_path As String ' 出力ファイルのフルパス
Dim f_num As Integer ' ファイル番号
Dim i As Long

f_num = FreeFile

Dim Stream As Object
Set Stream = CreateObject("ADODB.Stream")

Stream.Type = 2
Stream.Charset = "UTF-8"

' Androidのストリング作成
Worksheets("Android").Select
MaxRow = Range("A3").End(xlDown).Row
MaxCol = Range("C2").End(xlToRight).Column
For y = 3 To MaxCol
f_path_android = ActiveWorkbook.Path & "\strings_" & Cells("2", y).Value & ".xml"

Open f_path_android For Output As f_num

Stream.Open
Stream.WriteText "<resource>"

For i = 3 To MaxRow
s = "<string name=""" + Cells(i, "B").Value + """>" + Cells(i, y).Value + "</string>"

Stream.WriteText Chr(10) + s
Next i

Stream.WriteText Chr(10) + "</resource>"
Close f_num

Stream.SaveToFile f_path_android, 2
Stream.Close
Next y

End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

3.保存してから
　Excelの開発-->マクロ-->ThisWorkBook.MakeTextを選択-->実行する
　XMLfileを生成することになる。

strings_en.xml
strings_jp.xml    

strings_zh_rTW.xml

strings_zh.xml