Ïÿòíèöà, 11 Àïðåëÿ 2014 ã. 23:28
+ â öèòàòíèê
Åñòü êîä VBA íà êíîïêå:
Private Sub Êíîïêà12_Click()
Set obj = GetObject("D:\List.xlsx")
obj.Application.Visible = True
obj.Parent.Windows(1).Visible = True
End Sub
Ïðè íàæàòèè íà êíîïêó, îòêðûâàåòñÿ ôàéëèê Excel. Åñëè äàííîãî ôàéëà ïî óêàçàííîìó ïóòè íåò, îí âûäàåò "Run time error 432". ß, êîíå÷íî, æìó íà
End è ïîíèìàþ, ÷òî ôàéëèêà òóò
D:\List.xlsx íåò. Íî êîíå÷íûé ïîëüçîâàòåëü íå ïîéìåò è áóäåò "âîð÷àòü". Âîïðîñ, êàê ìíå äîïîëíèòü ñâîé êîä, ÷òîáû âîîáùå îòêëþ÷èòü îêíî ñ îøèáêîé. È âòîðîé âàðèàíò: êàê ñäåëàòü, ÷òîáû âûïèñûâàëàñü îøèáêà ñ ìîèì òåêñòîì? Íàïðèìåð: "Ôàéëà íå ñóùåñòâóåò ïî óêàçàííîìó ïóòè"
http://www.sql.ru/forum/1088603/oshibki-vba
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-