Ошибка при открытии файлов

[madace]

Сейчас проверю спасибо

[madace]

Сообщение от EducatedFool

Попробуйте такой вариант:

и вызывать её иначе:

   
        flopflip temp_array_encryptor_me(x_runner, y_runner)

вызывает ошибку by ref argument type mismatch- тк temp_array_encryptor_me объявлен как variant, если обявляю его какstring, не могу в него быстро счиать данные через
temp_array_encryptor_me = Range(Cells(1, 1), Cells(last_row, last_col)).Value

как быть?
и вообще,значение temp_array_encryptor_me(x_runner, y_runner)изменится после расшифровки? я ведь этот же массив назад и вставляю?

[EducatedFool]

вызывает ошибку by ref argument type mismatch

да, забыл я про это

замените

Function flopflip(ByRef data$)

на

Function flopflip(ByRef data)

и вообще,значение temp_array_encryptor_me(x_runner, y_runner)изменится после расшифровки?

да, изменится

[madace]

Спасибо огромное- памяти в разы меньше- вылетов пока не наблюдал-завтра потестирую

маленький вопрос вдогонку -я пытаюсь освободиться от activate по вашему совету- а как избавиться от этого

If save_array(save_runner, 0) = "1111" Then
Worksheets(111).Activate
Columns("D:D").Select
Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True

заранее благодарен

[EducatedFool]

Например, так:

    If save_array(save_runner, 0) = "1111" Then
        With Worksheets(111)
            .Columns("D:D").TextToColumns Destination:=.Range("D1"), DataType:=xlDelimited, _
                                          TextQualifier:=xlDoubleQuote, Tab:=True, _
                                          FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
        End With

Обратите внимание на точки перед Columns("D:D") и Range("D1")
Эти точки обозначают, что диапазоны относятся к листу Worksheets(111)