Vba 错误6-在一台计算机上溢出，但在另一台计算机上没有溢出

我创建了一个Excel VBA宏，用于将大量.txt文件从文件夹导入到单个电子表格中。我终于让它在我的计算机上运行，并在另外两台计算机上成功地测试了它，然后将它发送给一位同事，他开始运行它，但在代码中遇到了溢出错误：

currentfilename = filename & "light.txt"
j = 1
Open currentfilename For Input As #1
Do Until EOF(1)
    Line Input #1, textline
    Cells(j + 1, 3) = Val(Right(textline, Len(textline) - InStr(textline, vbTab)))
    j = j + 1
Loop
Close #1

---

我让她通过电子邮件告诉我她用宏选择的文件夹的内容，当我运行它时，它运行得很好。是否有任何原因表明一台计算机可能会遇到此代码溢出错误，而另一台计算机不会？我们都在最新的OSX上使用Excel 2016

不同的计算机使用的OSX处理器/风格是什么？也就是说，32位与64位？区域设置是否不同

Val

在十进制分隔符方面不支持区域设置。请注意，您还应该使用而不是硬编码的文件句柄，并添加错误处理以确保关闭打开的句柄。您能用该代码段重现问题吗？如果是，当溢出发生时，

j

的值是多少？那么

j

的类型是什么？如果是

整数

，则将其设置为

长

。如果没有申报，就申报。如果您无法用该代码段重现问题，请参阅。不同的计算机使用的OSX处理器/风格是什么？也就是说，32位与64位？区域设置是否不同

Val

在十进制分隔符方面不支持区域设置。请注意，您还应该使用而不是硬编码的文件句柄，并添加错误处理以确保关闭打开的句柄。您能用该代码段重现问题吗？如果是，当溢出发生时，

j

的值是多少？那么

j

的类型是什么？如果是

整数

，则将其设置为

长

。如果没有申报，就申报。如果您无法用该片段重现问题，请参阅。