VB编译错误:无效字符

[qq_25622743]

Sub 環境パイル工法技術委員会()
Attribute 環境パイル工法技術委員会.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Macro1 Macro
'
 If Sheets("入力(新)").Range("Z2") = "環境パイル工法技術委員会" Then
 Sheets("環境S(出力)").Shapes("兼松日産農林").Visible = False
 Sheets("環境S(出力)").Shapes("環境パイル工法協会ロゴ").Visible = True
 Sheets("環境(出力)").Shapes("兼松日産農林").Visible = False
 Sheets("環境(出力)").Shapes("環境パイル工法協会ロゴ").Visible = True
 Else
 If Sheets("入力(新)").Range("Z2") <> "環境パイル工法技術委員会" Then
 Sheets("環境S(出力)").Shapes("兼松日産農林").Visible = True
 Sheets("環境S(出力)").Shapes("環境パイル工法協会ロゴ").Visible = False
 Sheets("環境(出力)").Shapes("兼松日産農林").Visible = True
 Sheets("環境(出力)").Shapes("環境パイル工法協会ロゴ").Visible = False
 Else
 End If
 End If

End Sub

保存弹出编译错误：无效字符的提示

[Tiger_Zhao]

果然，VB_ProcData.VB_Invoke_Func 是 Excel 宏的快捷键定义。
搂主应该用“导入文件”的功能而不是复制文本粘贴。
更正为：要用日文系统、日文 Excel。

[一如既往哈]

把非字母名称都改成字母名称试试.....

[Tiger_Zhao]

A)要用日文系统、日文VB编译。
B)第二行不符合语法，如果是过程属性的话：
B.1)要在前面加个 # 字符，并且要保存、关闭后再打开，过程属性在代码窗口中是隐藏的。
B.2)该属性看起来是自定义属性，需要某个专门的插件对应，你的VB中安装了这个插件没？

[舉杯邀明月]

他这不是什么“自定义属性”，只是在 MS Excel 中录制的宏代码， 然后导出模块文件，用记事本打开，把那一段“相关代码”直接复制、粘贴出来的而已。 楼主现在的错误是“无效关键字”，只要把 那几个日文字符删除（或换成别的简体汉字）、繁体的員改为简体的员，就可以了。 在 Sub 代码行后面出现的以 Attribute 开头的东东，如果是在“文件内容中”是没有问题的，但如果直接粘贴到代码中，那就不行。 至于楼主的代码中其它问题，暂时我就不说了。

[bcrun]

补充：记得以前我专门查看过当时最新版的OFFICE 2015的VBA编辑环境，还是用的很老的ANSI界面控件和相应的一些东西。所以啊，你代码中非字符串内容部分，如果要用ANSI外的这些字符，就要专门留个心了。

[qq_25622743]

谢谢大家的帮助，我已经找到解决办法了，是Windows系统语言设置的问题，语言设置为中文了，所以调用日文excel文件就出现了无效字符