Управление Excel таблицами

Тема в разделе "Visual Basic", создана пользователем hamsid, 20 мар 2011.

  1. hamsid

    hamsid Гость

    Народ, помогите мне нужно знать как:
    1) Создавать и сохранять Excel таблицу;
    2) Управлять содержимым отдельной ячейки;
    Кстати, у меня не макрос, а полноценная программа...
     
  2. andrey24

    andrey24 Member

    Регистрация:
    8 июл 2010
    Сообщения:
    20
    Симпатии:
    0
    В первую очередь добавьте к VB-приложению ссылку к Microsoft Excel 11.0 Object Library (команда Project|References, у меня "Microsoft Excel 11.0", у вас может быть другая версия).
    К примеру код функции CreateXlBook для создания экземпляра Excel:
    Код (Text):
    ' CreateXlBook
    ' Вызывает MS Excel, создает рабочую книгу с именем sWbName с одним
    ' единственным рабочим листом. Рабочая книга будет сохранена в каталоге
    ' sDirName. В случае успеха возвращает True, в противном случае - False.
    '
    Public Function CreateXlBook(sWbName As String, sDirName) As Boolean
    ' MS Excel hidden instance
    Dim objXLApp As Object
    Dim objWbNewBook As Object
    CreateXlBook = False
    Set objXLApp = CreateObject("Excel.Application")
    If objXLApp Is Nothing Then Exit Function
    ' В новой рабочей книге создавать только один рабочий лист
    objXLApp.SheetsInNewWorkbook = 1
    Set objWbNewBook = objXLApp.Workbooks.Add
    If objWbNewBook Is Nothing Then Exit Function
    objXLApp.ActiveCell(1, 1) = "Столбец 1"
    objXLApp.ActiveCell(1, 3) = "Столбец 3"

    ' Сохраняем книгу
    objWbNewBook.SaveAs (sDirName + "\" + sWbName + ".xls")
    ' Освобождение памяти
    Set objXLApp = Nothing
    objWbNewBook.Close
    CreateXlBook = True

    End Function

    Private Sub Command1_Click()
    CreateXlBook "Моя книга", "Папка с Excel-ем"
    End Sub
    В заведомо созданной папке Папка с Excel-ем появится файл Моя книга.
     
Загрузка...

Поделиться этой страницей