InstantForum.NET v4.1.4Релибhttp://www.relib.com/forums/robot@relib.comSat, 10 Jan 2009 06:40:56 GMT20http://www.relib.com/forums/Topic913451-1-1.aspx<DIV>все...псиб...с экселем разобрался кодом:</DIV><DIV> </DIV><DIV><FONT color=#3333dd>Dim xlApp As Object</FONT></DIV><DIV><FONT color=#3333dd></FONT> </DIV><DIV><FONT color=#3333dd>Set xlApp = CreateObject("excel.application")<BR> If xlApp.Workbooks.Count &gt; 0 Then xlApp.Workbooks(1).Close<BR> xlApp.Workbooks.Open (App.Path + "\" + "Shablon.xls")<BR> xlApp.ActiveSheet.Cells(1, 1) = "бла бла бла"<BR> xlApp.Visible = True<BR><BR> xlApp.Workbooks(1).PrintPreview<BR> xlApp.Workbooks(1).SaveCopyAs (App.Path + "\" + Text1.Text + ".xls")<BR> xlApp.Workbooks(1).Close (False)<BR> xlApp.Quit<BR> Set xlApp = Nothing</FONT></DIV><DIV><FONT color=#3333dd>End Function</FONT></DIV>Mon, 21 May 2007 17:04:14 GMTcorvushttp://www.relib.com/forums/Topic913451-1-1.aspx<DIV>Есть программка....она там считает, в конце ей нужно скинуть в эксель результаты в нужный шаблон...т.е. </DIV><DIV>- открыть файл-шаблон, </DIV><DIV>- вписать в нужные клетки всяк фигню, </DIV><DIV>- переименовать файлик в другой отличный от шаблона (дабы он оставался девственно нетронут)</DIV><DIV>- освободить память</DIV><DIV> </DIV><DIV>сейчас у меня так:</DIV><DIV>- создаю новый эксель-файлик</DIV><DIV>- кучей кода я вырисовываю шаблон каждый раз (чтобы не плевался ошибками о всяких переполнениях и пр. - отключаю вообще все ошибки с продолжением выполнения)</DIV><DIV>- сохраняю в нужное название</DIV><DIV>- освобождаю память</DIV><DIV> </DIV><DIV>Пример того что сейчас:</DIV><DIV> </DIV><DIV><FONT color=#1111ff>Public Function CreateXlBook(sWbName As String, sDirName) As Boolean</FONT></DIV><DIV><FONT color=#1111ff></FONT> </DIV><DIV><FONT color=#1111ff> Dim objXLApp As Object<BR> Dim objWbNewBook As Object</FONT></DIV><DIV><FONT color=#1111ff></FONT> </DIV><DIV><FONT color=#1111ff> CreateXlBook = False</FONT></DIV><DIV><FONT color=#1111ff></FONT> </DIV><DIV><FONT color=#1111ff> Set objXLApp = CreateObject("Excel.Application")<BR> If objXLApp Is Nothing Then Exit Function</FONT></DIV><DIV><FONT color=#1111ff></FONT> </DIV><DIV><FONT color=#1111ff>'тут вырисовываю страницу и пихаю данные по ячейкам</FONT></DIV><DIV><FONT color=#1111ff></FONT> </DIV><DIV><FONT color=#1111ff> objXLApp.SheetsInNewWorkbook = 1<BR> <BR> Set objWbNewBook = objXLApp.Workbooks.Add<BR> If objWbNewBook Is Nothing Then Exit Function</FONT></DIV><DIV><FONT color=#1111ff></FONT> </DIV><DIV><FONT color=#1111ff> If vbNullString = Dir(sDirName, vbDirectory) Then Exit Function</FONT></DIV><DIV><FONT color=#1111ff></FONT> </DIV><DIV><FONT color=#1111ff> objWbNewBook.SaveAs (App.Path + "\" + Text1.Text + ".xls")<BR> objXLApp.Visible = True<BR> CreateXlBook = True<BR> <BR> Set objWbNewBook = Nothing<BR> objXLApp.Quit<BR> Set objXLApp = Nothing<BR> CreateXlBook = True</FONT></DIV><DIV><FONT color=#1111ff></FONT> </DIV><DIV><FONT color=#1111ff>End Function</FONT></DIV><DIV> </DIV><DIV> </DIV>Mon, 21 May 2007 09:56:08 GMTcorvus