vba韩文文件名不支持

① Excel VBA判断日语韩语

一个个调取
for i=1 to len(单元格)
select case unicode(mid(单元格,i,1))
case ...
日语
exit for
case ..
end select
next

② 文件夹名文件名不支持韩文，只显示小方框！！是怎么回事有韩文输入法，并且可以打韩文

试试这种方法：在桌面空白处用鼠标右键单击桌面，从下拉菜单中选择“属性”，将弹出桌面属性设置窗口，单击菜单“外观”，再选“高级”，然后从弹出的窗口中的项目下拉列表选“图标”，将字体修改成支持韩文的字体。如下图。