powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / внесение данных с помощью VB в Excell
7 сообщений из 7, страница 1 из 1
внесение данных с помощью VB в Excell
    #35089388
yanus_rnd
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
собственно ситуация такая. есть программа в которой постоянно обновляется значение "Х". вней можно записывать макросы VB. собственно нужно чтобы значение "х" попадало в заранее подготовленный экселевский файл в нужную ячейку. сам к прораммированию отношения не имею, поэтому сильно выручите, если подскажите как это сделать
...
Рейтинг: 0 / 0
внесение данных с помощью VB в Excell
    #35089422
Фотография DOSS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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
внесение данных с помощью VB в Excell
    #35089430
yanus_rnd
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
порпобывал вставить написало "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
внесение данных с помощью VB в Excell
    #35089575
Фотография 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
...
Рейтинг: 0 / 0
внесение данных с помощью VB в Excell
    #35089644
yanus_rnd
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
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
внесение данных с помощью VB в Excell
    #35089742
Фотография DOSS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Наверное действительно есть недопонимание.

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

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

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

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


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