Question

以下代码给出了错误代码6溢出。当我在错误上单击“确定”时，文件将打开。我使用相同的代码在这个宏中打开其他工作簿，他们没问题。我将文件移动到我的命运，它工作。 BBut在尝试从网络中加载它时会失败。我确保在重复使用之前清除我的变量。

Dim xlWorkbook2 As Excel.Workbook
Dim FILEPATH As String

FILEPATH = "C:\\Daily Remit History Data\dailycashtran.xlsx"
Set xlWorkbook2 = Workbooks.Open(FILEPATH)

Answer 1

问题是下一行代码，如果没有找到我编写的工作表名称，我正在计算单元格数。

count = Worksheets（“Sheet 1”）。Cells（Rows.count，“A”）。End（xlUp）.Row

打开工作表时，我正在打开另一个EXCEL实例。一旦我看到了我的方式的错误，并纠正了我打开其他工作簿的方式，如果解决了我的问题。

由于

错误6 - 溢出问题

1 个答案: