-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â rss_sql_ru_access_programming

 -Ïîäïèñêà ïî e-mail

 

 -Ïîñòîÿííûå ÷èòàòåëè

 -Ñòàòèñòèêà

Ñòàòèñòèêà LiveInternet.ru: ïîêàçàíî êîëè÷åñòâî õèòîâ è ïîñåòèòåëåé
Ñîçäàí: 16.03.2006
Çàïèñåé:
Êîììåíòàðèåâ:
Íàïèñàíî: 4


Îøèáêè VBA

Ïÿòíèöà, 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


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó