Форум на NGS.RU ЗАО «НГС» https://forum.ngs23.ru/ https://forum.ngs23.ru/board/programming/flat/1872614339/ Ringo_500 Ура, сам нашел. :) Все-равно сенкс. programming Wed, 06 Feb 2008 09:04:28 +0300 https://forum.ngs23.ru/board/programming/flat/1872613481/ Ringo_500 подскажьте плизещё. Делаю обратную операцию. ВВожу следующее: Option Explicit Dim objXL As Object Dim objWB As Object Dim objWS As Object Dim... programming Wed, 06 Feb 2008 05:48:11 +0300 https://forum.ngs23.ru/board/programming/flat/1872597014/ aglow Set objWb = objXL.Workbooks.Open( App.Path+ "\MyFile.xls") Только учтите, что при вызове непосредственно из VB App.Path вернет каталог самого VB... programming Thu, 31 Jan 2008 13:41:06 +0300 https://forum.ngs23.ru/board/programming/flat/1872596090/ Ringo_500 не, это я тут для наглядности. Пишу в коде без пробелов: (".\file.xls") programming Thu, 31 Jan 2008 10:37:24 +0300 https://forum.ngs23.ru/board/programming/flat/1872595851/ Сибиряк Прям вот так вот, с пробелами? programming Thu, 31 Jan 2008 09:53:33 +0300 https://forum.ngs23.ru/board/programming/flat/1872595511/ Ringo_500 плакаю :( ввожу (" . \ file.xls"), а он пишет, что ошибка. Абсолютные координаты понимает, а относительные нет. Мож не правильно... programming Thu, 31 Jan 2008 08:54:02 +0300 https://forum.ngs23.ru/board/programming/flat/1872588447/ Сибиряк А если убрать objWb.Close ("SaveChanges:=True") и сделать так: objXL.DisplayAlerts = False objXL.Visible = True Set objWs = Nothing Set... programming Tue, 29 Jan 2008 12:48:59 +0300 https://forum.ngs23.ru/board/programming/flat/1872588373/ Ringo_500 при этом он спрашивает разрешение на сохранение, а сам лист не открывает, а надо, чтоб открыл и внес, а сохраню я сам programming Tue, 29 Jan 2008 12:35:34 +0300 https://forum.ngs23.ru/board/programming/flat/1872588305/ Сибиряк Попробуйте закоментировать строку objWb.Close ("SaveChanges:=True") programming Tue, 29 Jan 2008 12:27:25 +0300 https://forum.ngs23.ru/board/programming/flat/1872587958/ Ringo_500 Уж допристаю, пока везет. Программка сохраняет в xls без его собссно открытия. а как исчо в коде прописать так, чтоб файл xls изменился, открылся... programming Tue, 29 Jan 2008 11:14:26 +0300 https://forum.ngs23.ru/board/programming/flat/1872586105/ Сибиряк Сори, не правильно понял вопрос. Если файл лежит в одной папке с экзешником, то можно прописать так: Set objWb... programming Mon, 28 Jan 2008 20:34:27 +0300 https://forum.ngs23.ru/board/programming/flat/1872586079/ Сибиряк VB6-го у меня нет, но судя по манам должно быть как-то так: На форму кидаем элемент управления "CommonDialog", его имя будет CommonDialog1 Dim... programming Mon, 28 Jan 2008 20:26:25 +0300 https://forum.ngs23.ru/board/programming/flat/1872585481/ Ringo_500 еще вопрос, распоследний. как имя xls файла запросить в относительных координатах (не с:\..., аневажногде, но в одной папке с бейсиковским файлом) programming Mon, 28 Jan 2008 16:38:24 +0300 https://forum.ngs23.ru/board/programming/flat/1872584665/ Ringo_500 ого, сенкис, работает. дальше думаю сам допру programming Mon, 28 Jan 2008 12:53:08 +0300 https://forum.ngs23.ru/board/programming/flat/1872579222/ Сибиряк Например, вставим жирную двойку в ячейку А1 первого листа: Dim objXL As Object Dim objWb As Object Dim objWs As Object Set objXL... programming Sat, 26 Jan 2008 12:55:09 +0300