Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.190.176.78] |
|
Сообщ.
#1
,
|
|
|
Пoмoгите пoжaлуйстa!
Кaк изменить дaнную функцию, тaк чтoбы,ее мoжнo билo зaпускaть с кoмaнднoй стрoки, с передaчей двух aргументoв. Зaрaнее спaсибo, всем oткликнувшимся!!! Private Sub Command1_Click() Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = New Excel.Application Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlApp.Worksheets.Add xlSheet.Cells(1, 1).Value = Text1.Text xlSheet.Cells(2, 1).Value = Text2.Text xlSheet.SaveAs "c:\Temp.xls" xlBook.Close End Sub |
Сообщ.
#2
,
|
|
|
То есть как? Через Пуск->Выполнить, набить на клаве строчку - и готовая таблица? Или через передачу аргументов EXE-файлу?
|
Сообщ.
#3
,
|
|
|
через передачу аргументов EXE-файлу
|
Сообщ.
#4
,
|
|
|
Переменная (встроенная) Command$ содержит все аргументы командной сторки, которые были переданы как ключи, их можно получить на любом этапе исполнения проги!
|