На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Правила раздела Visual Basic: Общие вопросы
Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image FAQ Сайта user posted image FAQ Раздела user posted image Кладовка user posted image Наши Исходники user posted image API-Guide user posted image Поиск по Разделу user posted image MSDN Library Online user posted image Google

Ваше мнение о модераторах: user posted image SCINER, user posted image B.V.
Модераторы: SCINER, B.V.
  
> excel
    П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
      То есть как? Через Пуск->Выполнить, набить на клаве строчку - и готовая таблица? Или через передачу аргументов EXE-файлу?
        через передачу аргументов EXE-файлу
          Переменная (встроенная) Command$ содержит все аргументы командной сторки, которые были переданы как ключи, их можно получить на любом этапе исполнения проги!
          1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
          0 пользователей:


          Рейтинг@Mail.ru
          [ Script execution time: 0,0488 ]   [ 15 queries used ]   [ Generated: 21.05.24, 01:55 GMT ]