Ñîçäàíèå êíèãè Excel èç ìîäóëÿ Access
|
|
Ïÿòíèöà, 05 Äåêàáðÿ 2014 ã. 01:37
+ â öèòàòíèê
Çäðàâñòâóéòå.
ïîìîãèòå, ïîæàëóéñòà, íîâè÷êó.
Èç ìîäóëÿ Access ïûòàþñü ñîçäàòü ðàáî÷óþ êíèãó Excel ñ ïîìîùüþ ïðîñòîé ïðîöåäóðû (ïðèâåäåíà íèæå). Íî, ïî÷åìó-òî íè÷åãî íå ïðîèñõîäèò. Íîâàÿ ðàáî÷àÿ êíèãà íå ïîÿâëÿåòñÿ. Åñëè æå âñòàâèòü â êîíöå êîìàíäó MsgBox wrb.Name, òî ÿ ïîëó÷àþ èìåíà "Êíèãà1", "Êíèãà2" ò.ä.
Ïî÷åìó íå ñîçäàåòñÿ ñàìà ðàáî÷àÿ êíèãà?
Çàðàíåå áëàãîäàðåí çà ïîìîùü.
Sub NewWrb()
Dim objExcel As Excel.Application
Dim wrb As Workbook
Set objExcel = New Excel.Application
Set wrb = objExcel.Workbooks.Add
End Sub
http://www.sql.ru/forum/1130645/sozdanie-knigi-excel-iz-modulya-access
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-