弹出的对话框明显提示你右边有一个回车字符啊。
改成这样
Dim lj As String = "/待用户现场确认版本_产线禁止使用/2015/" & Tables("临时版本跟踪表").current("临时版本编号") & "(" & Tables("临时版本跟踪表").current("客户") & "_" & Tables("临时版本跟踪表").current("博达机型").Replace(chr(10), "").Replace(chr(13), "").Trim() & ")"