Работа с Excel

[ange]

Добрый день.
Вопрос следующий
Моя программа должна открыть указанный пользователем файл и внести ряд изменений по определенному принципу

не могу найти как организовать такой механизм
программа должна выяснить, открыт ли у пользователя xls файл с именем fName, если да, то идентификатор этой книги присвоить переменной wo типа excel.workbooks (что-то типа set wo1= .... fname)

если же у пользователя файл не открыт, то открыть самомстоятельно
set wo1=workbooks.open(fName)

[lord0n]

Добрый день.
Вопрос следующий
Моя программа должна открыть указанный пользователем файл и внести ряд изменений по определенному принципу

не могу найти как организовать такой механизм
программа должна выяснить, открыт ли у пользователя xls файл с именем fName, если да, то идентификатор этой книги присвоить переменной wo типа excel.workbooks (что-то типа set wo1= .... fname)

если же у пользователя файл не открыт, то открыть самомстоятельно
set wo1=workbooks.open(fName)

поиск по форуму, десять раз поднимали тему

[ange]

если вы имеете в виду что по форуму поднималась тема как открыть файл как таковой, то в этом вопроса не звучит, однако
в следующей ситуации:
пользователь открыл файл с именем fname до запуска моего приложения. Внес изменения и оставил открытым, запустил мое приложение и запускает следующий код

dim ex1 as object, wo1 as excel.workboook, sh1 as excel.worksheet
set ex1=createobject ("excel.application")
set wo1=ex1.workbooks.open(fname)
set sh1=wo1.worksheets(1)

как бы открывает еще одну копию файла fname, не учитывая ранее внесенные и не сохраненные пользователем изменения

следующий код
dim wo1 as excel.workboook, sh1 as excel.worksheet
set wo1=workbooks.open(fname)
set sh1=wo1.worksheets(1)

понимает, что файл fname уже открыт, выдает сообщение "файл такой-то уже открыт. повторное открытие приведет к потере несохраненных данных"

мой вопрос в следующем. как сделать так, чтобы файл не повторно открывался, если уже открыт, а отыскивался и редактировался именно он

[alibek]

Вместо CreateObject используй GetObject. Но там есть сложности (если открыто несколько инстансов Excel).

[ange]

да, вот как обойти эти сложности меня и интересует
код типа
set ex1=getobject(,"Excel.application")
for each wo1 in ex1.workbooks
if wo1.fullname=fname then
f=true
exit for
end if
next wo1

не работает, поскольку в ex1 берет первое открытое экселевское окно, а мой файл предположим во втором, третьем, ...
как перебрать их все и выяснить таки открыт ли этот файл

[alibek]

Открывай их все, находи нужное, а остальные сбрасывай в Nothing.

[ange]

как открыть их все?

[alibek]

Set ex1 = GetObject
Set ex2 = GetObject
...

[ange]

ну так я не знаю сколько их всего

[ange]

как перебрать все инстансы excel (сколько бы их открыто ни было)

[lord0n]

а че Workbooks(x).FullName ктота отменил?

[ange]

объясните пожалуйста, уже пол дня бьюсь с этим excel

сейчас вот так
on error resume next
set ex1=getobject(, "Excel.application")
if not(ex1 is nothing) then
for each wo1 in ex1.workbooks
if wo1.fullname=fname then
set wo2=wo1
exit for
end if
next wo1
end if

if wo2 is nothing then set wo2=workbooks.open(fName)

set sh1=wo1.worksheets(1)

этот код берет 1 инстанс excel проверяет не мой ли это файл и если мой, то подбирает его, если нет, то открывает мне нужный программно

как перебрать все инстансы?

[lord0n]

Код: Выделить всё


for x = 0 to Workbooks.Count
    a = Workbooks(x).FullName
next x


хелп по экселю и запись макросов тебе помогут

[alibek]

Создай массив ex(1 To 100) As Object и принимай в него.

[ange]

for x = 0 to Workbooks.Count
a = Workbooks(x).FullName
next x

перебирает только книги последнего инстанса - не подходит

[alibek]

Ну неужели нельзя чуть поразмышлять?

Код: Выделить всё

Dim objExcel(1 To 100) As Object, I As Long
On Error Resume Next
For I = 1 To 100
  Set objExcel(I) = GetObject(...)
  If Err = 0 Then
    ...
  End If
  Err.Clear
Next I
On Error Goto 0

[ange]

можно
я не только поразмышляла, но и попробовала уже
в коде

Dim objExcel(1 To 100) As Object, I As Long
On Error Resume Next
For I = 1 To 100
Set objExcel(I) = GetObject(...)
If Err = 0 Then
...
End If
Err.Clear
Next I
On Error Goto 0

строка Set objExcel(I) = GetObject(...) всегда берет один и тот же инстанс и хоть их меня 12, весь массив заполнится именно первым

[alibek]

Хм... Не должно.
Хорошо, сейчас посмотрю.

[alibek]

Пока непонятно.

Попробуй такой вариант:
Dim xlBook As Excel.Workbook
Set xlBook = GetObject(FName)

По идее, если книга открыта, будет использована именно она, иначе запустится новый Excel и откроет книгу.

[ange]

от этого варианта пришлось отказаться еще вчера
не знаю точно почему, но

мое приложение открывает файл, в нужные места добавляет необходимые данные, правит формулы и в некоторых местах выполянет сортировку
не знаю почему, но при использвании
set wo1=getobject(fName)
set sh1=wo1.worksheets(1)
wo1.application.visible=true

если файл уже был открыт до загрузки моего приложения, то никакой ошибки не выдается, но не сортируется

если же именно мое приложение и открывает файл, то файл видимо открывается только в памяти, а вот на экране он не отображается (не знаю почему visible не срабатывает, пыталась и activate - не помогло), из-за этого строка типа sh1.rows("1:27").select вызывает ошибку "Метод select из класса range завершен неверно"