Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 29.03.2016
Сообщений: 35
1

Друзья! не работает код с версией файла в 2003 офисе, на 2010 все работает, суть: копирование из закрытой книги

11.08.2017, 10:06. Показов 571. Ответов 1
Метки нет (Все метки)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub Zagruzka_dannyh()
UserForm1.Label117.Visible = False
UserForm1.Image48.Visible = False
Location = "T:\Rik\PS\ЛПА\Выдача нарядов"
Dim sShName, sDiap As String, sAddress As String, vData
        UserForm1.Label60.Caption = UserForm1.Controls("CB" & Uch).Caption
        
'показ смена
                UserForm1.Label64.Visible = True
 
    'скрыть кнопки
    For i = 3 To 11
    UserForm1.Controls("CB" & i).Visible = False
    Next i
'цепляем данные оборудования
Filename = UserForm1.Label76.Caption & " " & UserForm1.Label60.Caption
Filename2 = UserForm1.Label76.Caption & " " & UserForm1.Label60.Caption & " work"
 
'Отключаем обновление экрана
Application.ScreenUpdating = False
F = Location & "Оборудование" & Filename & ".xlsx"
'If Location = "T:\Rik\PS\ЛПА\Выдача нарядов" Then
disk = "T:\Rik"
 
 
    If Dir(disk, vbDirectory) = "" Then
    MsgBox "Сетевой диск: " & Chr(34) & "T" & Chr(34) & " не доступен. Проверьте доступность ресурса," & Chr(10) & "после чего повторите попытку.", vbExclamation
    Unload UserForm1
    UserForm5.Show
    Else
    fi = Filename & ".xlsx"
        If Dir(F) = "" Then
        MsgBox "Файл " & Chr(34) & fi & Chr(34) & " не найден" & Chr(10) & "Проверьте наличие сетевого подключения или наличичие файла " & Chr(34) & fi & Chr(34) & " в " & Chr(34) & "T:\Rik\PS\ЛПА\Выдача нарядов\Оборудование" & Chr(34), vbExclamation
        Unload UserForm1
        Else
        Workbooks.Open F, , , , "3575"
        sAddress = "A1:ZZ1000"
        'получаем значение
        vData = Sheets(1).Range(sAddress).Value
        ActiveWorkbook.Close False
        'Записываем данные на активный лист книги,
        'с которой запустили макрос
            If IsArray(vData) Then
            Worksheets("Оборудование").[a1].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
            Else
            Worksheets("Оборудование").[a1] = vData
            End If
вот на этой строке выдает ошибку(4-я с низу):
Worksheets("Оборудование").[a1].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData

2010 офис использовать не могу, по причине глюков Excel'я
Миниатюры
Друзья! не работает код с версией файла в 2003 офисе, на 2010 все работает, суть: копирование из закрытой книги  
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.08.2017, 10:06
Ответы с готовыми решениями:

Друзья! не работает код с версией файла в 2003 офисе, на 2010 все работает, суть: копирование из закрытой книги
Sub Zagruzka_dannyh() UserForm1.Label117.Visible = False UserForm1.Image48.Visible = False...

Почему в офисе 97 прога заполнения шаблона ворда из файла екселя работает корректно, а в офисе 2000 нет?
люди подскажите почему в офисе 97 прога заполнения шаблона ворда из файла екселя работает...

Копирование данных из закрытой книги
Добрый день, уважаемые форумчане. Помогите советом. Мне нужно скопировать все данные из столбца...

Копирование из закрытой книги по условию
доброго времени! Есть макрос для копирования строк из закрытых книг в сводный отчет: Sub...

1
11254 / 3618 / 645
Регистрация: 13.02.2009
Сообщений: 10,793
11.08.2017, 18:43 2
кнопочку ДЕБУГ (Debug) видишь? ТЫЦ-ни по ней! бейсик покажет ошибку!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.08.2017, 18:43

Копирование конкретных ячеек из закрытой книги
Здравствуйте. Нужна Ваша помощь, вообщем я нашел макрос в интернете который копирует данные из...

Копирование листа из закрытой книги в открытую
Добрые люди, пофиксите макрос, чтобы он запускался с панели инструментов для открытой книги... ...

Копирование листов закрытой книги в открытую
Добрий день! Есть макрос которий копирует в активную книгу лист1 и лист2 с книги города.xls в...

копирование значений листа с закрытой книги
Подскажите пожалуйста, как можно скопировать лист не сохраняя формат листа (объединенные ячейки,...

Код не работает в VC++ 6.0 но работает в MSVC++ 2010
Что делать как перевести, ведь как мне кажеться должно быть подобно. Проблемма например в...

Код с пробелами работает в командной строке, но не работает из bat-файла
Помогите как откоректировать bat файл, чтобы он работал c: cd c:\Program Files...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.