Ok, tôi đã thử mã Groovy và tôi nhận được một tệp excel với kết quả của dòng này trong mã Groovy tại đây.
giải mã def = phản hồi2. giải mãBase64[]
vui lòng xem ảnh chụp màn hình tệp excel đính kèm
trên ảnh chụp màn hình khác, tôi hiển thị chuỗi được mã hóa mà tôi cần giải mã và đó là nội dung của reponse2 trong dòng mã ở trên.
Nó có thể được kiểm tra, chọn một ô từ cột "B. B", trong đó một chuỗi được mã hóa đã được trả về bởi mã trước đó và chạy thử nghiệm tiếp theo Sub
Sub testDecodeBase64[]
Debug.Print StrConv[DecodeBase64[ActiveCell.Value], vbUnicode]
End Sub
Nếu việc tạo tham chiếu có vẻ phức tạp, vui lòng trước khi chạy mã trên, hãy chạy mã tiếp theo để tạo tự động
A
AlexanderBB
Thành viên nổi tiếngJoinedJul 1, 2009Messages1,804Phiên bản Office
- 2019
- 2016
- các cửa sổ
- Ngày 23 tháng 1 năm 2022
- #1
BinData Set bd = Chilkat.NewBinData s = "A friend called me up the other day and talked about investing in a dot-com that sells lobsters. Internet lobsters. Where will this end? --Donald Trump" success = bd.AppendString[s,"utf-8"] strBase64 = bd.GetEncoded["base64"] Debug.Print strBase64 ' To decode: Dim bd2 As Chilkat.BinData Set bd2 = Chilkat.NewBinData success = bd2.AppendEncoded[strBase64,"base64"] decoded = bd2.GetString["utf-8"] Debug.Print decoded