2013-10-14 5 views
0

Код ниже дает мне код ошибки 6 overflow. Когда я нажимаю ok на ошибке, файл открывается. Я использую этот же код для открытия других книг в этом макросе, и они в порядке. Я перемещаю файл в свое место, и это сработало. BBut при попытке загрузить его из сетевого шлюза он терпит неудачу. Я обязательно очищу свои переменные, прежде чем повторно их использовать.
ОШИБКА 6 - проблема переполнения

Dim xlWorkbook2 As Excel.Workbook 
Dim FILEPATH As String 

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

Почему двойная косая черта? –

+0

Помимо двойного косая черта в FILEPATH, нет ничего явно неправильного в этом бите, если код. Даже с двойной косой чертой или предположив, что файл Excel, который вы открываете, может быть поврежден, трудно понять, как из этого кода может возникнуть ошибка переполнения. Прошли ли вы с помощью отладчика и можете ли вы проверить, какая строка выдает ошибку? – RBarryYoung

+0

Я прошел через него несколько раз, и его почти так же, как и его поиск, чтобы открыть файл. Как только я щелкнув ok на ошибке, файл откроется. –

ответ

0

Проблема была следующей строки кода, где я делал подсчет по количеству клеток, если не был fininding имя листа я кодированный для.

кол = листы ("Лист 1"). Клетки (Rows.count, "А"). Конец (xlUp) .Row

я открывал еще один экземпляр EXCEL, когда лист открыт. Как только я увидел ошибку в моих путях и исправил то, как я открывал другую книгу, если исправил свою проблему.

Thanks

Смежные вопросы