Форум программистов, компьютерный форум, киберфорум
VBA
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
58 / 57 / 13
Регистрация: 10.09.2009
Сообщений: 255

Файл с автоматическим запуском формы после сохранения больше не запускается и вылетает ексель

28.10.2016, 16:49. Показов 1934. Ответов 14
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Здравствуйте, есть проблемка с файлом после сохранения его больше он не запускается. Файл рабочий прилагается

Добавлено через 6 минут
https://cloud.mail.ru/public/EkiK/CjzLvhwrf

Добавлено через 57 секунд
файл на файлообменнике, к теме не приложился размер 1 Мб

Добавлено через 1 час 24 минуты
Помогите пожалуйста!
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 28.10.2016, 16:49
Ответы с готовыми решениями:

После сохранения файла вылетает Excel 2010
Всем привет! У меня такая проблема. мне нужно обновить файл, написанный по 2003 Excel, так чтобы он корректно работал в 2010 (как вы...

Не запускается после сохранения
Добрый день. нужна помощь. в Borland C++ 6 не могу после сохранения запустить програму, выдает кауюто ошибку. может кто сталкивался с этим?...

закрытие формы после сохранения
надо, чтоб прога закрывалась после "сохранить" или "отмена" procedure TForm1.FormCreate(Sender: TObject); begin bmp :=...

14
58 / 57 / 13
Регистрация: 10.09.2009
Сообщений: 255
28.10.2016, 17:21  [ТС]
упакованная версия
Вложения
Тип файла: zip TD_ver6_01_test.zip (273.4 Кб, 4 просмотров)
0
 Аватар для KoGG
5640 / 1622 / 418
Регистрация: 23.12.2010
Сообщений: 2,430
Записей в блоге: 1
31.10.2016, 11:27
Лучший ответ Сообщение было отмечено Владимир_Сар как решение

Решение

Просто проверил ошибки в VBE : Debug / Compile VBAProject
Модуль UserForm1 процедура CommandButton26_Click строка
Visual Basic
1

    If UserForm1.ComboBox44 = "" Then GoTo 1000
Метки 1000 в данном модуле не существует

Модуль Module1 процедура набор последняя строка
Visual Basic
1

T2ras = Темп2и(P2, i2, 3)
где Темп2и - несуществующая функция (либо она Private в другом модуле)
1
58 / 57 / 13
Регистрация: 10.09.2009
Сообщений: 255
01.11.2016, 14:34  [ТС]
Спасибо большое

Добавлено через 11 минут
Это остатки из прошлых версий, но убрав эти замечания снова вылетает Ексель

Добавлено через 5 минут
эти ошибки не влияют на работу программы при запуске формы, где то еще что то не так
0
 Аватар для KoGG
5640 / 1622 / 418
Регистрация: 23.12.2010
Сообщений: 2,430
Записей в блоге: 1
01.11.2016, 15:32
Лучший ответ Сообщение было отмечено Владимир_Сар как решение

Решение

Во всех модулях в начале напишите
Visual Basic
1

Option Explicit
, объявите все необъявленные переменные и углубленно вылавливайте все ошибки в режиме отладки.
Некоторые ошибки могут зависеть от конкретных данных и наличия файлов по указанным путям.
1
58 / 57 / 13
Регистрация: 10.09.2009
Сообщений: 255
01.11.2016, 16:13  [ТС]
Ошибка должна где то раньше быть во время загрузки текста в ТекстБоксы и отображением формы

Добавлено через 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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176

Private Sub Workbook_Open()
   Call открытие
End Sub
Sub открытие()
    Call загрузка1
    Call загрузка2
    Call загрузка3
    Call загрузка4
    ActiveWindow.WindowState = xlMinimized
    UserForm1.Show
End Sub
Sub загрузка1()
    'добавление в комбобокс список названий составов
    S = 7
    Z = Worksheets("Состав").Cells(S, 1)
    While Z > 0
        Name10000 = Worksheets("Состав").Cells(S, 2)
        
        UserForm1.ComboBox1.AddItem Name10000
        UserForm1.ComboBox8.AddItem Name10000
        UserForm1.ComboBox15.AddItem Name10000
        UserForm1.ComboBox22.AddItem Name10000
        UserForm1.ComboBox23.AddItem Name10000
        UserForm1.ComboBox35.AddItem Name10000
        UserForm1.ComboBox36.AddItem Name10000
        UserForm1.ComboBox49.AddItem Name10000
        UserForm1.ComboBox50.AddItem Name10000
        UserForm1.ComboBox61.AddItem Name10000
        UserForm1.ComboBox62.AddItem Name10000
        UserForm1.ComboBox77.AddItem Name10000
        UserForm1.ComboBox83.AddItem Name10000
        S = S + 1
        Z = Worksheets("Состав").Cells(S, 1)
    Wend
End Sub
 
Sub загрузка2()
'   добавление в  боксы варианты задания параметров
    UserForm1.ComboBox9.AddItem "Р1, Р2, Т1, КПДт"  'подгружаем в БОКС турбины
    UserForm1.ComboBox9.AddItem "Р1, Р2, Т2, КПДт"
    UserForm1.ComboBox9.AddItem "Р1, Т1, Т2, КПДт"
    UserForm1.ComboBox9.AddItem "Р2, Т1, Т2, КПДт"
    UserForm1.ComboBox9.AddItem "Р1, Р2, Т1, Т2"
    UserForm1.ComboBox9.AddItem "Р1, Р2, Т1, Nт"
    UserForm1.ComboBox16.AddItem "Р3, Р4, Т3, КПДк"  'подгружаем в БОКС компрессора
    UserForm1.ComboBox16.AddItem "Р3, Р4, Т4, КПДк"
    UserForm1.ComboBox16.AddItem "Р3, Т3, Т4, КПДк"
    UserForm1.ComboBox16.AddItem "Р4, Т3, Т4, КПДк"
    UserForm1.ComboBox16.AddItem "Р3, Р4, Т3, Т4"
    UserForm1.ComboBox16.AddItem "Р3, Р4, Т3, Nк"
'   добавление в  боксы варианты последовательности расположения агрегатов
    UserForm1.ComboBox44.AddItem "Турбина-Компрессор"
    UserForm1.ComboBox44.AddItem "Компрессор-Турбина"
    
    UserForm1.ComboBox46.AddItem "Турбина-Компрессор"
    UserForm1.ComboBox46.AddItem "Компрессор"
    
    'UserForm1.ComboBox37.AddItem "Р1, Р4, Т1, Т3"
    'UserForm1.ComboBox37.AddItem "Р3, Р2, Т1, Т3"
    
    'добавление в комбобокс список размерностей
    n100 = 1
    While n100 < 5
        Select Case n100
            Case 1
                Name10002 = "млн.м3/сут"
            Case 2
                Name10002 = "тыс.м3/час"
            Case 3
                Name10002 = "кг/час"
            Case 4
                Name10002 = "кг/с"
        End Select
            
            UserForm1.ComboBox10.AddItem Name10002
            UserForm1.ComboBox17.AddItem Name10002
            UserForm1.ComboBox25.AddItem Name10002
            UserForm1.ComboBox45.AddItem Name10002
            UserForm1.ComboBox79.AddItem Name10002
            UserForm1.ComboBox84.AddItem Name10002
        
        n100 = n100 + 1
    Wend
 
    n101 = 1
    While n101 < 3
        Select Case n101
            Case 1
                Name10003 = "МПа"
                Name10004 = "°C"
            Case 2
                Name10003 = "бар"
                Name10004 = "К"
        End Select
            
        'давление
            UserForm1.ComboBox2.AddItem Name10003
            UserForm1.ComboBox3.AddItem Name10003
            UserForm1.ComboBox11.AddItem Name10003
            UserForm1.ComboBox12.AddItem Name10003
            UserForm1.ComboBox18.AddItem Name10003
            UserForm1.ComboBox19.AddItem Name10003
            UserForm1.ComboBox26.AddItem Name10003
            UserForm1.ComboBox27.AddItem Name10003
            UserForm1.ComboBox32.AddItem Name10003
            UserForm1.ComboBox38.AddItem Name10003
            UserForm1.ComboBox39.AddItem Name10003
            UserForm1.ComboBox43.AddItem Name10003
            UserForm1.ComboBox85.AddItem Name10003
            UserForm1.ComboBox86.AddItem Name10003
        'температура
            UserForm1.ComboBox5.AddItem Name10004
            UserForm1.ComboBox6.AddItem Name10004
            UserForm1.ComboBox13.AddItem Name10004
            UserForm1.ComboBox14.AddItem Name10004
            UserForm1.ComboBox20.AddItem Name10004
            UserForm1.ComboBox21.AddItem Name10004
            UserForm1.ComboBox40.AddItem Name10004
            UserForm1.ComboBox41.AddItem Name10004
            UserForm1.ComboBox87.AddItem Name10004
            UserForm1.ComboBox88.AddItem Name10004
        
        n101 = n101 + 1
    Wend
'
        UserForm1.CommandButton3.Enabled = False    'делает кнопку невидимой(серой и неактивной)
        UserForm1.CommandButton4.Enabled = False
        UserForm1.CommandButton5.Enabled = False
        UserForm1.CommandButton8.Enabled = False
'
        UserForm1.CommandButton9.Enabled = False
        UserForm1.CommandButton10.Enabled = False
        UserForm1.CommandButton11.Enabled = False
        UserForm1.CommandButton12.Enabled = False
'
        UserForm1.CommandButton13.Enabled = False
        UserForm1.CommandButton14.Enabled = False
        UserForm1.CommandButton15.Enabled = False
        UserForm1.CommandButton16.Enabled = False
        UserForm1.CommandButton17.Enabled = False
'
        UserForm1.CommandButton18.Enabled = False
        UserForm1.CommandButton19.Enabled = False
        UserForm1.CommandButton20.Enabled = False
        UserForm1.CommandButton21.Enabled = False
        UserForm1.CommandButton22.Enabled = False
        UserForm1.CommandButton23.Enabled = False
        UserForm1.CommandButton24.Enabled = False
'
        UserForm1.CommandButton30.Enabled = False
        UserForm1.CommandButton31.Enabled = False
        UserForm1.CommandButton32.Enabled = False
        UserForm1.CommandButton33.Enabled = False
        UserForm1.CommandButton34.Enabled = False
'
        UserForm1.CommandButton40.Enabled = False
    
End Sub
Sub загрузка3()
    'добавление в комбобокс список названий составов
    S = 7
    Z = Worksheets("Характеристика").Cells(S, 1)
    While Z > 0
        Name10001 = Worksheets("Характеристика").Cells(S, 2)
            UserForm1.ComboBox76.AddItem Name10001
        S = S + 1
        Z = Worksheets("Характеристика").Cells(S, 1)
    Wend
End Sub
 
Sub загрузка4()
    'добавление в комбобокс список типов турбин
    UserForm1.ComboBox89.AddItem "Осевая"
    UserForm1.ComboBox89.AddItem "Радиальная"
    UserForm1.ComboBox89.AddItem "Радиально-осевая"
End Sub
Добавлено через 1 минуту
где то в этом коде

Добавлено через 3 минуты
или может нарушаются права доступа к файлу после сохранения

Добавлено через 1 минуту
после копирования в эту папку Вид окна запускается и все работает до момента сохранения этого файла, потом уже не запускается и вылетает ексель

Добавлено через 8 минут
у меня уже крышу срывает

Добавлено через 19 минут
что интересно блокирую запуск макросов, потом сохраняю этот файл снова затем закрываю. и уже после повторного открытия все работает, что не ужели это связано что не все переменные обьявлены
0
 Аватар для KoGG
5640 / 1622 / 418
Регистрация: 23.12.2010
Сообщений: 2,430
Записей в блоге: 1
01.11.2016, 17:04
Цитата Сообщение от Владимир_Сар Посмотреть сообщение
что не ужели это связано что не все переменные обьявлены
Нет не связано, это просто метод найти ошибки.
Ваша ошибка у меня не воспроизводится.
Закомментируйте
Visual Basic
1
2
3

Private Sub Workbook_Open()
   Call открытие
End Sub
После открытия файла выполняйте процедуру "открытие" и отлаживайте.
1
58 / 57 / 13
Регистрация: 10.09.2009
Сообщений: 255
01.11.2016, 17:30  [ТС]
При отладки кода ошибка не находится

Добавлено через 2 минуты
Подпись ошибки:
AppName: excel.exe AppVer: 11.0.8211.0 AppStamp:47dcb10b
ModName: unknown ModVer: 0.0.0.0 ModStamp:00000000
fDebug: 0 Offset: 00000000
0
58 / 57 / 13
Регистрация: 10.09.2009
Сообщений: 255
01.11.2016, 17:35  [ТС]
вот экран
Миниатюры
Файл с автоматическим запуском формы после сохранения больше не запускается и вылетает ексель  
0
 Аватар для KoGG
5640 / 1622 / 418
Регистрация: 23.12.2010
Сообщений: 2,430
Записей в блоге: 1
01.11.2016, 17:48
В начало процедуры "открытие" можно добавить
Visual Basic
1

Load UserForm1
поможет ли - неизвестно.

В коде встречал .Activate и .Select , применяемые к листу или диапазону. Окно при открытии свернуто, Activate и Select могут вызывать ошибку.

Закомментировать везде
Visual Basic
1

Application.DisplayAlerts = False
Visual Basic
1

On Error GoTo
и отлаживать.
1
58 / 57 / 13
Регистрация: 10.09.2009
Сообщений: 255
01.11.2016, 19:22  [ТС]
Цитата Сообщение от KoGG Посмотреть сообщение
1
Load UserForm1
не помогло

Добавлено через 4 минуты
Visual Basic
1
2
3

On Error GoTo ErrorTrap
ErrorTrap:
    MsgBox "The following error occurred:  " & Error(Err), Buttons:=48
Добавлено через 3 минуты
Цитата Сообщение от KoGG Посмотреть сообщение
1
Application.DisplayAlerts = False
не помогло ошибка до начала загрузки окна

Добавлено через 9 минут
вылетает ексель во время выполнения
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121

Sub загрузка2()
'   добавление в  боксы варианты задания параметров
    UserForm1.ComboBox9.AddItem "Р1, Р2, Т1, КПДт"  'подгружаем в БОКС турбины
    UserForm1.ComboBox9.AddItem "Р1, Р2, Т2, КПДт"
    UserForm1.ComboBox9.AddItem "Р1, Т1, Т2, КПДт"
    UserForm1.ComboBox9.AddItem "Р2, Т1, Т2, КПДт"
    UserForm1.ComboBox9.AddItem "Р1, Р2, Т1, Т2"
    UserForm1.ComboBox9.AddItem "Р1, Р2, Т1, Nт"
    UserForm1.ComboBox16.AddItem "Р3, Р4, Т3, КПДк"  'подгружаем в БОКС компрессора
    UserForm1.ComboBox16.AddItem "Р3, Р4, Т4, КПДк"
    UserForm1.ComboBox16.AddItem "Р3, Т3, Т4, КПДк"
    UserForm1.ComboBox16.AddItem "Р4, Т3, Т4, КПДк"
    UserForm1.ComboBox16.AddItem "Р3, Р4, Т3, Т4"
    UserForm1.ComboBox16.AddItem "Р3, Р4, Т3, Nк"
'   добавление в  боксы варианты последовательности расположения агрегатов
    UserForm1.ComboBox44.AddItem "Турбина-Компрессор"
    UserForm1.ComboBox44.AddItem "Компрессор-Турбина"
    
    UserForm1.ComboBox46.AddItem "Турбина-Компрессор"
    UserForm1.ComboBox46.AddItem "Компрессор"
    
    'UserForm1.ComboBox37.AddItem "Р1, Р4, Т1, Т3"
    'UserForm1.ComboBox37.AddItem "Р3, Р2, Т1, Т3"
    
    'добавление в комбобокс список размерностей
    n100 = 1
    While n100 < 5
        Select Case n100
            Case 1
                Name10002 = "млн.м3/сут"
            Case 2
                Name10002 = "тыс.м3/час"
            Case 3
                Name10002 = "кг/час"
            Case 4
                Name10002 = "кг/с"
        End Select
            
            UserForm1.ComboBox10.AddItem Name10002
            UserForm1.ComboBox17.AddItem Name10002
            UserForm1.ComboBox25.AddItem Name10002
            UserForm1.ComboBox45.AddItem Name10002
            UserForm1.ComboBox79.AddItem Name10002
            UserForm1.ComboBox84.AddItem Name10002
        
        n100 = n100 + 1
    Wend
 
    n101 = 1
    While n101 < 3
        Select Case n101
            Case 1
                Name10003 = "МПа"
                Name10004 = "°C"
            Case 2
                Name10003 = "бар"
                Name10004 = "К"
        End Select
            
        'давление
            UserForm1.ComboBox2.AddItem Name10003
            UserForm1.ComboBox3.AddItem Name10003
            UserForm1.ComboBox11.AddItem Name10003
            UserForm1.ComboBox12.AddItem Name10003
            UserForm1.ComboBox18.AddItem Name10003
            UserForm1.ComboBox19.AddItem Name10003
            UserForm1.ComboBox26.AddItem Name10003
            UserForm1.ComboBox27.AddItem Name10003
            UserForm1.ComboBox32.AddItem Name10003
            UserForm1.ComboBox38.AddItem Name10003
            UserForm1.ComboBox39.AddItem Name10003
            UserForm1.ComboBox43.AddItem Name10003
            UserForm1.ComboBox85.AddItem Name10003
            UserForm1.ComboBox86.AddItem Name10003
        'температура
            UserForm1.ComboBox5.AddItem Name10004
            UserForm1.ComboBox6.AddItem Name10004
            UserForm1.ComboBox13.AddItem Name10004
            UserForm1.ComboBox14.AddItem Name10004
            UserForm1.ComboBox20.AddItem Name10004
            UserForm1.ComboBox21.AddItem Name10004
            UserForm1.ComboBox40.AddItem Name10004
            UserForm1.ComboBox41.AddItem Name10004
            UserForm1.ComboBox87.AddItem Name10004
            UserForm1.ComboBox88.AddItem Name10004
        
        n101 = n101 + 1
    Wend
'
        UserForm1.CommandButton3.Enabled = False    'делает кнопку невидимой(серой и неактивной)
        UserForm1.CommandButton4.Enabled = False
        UserForm1.CommandButton5.Enabled = False
        UserForm1.CommandButton8.Enabled = False
'
        UserForm1.CommandButton9.Enabled = False
        UserForm1.CommandButton10.Enabled = False
        UserForm1.CommandButton11.Enabled = False
        UserForm1.CommandButton12.Enabled = False
'
        UserForm1.CommandButton13.Enabled = False
        UserForm1.CommandButton14.Enabled = False
        UserForm1.CommandButton15.Enabled = False
        UserForm1.CommandButton16.Enabled = False
        UserForm1.CommandButton17.Enabled = False
'
        UserForm1.CommandButton18.Enabled = False
        UserForm1.CommandButton19.Enabled = False
        UserForm1.CommandButton20.Enabled = False
        UserForm1.CommandButton21.Enabled = False
        UserForm1.CommandButton22.Enabled = False
        UserForm1.CommandButton23.Enabled = False
        UserForm1.CommandButton24.Enabled = False
'
        UserForm1.CommandButton30.Enabled = False
        UserForm1.CommandButton31.Enabled = False
        UserForm1.CommandButton32.Enabled = False
        UserForm1.CommandButton33.Enabled = False
        UserForm1.CommandButton34.Enabled = False
'
        UserForm1.CommandButton40.Enabled = False
End Sub
Добавлено через 5 минут
скорее всего вылетает из-за
Visual Basic
1
2
3
4
5
6
7
8
9

While n101 < 3
        Select Case n101
            Case 1
                Name10003 = "МПа"
                Name10004 = "°C"
            Case 2
                Name10003 = "бар"
                Name10004 = "К"
        End Select
Добавлено через 52 секунды
Цитата Сообщение от KoGG Посмотреть сообщение
и .Select
наверно Вы были правы

Добавлено через 45 минут
ЕСТЬ ограничения на количество AddItem

Добавлено через 6 минут
причина скорее всего количество AddItem, только не пойму почему!!!
0
 Аватар для KoGG
5640 / 1622 / 418
Регистрация: 23.12.2010
Сообщений: 2,430
Записей в блоге: 1
02.11.2016, 10:31
AddItem не при чем, тут нет такого большого количества элементов.
Ни при каких манипуляциях ошибка не возникает, возможно ошибка зависит от версии Офиса, у меня 2010.
1
58 / 57 / 13
Регистрация: 10.09.2009
Сообщений: 255
02.11.2016, 19:36  [ТС]
Цитата Сообщение от KoGG Посмотреть сообщение
у меня 2010.
хорошо проверю на 2010

Добавлено через 2 минуты
просто когда закомментировал несколько последних AddItem перестала вылетать, а если комментирую то место где начинает вылетать, то потом вылетает на следующем AddItem

Добавлено через 2 минуты
а так использование AddItem с учетом циклов может превышать 256

Добавлено через 4 минуты
а с учетом повторяемости больше 3000

Добавлено через 20 минут
Еще определил что ошибка появляется при добавлении информации в комбобоксы именно на последнюю страницу UserForm1

Добавлено через 6 минут
закоментировал все манипуляции касающиеся последнего листа на UserForm1 и перестало вылетать, хотя причина так и не найдена
0
1847 / 1162 / 354
Регистрация: 11.07.2014
Сообщений: 4,107
03.11.2016, 08:11
Лучший ответ Сообщение было отмечено Владимир_Сар как решение

Решение

Владимир_Сар, позволю себе вмешаться в ваше обсуждение.
Стало интересно, а почему так?
Скачал ваш файл запустил под 2007 и вы правы - повторный выдает ошибку памяти. Запустил под 2003 - ошибка при повторном запуске не появилась.
Оставил в программном модуле ЭТА КНИГА только WorkBook_Open, все остальные макросы поместил во вновь созданный мною Module2 и объявил их Public. Всё прекрасно работает и 2003 и 2007.
С этим ЭТА КНИГА надо быть осторожнее, я уже налетал на то, что переменные, объявленные в нем как Public не видимы в других модулях и ещё были какие-то глюки, уже не помню.
Сделайте так и, я думаю, всё будут норм.

Добавлено через 21 минуту
P.S. Я в эта книга помещаю загрузку других файлов и макросы, которые нужны для их загрузки.
1
58 / 57 / 13
Регистрация: 10.09.2009
Сообщений: 255
11.11.2016, 12:27  [ТС]
Цитата Сообщение от Burk Посмотреть сообщение
все остальные макросы поместил во вновь созданный мною Module2
Спасибо за совет, еще определил что ошибка появилась в результате добавление нового листа на UserForm1. Когда все манипуляции с этим листом отключил при загрузке нормально стала работать
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 11.11.2016, 12:27
Помогаю со студенческими работами здесь

Вылетает ексель
Помогите пожалуйста, при работе с данным файлом вылетает ексель Проверил на 3-х пк: на 2-х нормально работает, на 3-м после пару нажатий...

Сохранения свойства обекта после закрытия формы
Добрых суток форумчяни!!! Я столкнулся с маленькой проблемой, можно сказать не могу понять почему при закрытии формы настрой обекта...

Ошибка method cells of object _worksheet failed, Вылетает ексель
При первом запуске макроса все хорошо, а вот при втором постоянно выдает ошибку method cells of object _worksheet failed и попросту...

Не создаётся файл после работы с диалогом сохранения файла
Уважаемые форумчане! Я учусь работать c WinApi создаю простой текстовый редактор для практики. Создал окно, меню, акселераторы, диалоги...

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


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

Или воспользуйтесь поиском по форуму:
15
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru