PDA

View Full Version : How to insert Japanese character to SAP from Excel?



rafeemd
02-12-2013, 03:30 AM
Hi All,
Help needed in an issue in Excel VBA.

I can see the Japanese text in the excel cells. Exporting this data to SAP by using VBA code. It does the insert in the ECC, but Japanese characters are represented as "????"
The Japanese string - れは、のテストです excel シート アップロード テンプレート

the above string is displaying as - ???SES ?????? excel ??? ?????? ??????

I am using the below code cv=Sheet1.Range("A1").Value
i tried by using cv = StrConv(Sheet1.Range("A1").Value, vbUnicode)

Any help would be appreciated.

Jan Karel Pieterse
02-12-2013, 04:24 AM
Can you please show us more of your code? Even better, can you upload a workbook with the relevant code and (a small portion of) some data?

rafeemd
02-12-2013, 04:43 AM
Thank you Jan for your prompt reply.
Here is my part of the code

headTextStr.Rows.Add ' Adding row in SAP internal table
headTextStr.Value(inCnt, "PCKG_NO") = "0000000002"
strtempLine_No = tmpEntryCount
headTextStr.Value(inCnt, "LINE_NO") = tmpZeroStr & tmpEntryCount
headTextStr.Value(inCnt, "TEXT_ID") = "LTXT"
headTextStr.Value(inCnt, "TEXT_LINE") = Sheet1.Range("L" & rwNum).Value ' Here i am getting the ???? marks
' Actual value will be れは、のテストです excel シート アップロード テンプレート
Please help to get it done.

Jan Karel Pieterse
02-12-2013, 05:15 AM
What kind of object is headTextStr?

I expect you'll have to make sure the VBA code works with double-byte unicode characters and use the proper functions for that.

rafeemd
02-12-2013, 05:26 AM
Public headTextStr As Object

With the below function i am able to give a message box with the Japanese language
CreateObject("Wscript.shell").popup Range("F3")

But i am not able to assign the same value to an variable.

I am not aware which double-byte code to use.
can u please help with the sample code.

Jan Karel Pieterse
02-12-2013, 07:59 AM
Hmm. Showing me a declaration "As Object" is useless.
Now I still don't know what type it is.
(apologies for sounding annoyed).
Show all of the code or even better, attach your file.

rafeemd
02-12-2013, 11:51 AM
Hi Jan
attached the excel file.
Column "G" having the Japanese text while updating it is showing ???? in VBA and as well in SAP.

@ at Code Line 90
Thanks for your help..

Jan Karel Pieterse
02-13-2013, 06:28 AM
The problem lies with the SAP function library you are using I expect, because I can insert a userform and load the content of cell G2 into a textbox and have it properly display the japanese characters without doing anything special:
TextBox1.Value = ActiveCell.Value

suffices.

rafeemd
02-13-2013, 10:52 AM
In VBA editor also i am not able to see the exact characters.
it is also displaying ??????

rafeemd
02-13-2013, 10:53 AM
http://www.vbaexpress.com/forum/C:%5CUsers%5Crafi%5CDesktop%5CNew%20Folder%5****itled.jpghttp://www.vbaexpress.com/forum/data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAASYAAAAsCAIAAABHSoJfAAAGjElEQVR4nO1dO5Ir KwzVnpyxlI5fUXVXYS+BzKk34JTcXoQTIteETt4OeEE3IPHppnv6w/XTKdXU9AeQhA4S2Hcu2Jbw8/Njrf03we12+/PnT/8zfVoPADjaRMb/HW2FIFOO8fVoKwSZcoyvR1shyJRjfD3aCkGmHOPr0VYIMuUYX4+2QpApx/h6tBWC7VFOSwAQak0jtQSMdTuvhhJCGaqS1EYJAEAPrBJBTy3DE38fv1zsxyhRaabxHUtNLsk4p UZjLzUDptwktFybFQbFu5ZHBIqWfUgHhfp41dIFe6ybf4Xe1xK9X+onHXBCOepwJaqaGrKKtAum XA5hcQWpJyiH3sWpa2zuSXAYFFEoAdJYByll0Cj05BsIpWRohXXKKa8EJYBRou9XyzByXWrC6uf 7QTZP9uatCn3i3JrzDx3B4EvvrL4d8flxVQZTLgVe3DcoLGlwkOjX2v+K7/tILrbFOYgWjUaJRP805TiTDRoWx3oR0XqU6yd6VAPEY6JFwT++UTQAWQ5QR1P+2RZMuQRRqE0tz 8uyXP5N2hemXCZ0qGIh4DIK0eDM8CGH4AeUXJJytLpczJBk9GVHXez8gn/8wyrKTfpnYzDlEsyk3AKE4CBbIZIHcLjUUI4wZFzhSsqZeA+FHUPTahVmUa4fjKpQ9I+/U5fl1t+czwJTLkW0ldi2sAzxjylEE0hNgaQEqYZH2VB7lhHFsB95kU9KSrlTzsn7Zf+g5zHlcGY 7+MjKgSmXAz7H7w8uVmQdOvLob/ThYEnJI6Qcdv/+pjuWQOUobiBIwNHiKQ7o2oRjct0khVn9eWLZHZk+shRK/ZN86oJ6w58x4OOlKf9sCqbcl2DeEfmcM/tVsPuA7aKtEGTKzQX+qHpmwx1rqw32w38v2gpBphzj69FWCDLlGF8PEoL/MBiMtTFBOWvfLCwsawlTjoVlV2HKsbDsKkw5FpZdpZ5yN0k+nN9KIaNOIG/W3iR0evjpnpoz+vLv2di3tQ/0Dxi9nqGhliDUIxoivqk7kLecMjcJJ2W2MDOyzvv22MvVbYy8t0yZHezd1MNxGM+inPOg7raZpL c1ZzFw6SbF2diHkv1lz7cwhVp22r6tPicqRQ0fSiS0oRzTsrSCbEk5rKSzYlgLjrpc3cbIe8uU2 cHeDYdIwngh5TaLRaNOzhe9lpg546nVqxQ1zCUxcxZhyaCJdCfKJUrG5h95uZIUvbdMmR3s3WCI zEQvzXJDLnqHL5AOYX2TcFKq6+8FJVxNKNQ59BMKxT7ocxkpNB/NqyE91jxCBEaEzNti3sXlJtb/d4K8euQlnS+ATtuHEm4qw8tJSR97o0C5BcrsYO8+Q9j3XMpFEYkFR6d7ARd7bmKMOkEax7obsnA pdhFtjDoBAJDpHM+BmW79mpSrKlOmZSmX6p/GKw3KEYnWhaMuYw9EU+M9iUg41iSh3BJldrB3lyGczM9yUcLRnYurcnQSJXA/OCpvE5Qjj8h0apldBbzkkuegEn1UtKVgVKz/FK9GJKp+j7oM3k5M0x1NaHSm8rM5sYuuUmYHe/cZwsmSwjKUrcH1PnZnUS49OKrcVhFlpsI92+1DiZPSSLExW0qU2+YM6XDJmjZNuXQ2N9oJ/93yu+MTX7OG48RSDZYtLKPipLyXGxriMw+qwIjgU1AUBH2BGhQYs4Xu/Yr6oxEXFJbxxyFHXAb3pnXjZGFZLjV/pcwO9u4yhJNllHsbdYKhMOtPRTo5kuVsqNkKxydD9TJxdBYKPxiOg0RFZIdET4OAfupgx23xQ8t uRP/l0hblItPOnmBu3t94b58cn5QLy2b50CTlVpJxhaa2nvNlLHOysOwve1NOSxgvBSv2ZjOHW683Fp bfyz6UwxXglx45sLDUCX+tmYVlV5mmHIPBWBdjlDsc/LdPGF+PtkKwJcppeQG4KnJ5EerjbrwkkBdqYZ4CLoAE9bk+IisYx4MpV4S60mD9KHEBuLv/EeYuxHXhX0M1TyFf7uIlN6aElky5lsCUK0JdA8GstfajxF2rnmb4d/9yn7WuQsS5EeAi1FPCBcTT2JRyaJTQz8V13lP9AvLlUutkYnRN4ALyxZRrC0y5IvR9YMiAjxJ3b V9SPI2+g3xZTznzFP5NfQ+5UV1hoNZHiUvojdaWhLdhRJz9Pkr0NPsocYFA14LiMnCSC8vmwJSr Rk85FMQoy/lsRrMTinVMyzjLeTrdSaGq7yibDYmrYuP3kvFKwZRrCf8B7Dh5bav+Rq4AAAAASUVORK5CYII=
the values displaying like above.
Is there any chance to see the actual values.

Jan Karel Pieterse
02-14-2013, 02:25 AM
Not by using a messagebox or similar, but the japanese characters ARE properly picked up, as demo'd in this simple routine:


Sub foo()
Dim s As String
s = ActiveCell.Value
ActiveCell.Offset(, 3).Value = s
End Sub

Select a cell with japanese characters (and make sure a cell three columns to the right is empty). Then run the code.