控件翻译实例

Gaoyunpeng

分享一个控件翻译的实例
使用Excel表作为数据源，进行控件翻译。
翻译代码请参考。

1. Sub ControlTranslate()
   
2.     Dim strShape As String
   
3.     Dim strCNN  As String
   
4.     Dim strSQL As String
   
5.     Dim rst As Object
   
6.    
   
7.     strCNN = "Provider = Microsoft.ACE.OLEDB.12.0;Extended Properties = 'Excel 12.0;HDR=YES';Data Source = " & ThisWorkbook.FullName
   
8.     strSQL = "Select * From [Translate$] "
   
9.     Set rst = CreateObject("ADODB.Recordset")
   
10.     rst.Open strSQL, strCNN, 1, 1
    
11.     If rst.Fields(0).Name = "CN" Then
    
12.         Do Until rst.EOF
    
13.             strShape = rst.Fields.Item(0)
    
14.             Sheets("Main").OLEObjects(strShape).Object.Caption = rst.Fields.Item(1)
    
15.             rst.MoveNext
    
16.         Loop
    
17.     End If
    
18.     If rst.Fields(0).Name = "JP" Then
    
19.         Do Until rst.EOF
    
20.             strShape = rst.Fields.Item(0)
    
21.             Sheets("Main").OLEObjects(strShape).Object.Caption = rst.Fields.Item(2)
    
22.             rst.MoveNext
    
23.         Loop
    
24.     End If
    
25.     rst.Close
    
26.     Set rst = Nothing
    
27. End Sub

复制代码

实例参考附件

Gaoyunpeng

有些地方写的可能比较笨，欢迎大家修改分享。

凌空一羽

谢谢分享，感谢楼主感觉直接用字典来操作也行……

Gaoyunpeng

凌空一羽 发表于 2020-2-6 10:03
谢谢分享，感谢楼主感觉直接用字典来操作也行……

实在不好意思，字典对我来说一直没有真正的理解。
不会搞。。。

凌空一羽

Sub lkyy()
    Dim d, ar, i As Byte, n As Byte, k
    Set d = CreateObject("Scripting.Dictionary")
    ar = Sheets("Translate").Range("a1").CurrentRegion
    For i = 2 To UBound(ar)
        d(ar(i, 1)) = ar(i, 2) & "|" & ar(i, 3)
    Next
    If Sheets("Translate").Range("A1") = "CN" Then n = 0 Else n = 1
    For Each k In d
        Sheets("Main").OLEObjects(k).Object.Caption = Split(d(k), "|")(n)
    Next
    Set d = Nothing
End Sub