excel 中文字都變成亂碼

'程式碼放到模組(module)裡
'執行test()副程式

Sub test()
    
    Dim Clipboard As Object, temp As String, i As Integer, j As Integer, r As Integer, c As Integer
    Set Clipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   
   
    r = Range("a1").CurrentRegion.Rows.Count
    c = Range("a1").CurrentRegion.Columns.Count
    For i = 1 To r
        For j = 1 To c
            temp = temp & Cells(i, j) & vbTab
        Next j
        temp = temp & vbNewLine
    Next i
    
    Clipboard.SetText Replace(encode_fix(temp, "big5", "Windows-1252"), "???", "")
    Clipboard.PutInClipboard
    
    
    With ActiveSheet
        .Cells(r + 10, 1).Select
        .PasteSpecial NoHTMLFormatting:=True
        .Columns.AutoFit
        .Cells(1, 1).Select
    End With
    
    Set Clipboard = Nothing

    
End Sub



Function encode_fix(old_data As String, New_Charset As String, Old_Charset As String) As String
  
    Dim Encode As Object
    Set Encode = CreateObject("adodb.stream")
  
    With Encode
  
        .Type = 2
        .Charset = Old_Charset
        .Open
        .WriteText old_data, adWriteLine  '
        .Position = 0
        Debug.Print .readtext
    
        .Position = 0
        .Charset = New_Charset
    
        encode_fix = .readtext
        .Close
    
    End With
  
    Set Encode = Nothing
  
End Function

rachelrrr wrote:
我不知道這個問題在這裡發問適不適合
我下載了一個看盤軟體 可以把以前的交易歷史 輸出成Excel file
可是中文字都變成亂碼
我打電話去詢問 他說他們只試過 excel 2016還有 office 365
我的是 excel 2010他們沒有試過 他還詢問我作業系統的版本 他叫我更新成Windows 10的最新版本試試看
這是合理的嗎? Excel的字體和作業系統的版本有關?