|
|
|
внесение данных с помощью VB в Excell
|
|||
|---|---|---|---|
|
#18+
собственно ситуация такая. есть программа в которой постоянно обновляется значение "Х". вней можно записывать макросы VB. собственно нужно чтобы значение "х" попадало в заранее подготовленный экселевский файл в нужную ячейку. сам к прораммированию отношения не имею, поэтому сильно выручите, если подскажите как это сделать ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.01.2008, 13:33 |
|
||
|
внесение данных с помощью VB в Excell
|
|||
|---|---|---|---|
|
#18+
Dim MyObj As Object Set MyObj = CreateObject("Excel.Application") MyObj.Visible = True MyObj.Workbooks.Open FileName:=gsDirApp + "\Reports\" + "Свод.xlt" MyObj.ActiveSheet.Cells(1, 1) = "Текущее значение Х" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.01.2008, 14:24 |
|
||
|
внесение данных с помощью VB в Excell
|
|||
|---|---|---|---|
|
#18+
порпобывал вставить написало "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 %> ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.01.2008, 14:46 |
|
||
|
внесение данных с помощью VB в Excell
|
|||
|---|---|---|---|
|
#18+
'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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.01.2008, 17:17 |
|
||
|
внесение данных с помощью VB в Excell
|
|||
|---|---|---|---|
|
#18+
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). сохранение файла при этом по сути не нужно. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.01.2008, 19:02 |
|
||
|
внесение данных с помощью VB в Excell
|
|||
|---|---|---|---|
|
#18+
Наверное действительно есть недопонимание. С файлом Екселя работают одновременно один или несколько. Седьмой параметр метода SaveAs как раз и отвечает за подтверждение сохранения Excel.Workbooks(1).SaveAs "C:\Book.Xls",,,,,,,2 Однако в VB Script это не работает. Поищите в справке по VBA Excel может найдёте, свойства и методы совпадают с Excel.Application. Может в скрипте сначала удалить файл , а потом сохранить ? Кстати, что за программа у Вас с VB скриптами, известная. Пошустрите в форумах HTML, JavaScript, VBScript, CSS и Microsoft Office ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.01.2008, 20:52 |
|
||
|
|

start [/forum/topic.php?fid=60&msg=35089644&tid=2162780]: |
0ms |
get settings: |
8ms |
get forum list: |
18ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
58ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
42ms |
get tp. blocked users: |
1ms |
| others: | 224ms |
| total: | 368ms |

| 0 / 0 |
