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