VBA excel 2007 и Power point (Please help!)

10.05.2011, 12:31. **Показов** 5975. **Ответов** 16

Author24 — интернет-сервис помощи студентам

Уважаемые форумчане, подскажите пожалуйста, в чем ошибка!
Задача: при нажатии кнопки на листе Excel создается пустая презентация Powerpoint, файл с которой сохраняется в определенном месте.
Затык: при существующем коде после нажатия на кнопку выдает две ошибки
1) Index to attribute
Object reference not set to an instance of a object

2) Ribbon_load
Object reference not set to an instance of a object

Код следующий:

Visual Basic

Dim AppPoint As PowerPoint.Application
Dim AppPres As PowerPoint.Presentation
Dim a As String
 
a = ActiveWorkbook.Path + "\" + TextBox2.Text + "_" + TextBox1.Text + ".pptx"
 
 Set AppPoint = CreateObject("Powerpoint.application")
 With AppPoint
.Visible = True
.Presentations.Add
 
End With

Если есть возможность, то хотел бы получить программный код, который убирал бы ошибки.

Заранее спасибо!

@Димит · 10.05.2011, 15:28

ну для начала подключи библиотеку Powerpoint:
Tools-> References... -> Microsoft PowerPoint X.XX Object Library

10.05.2011, 15:57

Спасибо, но я уже подключил библиотеку Microsoft Powerpoint 12.0.Object library. Я правильно понял, что её надо подключить в VBA, а не в самом Excel? Может это, наоборот, из-за того, что я какую -то лишнюю библиотеку подключил? плюс смысл еще в том, что макрос не создает презентацию. Он только открывает окно Powerpoint и то с ошибками.

@Димит · 10.05.2011, 22:29

Тогда дальше:
Есть объекты TextBox2 иTextBox1?
Я так понимаю на листе Excel текстовые поля?
в которых значения для имени сохраняемого файла.

11.05.2011, 01:17

Спасибо за оказанное внимание!))

да, объекты textbox1 и textbox2 есть в userform, которая открывается при нажатии кнопки на листе excel.
но сохранение документа происходит уже после того, как он создается.

@Димит · 11.05.2011, 08:09

Не знаю что у Вас за форма, код работает без ошибок:

Visual Basic

Private Sub CommandButton1_Click()
  Dim AppPoint As PowerPoint.Application
  Dim AppPres As PowerPoint.Presentation
  Dim a As String
 
    a = ActiveWorkbook.Path + "\" + "12" + "_" + "12" + ".ppt"
    'работаю с Microsoft Powerpoint 10.0.Object library по этому .ppt
 
    Set AppPoint = CreateObject("Powerpoint.application")
    With AppPoint
        .Visible = True
        .Presentations.Add
        .ActivePresentation.SaveAs Filename:=a
        .Quit
    End With
End Sub

11.05.2011, 09:56

Спасибо, я сделал небольшой пример, чтобы было понятнее. Посмотрите пожалуйста! может быть мне библиотеку поменять? а этот код у вас не выдает ошибку?

11.05.2011, 12:47

кстати, у меня и присланный Вами отдельно код не работает

@Димит · 11.05.2011, 13:18

alvensy, сорри, нет у меня новых оффисов, сохраните в .xls иначе ни чем не могу помочь

ps На сколько я знаю в Excel vba практически не обновился, но не знаю как обстоят дела в PowerPoint, возможно в этом проблема...

11.05.2011, 13:23

Тогда высылаю в старом формате

@Димит · 11.05.2011, 14:04

Всё работоспособно

Visual Basic

Set AppPoint = CreateObject("Powerpoint.application") 'создаётся объект Powerpoint
    With AppPoint
        .Visible = True                        'видимость окна
        .Presentations.Add                  'создаётся новая пустая презентация
        .ActivePresentation.SaveAs Filename:=a   'сохраняется презентация в той же папке, а-полный путь
        .Quit 'закрывается окно Powerpoint
    End With

На какой строке у Вас ошибки?
Позднее связывание, конечно лучше, если файл будет передаваться на др. системы где нет Microsoft Powerpoint 12.0.Object librar

11.05.2011, 14:17

хм... у меня выдает ошибку не программный код, а когда запускается Powerpoint. Презентация не создается и соответственно, не сохраняется. В Powerpoint выдает 2 ошибки

1) Index to attribute
Object reference not set to an instance of a object

2) Ribbon_load
Object reference not set to an instance of a object

11.05.2011, 14:38

Спасибо! Вечером проверю на домашнем компьютере. Видимо, данная проблема касается только компьютеров в нашей компании, что странно...

@Димит · 11.05.2011, 14:57

попробуйте раннее связывание (Tools-> References... ->)
возможно объект не так называется - "Powerpoint.application" в новой версии.

Visual Basic

Private Sub CommandButton1_Click()
  Dim AppPoint As New PowerPoint.Application
  Dim a As String
    a = ActiveWorkbook.Path + "\" + "12" + "_" + "12" + ".ppt"
    With AppPoint
        .Visible = True
        .Presentations.Add
        .ActivePresentation.SaveAs Filename:=a
        .Quit
    End With
End Sub

и воспользуйтесь макрорекордером, запишите создание новой пустой презентации и её сохранение, это здорово поможет

12.05.2011, 12:53

В таком случае ругается на строчку

Visual Basic

1	Dim AppPoint As New PowerPoint.Application

пишет, что user-defined type not defined

@Димит · 12.05.2011, 13:49

Попробуйте позднее связывание:

Visual Basic

Private Sub CommandButton1_Click()
  Dim AppPoint As Object
  Dim a As String
    a = ActiveWorkbook.Path + "\" + "12" + "_" + "12" + ".ppt"
    Set AppPoint = CreateObject("Powerpoint.application.12")
    With AppPoint
        .Visible = True
        .Presentations.Add
        .ActivePresentation.SaveAs Filename:=a
        .Quit
    End With
End Sub

Банальный вопрос - у Вас Powerpoint установлен? Нормально вручную работает?
Установлен офис 12? И может быть установлено несколько версий офиса?

12.05.2011, 14:02

Установлен Powerpoint 2007 и Excel 2007. Вручную Powerpoint работает без сбоев.

@Димит 90 / 37 / 14 Регистрация: 03.11.2010 Сообщений: 429
	10.05.2011, 15:28	2
	ну для начала подключи библиотеку Powerpoint: Tools-> References... -> Microsoft PowerPoint X.XX Object Library 0

alvensy
	10.05.2011, 15:57	3
	Спасибо, но я уже подключил библиотеку Microsoft Powerpoint 12.0.Object library. Я правильно понял, что её надо подключить в VBA, а не в самом Excel? Может это, наоборот, из-за того, что я какую -то лишнюю библиотеку подключил? плюс смысл еще в том, что макрос не создает презентацию. Он только открывает окно Powerpoint и то с ошибками.

@Димит 90 / 37 / 14 Регистрация: 03.11.2010 Сообщений: 429
	10.05.2011, 22:29	4
	Тогда дальше: Есть объекты TextBox2 иTextBox1? Я так понимаю на листе Excel текстовые поля? в которых значения для имени сохраняемого файла. 0

alvensy
	11.05.2011, 01:17	5
	Спасибо за оказанное внимание!)) да, объекты textbox1 и textbox2 есть в userform, которая открывается при нажатии кнопки на листе excel. но сохранение документа происходит уже после того, как он создается.

alvensy
	11.05.2011, 09:56	7
	Спасибо, я сделал небольшой пример, чтобы было понятнее. Посмотрите пожалуйста! может быть мне библиотеку поменять? а этот код у вас не выдает ошибку?

alvensy
	11.05.2011, 12:47	8
	кстати, у меня и присланный Вами отдельно код не работает

@Димит 90 / 37 / 14 Регистрация: 03.11.2010 Сообщений: 429
	11.05.2011, 13:18	9
	alvensy, сорри, нет у меня новых оффисов, сохраните в .xls иначе ни чем не могу помочь ps На сколько я знаю в Excel vba практически не обновился, но не знаю как обстоят дела в PowerPoint, возможно в этом проблема... 0

alvensy
	11.05.2011, 13:23	10
	Тогда высылаю в старом формате

alvensy
	11.05.2011, 14:17	12
	хм... у меня выдает ошибку не программный код, а когда запускается Powerpoint. Презентация не создается и соответственно, не сохраняется. В Powerpoint выдает 2 ошибки 1) Index to attribute Object reference not set to an instance of a object 2) Ribbon_load Object reference not set to an instance of a object

alvensy
	11.05.2011, 14:38	13
	Спасибо! Вечером проверю на домашнем компьютере. Видимо, данная проблема касается только компьютеров в нашей компании, что странно...

alvensy
	12.05.2011, 14:02	17
	Установлен Powerpoint 2007 и Excel 2007. Вручную Powerpoint работает без сбоев.