Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / внесение данных с помощью VB в Excell / 7 сообщений из 7, страница 1 из 1
26.01.2008, 13:33
    #35089388
yanus_rnd
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
внесение данных с помощью VB в Excell
собственно ситуация такая. есть программа в которой постоянно обновляется значение "Х". вней можно записывать макросы VB. собственно нужно чтобы значение "х" попадало в заранее подготовленный экселевский файл в нужную ячейку. сам к прораммированию отношения не имею, поэтому сильно выручите, если подскажите как это сделать
...
Рейтинг: 0 / 0
26.01.2008, 14:24
    #35089422
DOSS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
внесение данных с помощью VB в Excell
Dim MyObj As Object
Set MyObj = CreateObject("Excel.Application")
MyObj.Visible = True
MyObj.Workbooks.Open FileName:=gsDirApp + "\Reports\" + "Свод.xlt"

MyObj.ActiveSheet.Cells(1, 1) = "Текущее значение Х"
...
Рейтинг: 0 / 0
26.01.2008, 14:46
    #35089430
yanus_rnd
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
внесение данных с помощью VB в Excell
порпобывал вставить написало "error30. прекдполагается наличие окончания инструкции Source:ошибка компиляции VBScript".....может я просто неточно объяснил, что хочу получить в итоге, проще показать, вот работающий вариант, но он каждый раз создает новый файл, а мне нужна запись в уже созданный.

Clos =LastValue(Close);
Ticker = Name(); ////относится к прорамме, откуда нужно выводить данные

EnableScript("vbscript");
<%
Clos = AFL("Clos")
Ticker = AFL("Ticker")
Set Excel = CreateObject("Excel.Application")
Excel.WorkBooks.Add
Set Sheet = Excel.WorkBooks(1).WorkSheets(1)
Sheet.Cells(1,1) = Ticker
Sheet.Cells(1,2) = "Close="
Sheet.Cells(1,3) = Clos //////собственно это значение я и хочу вывести в экселевсий файл.
Excel.Visible = 1
%>
...
Рейтинг: 0 / 0
26.01.2008, 17:17
    #35089575
DOSS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
внесение данных с помощью VB в Excell
'Clos = AFL("Clos")
'Ticker = AFL("Ticker")
Set Excel = CreateObject("Excel.Application")
Excel.WorkBooks.Add
Set Sheet = Excel.WorkBooks(1).WorkSheets(1)
'Sheet.Cells(1,1) = Ticker
Sheet.Cells(1,2) = "Close="
dim clos
clos = 5 + 5 ' Выражение
Sheet.Cells(1,3) = Clos
Excel.Visible = 1

Excel.Workbooks(1).SaveAs("C:\Book.Xls") ' Сохранить
Excel.Quit
...
Рейтинг: 0 / 0
26.01.2008, 19:02
    #35089644
yanus_rnd
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
внесение данных с помощью VB в Excell
DOSS'Clos = AFL("Clos")
'Ticker = AFL("Ticker")
Set Excel = CreateObject("Excel.Application")
Excel.WorkBooks.Add
Set Sheet = Excel.WorkBooks(1).WorkSheets(1)
'Sheet.Cells(1,1) = Ticker
Sheet.Cells(1,2) = "Close="
dim clos
clos = 5 + 5 ' Выражение
Sheet.Cells(1,3) = Clos
Excel.Visible = 1

Excel.Workbooks(1).SaveAs("C:\Book.Xls") ' Сохранить
Excel.Quit
вы все-таки неправильно меня поняли, в этом коде файл создается новый, а потом сохраняется.если так сделать то все формулы в файле будут затираться после первого сохранения, кроме того каждый раз Excell спрашивает о замене файла.можно ли сделать так, чтобы в уже существующем файле "C:\Book.Xls" менялось значение в ячейке (1,1). сохранение файла при этом по сути не нужно.
...
Рейтинг: 0 / 0
26.01.2008, 20:52
    #35089742
DOSS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
внесение данных с помощью VB в Excell
Наверное действительно есть недопонимание.

С файлом Екселя работают одновременно один или несколько.

Седьмой параметр метода SaveAs как раз и отвечает за подтверждение сохранения
Excel.Workbooks(1).SaveAs "C:\Book.Xls",,,,,,,2
Однако в VB Script это не работает.

Поищите в справке по VBA Excel может найдёте, свойства и методы совпадают
с Excel.Application.
Может в скрипте сначала удалить файл , а потом сохранить ?

Кстати, что за программа у Вас с VB скриптами, известная.
Пошустрите в форумах HTML, JavaScript, VBScript, CSS и Microsoft Office
...
Рейтинг: 0 / 0
26.01.2008, 21:52
    #35089770
yanus_rnd
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
внесение данных с помощью VB в Excell
программа Amibroker. спасибо за совет, разобрался с вопросом.
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / внесение данных с помощью VB в Excell / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]