» Excel VBA (часть 3)

Перебор всех файлов с занесением в массив, поиск в нем фамилии (при условии, что фамилии уже известны, т.е. есть их список).
А вообще желательно приложить архив со структурой папок/файлов.

картинка двух вордовских документов


Проблема в том что в документе есть фамилия сдавшего и принявшего дежурство. Поэтому поиск из массива данных мне кажется не подходит.
Фамилии все известны.

Картинка экселевского файла


Может быть есть способ определить что в вордовском файле есть таблица и ее в буфер и чистовик. Интересно в VB есть возможность обнаружить такой объект как таблицу.

Есть XLS-файл - отчет сделанный обработкой в 1C 7.7. Открываю его в Office 2003, выполняю макрос, изменяющий цвет ячеек (Interior Color). Так вот, макрос должен устанавливать цвет равный ColorIndex 55. Вот он:

А на самом деле получается такое:

Выполняю затем макрос для проверки цвета ячейки - говорит, что цвет 55. Ну видно же, что это другой цвет. Как победить?

Zloy_Gelud
Не совсем понял, что устанавливается?

Код:
Interior Color = 55

Цитата:

Не пробовали в редакторе VBA Word в Immediate выполнить?
?ThisDocument.Tables.Count

Нет не пробывал. Потому что не знаю как. Может кто-нибудь подскажет?

вот файл
Список.doc

sas1984
Вы уверены, что здесь именно та ветка? Есть отдельная ветка Word VBA. Подглядывать в объектную модель Word вам всё равно придётся.

Код:
Public Sub TestDoc()
On Error GoTo errHandle
Dim pWord As Object, pDoc As Object
Dim pTable As Object
Set pWord = CreateObject("Word.Application")
Set pDoc = pWord.Documents.Open("d:\path\docname.doc")
If pDoc.Tables.Count > 0 Then
Set pTable = pDoc.Tables(1)
MsgBox pTable.Cell(pTable.Rows.Count, pTable.Columns.Count)
End If
pDoc.Close
pWord.Quit
Set pWord = Nothing
Exit Sub
errHandle:
If Not pWord Is Nothing Then pWord.Quit: Set pWord = Nothing
End Sub

AndVGri -- выполняется код

Код: Cells(i, 1).Interior.ColorIndex = 55

Zloy_Gelud
Возможно в этой книге задавались цвета ячеек через Interior.Color. Так как число цветов в Excel до 2007 было ограничено, то происходила замена цветов, связанных с индексами. По крайней мере, как-то нужно было раскрасить ячейки в типовую палитру CorelDraw, после заметил, что цвета в выпадающем меню заливки цвета перекосило. Видимо, Excel запоминал для книги, подобно форматам ячеек, цвета. Может попробовать скопировать листы в новую книгу и наблюдаемый эффект пропадёт? Проверить не могу, сейчас на работе 2010.

Цитата:

Может попробовать скопировать листы в новую книгу и наблюдаемый эффект пропадёт?

Это помогло. Спасибо.

v вба есть коментарии подобные /*.....*/ ?

надо соорудить нечто такое
дим аа as string
aa = "dd" _
+ ",fff" _ 'ffffffffffffffffffffffffff
+ ",hh" _
'+ ",mm" _ 'ddddddddddddddddd
'+ ",pp" _
+ ",ss"

то есть штоп каждый елеменет мог иметь свое примечание
и штоп его можно было отключать простым коментарием
возможно такое?

komputeryuzer
Нет такого.
Строки конкатенировать лчше через "&", а не "+"

Цитата:

Строки конкатенировать лчше через "&", а не "+"

Вы имеле виду соиденять, навирна

andrewkard1980
Цитата:

Цитата:
Строки конкатенировать лчше через "&", а не "+"

Вы имеле виду соиденять, навирна

Это какбэ шютка?
Я имел. Введу.

Вот "соединять" - пофиг как, а конкатенировать - через "&"

не могу ни в инете ни в хелпе найти как определить десятичные разяды чисел? везде так подробно объясняют инт().. так подробно по самое не могу... блин зла не хватает..
в 21 веке уже не моде что ли такие вещи.. раньше пользовался либо % либо мод()...
как определить два знака или три после запятой в вба ексел2010 (например 12,12 или 12,123)

komputeryuzer
Round(...)

komputeryuzer
Не понятно - в чем проблема?
Что значит:

Цитата:

как определить десятичные разяды чисел?
как определить два знака или три после запятой

Как я понял - вот, три (степень десятки) разряда после запятой:
? Int((1.23456 - Int(1.23456)) * 10^3)

komputeryuzer

Цитата:

раньше пользовался либо % либо мод().

Подскажите, где вы использовали это для чисел вида

Цитата:

апример 12,12 или 12,123

Для чисел с плавающей запятой двойной точности, используемых в Excel, не всё так просто в плане определения числа знаков после запятой, почитайте, для разнообразия
Подумайте, сколько знаков после запятой у числа 1/3?
Как вариант для подсчёта числа знаков после запятой могу предложить

Код:
Public Function DigitAfter(ByVal this As Double) As Long
Dim sText As String, posD As Long, posE As Long
sText = Replace(CStr(this), ",", ".")
posD = InStr(sText, "."): posE = InStr(sText, "E")
If posD = 0 Then
DigitAfter = 0
ElseIf posE = 0 Then
DigitAfter = Len(sText) - posD
Else
If Mid$(sText, posE + 1, 1) = "-" Then
DigitAfter = CLng(Mid$(sText, posE + 2)) + posE - posD - 1
Else
DigitAfter = 0
End If
End If
End Function

AndVGri
Цитата:

Подумайте, сколько знаков после запятой у числа 1/3?

спасибо
необходимо в пределах разумного.. для производства.. нарпимер как узнать сколько знаков после запятой 0 или 1 или 2 или 3 или 4 или больше
это денежные суммы которые указаны в поступающих документах.. и надо из обрабатывать по разному...
я пошол по другому пути... сварганил нечто такое
IIf(InStr(StrReverse(Str( селс( ров, сол) )), ".") > 3, ....
дешевоисердито

komputeryuzer
Цитата:

это денежные суммы которые указаны в поступающих документах.. и надо из обрабатывать по разному...

У бухов не может быть таких сумм (чисел). И для бухов есть соответствующий тип данных - currency. И есть принятые правила округления. В смысле - все это должно быть :)


Цитата:

я пошол по другому пути... сварганил нечто такое
IIf(InStr(StrReverse(Str( селс( ров, сол) )), ".") > 3, ....
дешевоисердито

Впечатляет. Сердито, но не дешево :)

Попробуй:
(Len(CStr(x - Int(x))) - 2) > 3 ' для локали с лидирующим нулем

И завязывай с этим олбанским: "селс( ров, сол) " - пиши по-людски.

jollyboy
Цитата:

1.23456 - Int(1.23456)

да остроумно.. я не подумал об этом.. вот почему выкинули отдельную функцию?!..

komputeryuzer
Цитата:

вот почему выкинули отдельную функцию?!..

Я, честно говоря, не поню, чтобы она была...

не в вба.. в других языках.. я думал что инт, лен и мод итд должны быть..

При представлении числа в формате IEEE 754 (которое использует Excel в общем случае для дробных чисел) количество цифр после запятой будет иметь конечное значение только для дробей, у которых знаменатель является степенью двойки, например 0,673828125 = 345/512. Для всех остальных чисел количество цифр после запятой по определению бесконечно. Поэтому определять количество цифр нужно не для числа, а для его строкового представления, полученного при предварительном округлении до нужного числа знаков. Скажем, число 0.1 при предварительном округлении до 5 знаков, даст строку "0.1", т.е. один знак после запятой, это же число при предварительном округлении до 18 знаков даст строку "0.100000000000000006" - будет уже 18 знаков после запятой.

panda3
Это, конечно, все хорошо. Только, вот, надо ли?
Если человек в ответ на
? 10 / 3
сознательно, здраво аргументировано говорит: "Мне мало", то тогда он, кончено, должен погрузиться в описанное тобой.

А когда это чисто обывательский интерес, надо сразу сказать ему - "Забудь, не думай!" Ну, постараться не обидеть при этом :)

Надо вообще взять за правило все буховские задачи для планктона принудительно решать в целочисленном контексте. Тогда всем будет щазтье :) Они не будут забивать мозг ни себе, ни другим.

как проверить открыт ли такой то ексел?
как проверить есть ли лист в таком то открытом екселе?

У кого-нибудь есть пример парсера HTML-кода на VBA?

Цитата:

как проверить открыт ли такой то ексел?

Dim wbk As Workbook


Set wbk = Workbooks("ХХХ.xls")
If Not IsEmpty(wbk) Then
'your code here
else
Msgbox ("Workbook is not open")
End if

Добавлено:

Цитата:

как проверить есть ли лист в таком то открытом екселе?

Наверное можно аналогично предыдущему сообщению.

Добавлено:

Цитата:

У кого-нибудь есть пример парсера HTML-кода на VBA?

Код:
Dim oHTTP as object, sURL$
sURL = "http://ya.ru"
Set oHTTP = CreateObject("MSXML2.XMLHTTP")
With oHTTP
.Open "GET", sURL, False
.Send
sHTML = .responseText
End With
Set oHTTP = Nothing

andrewkard1980спасибо.. они не тяжеловесные команды? думал есть какой нибудь лёгкий оператор типа ексист("ееее")...
дело в том что когда файл не открыт вба выдает ошибку и мы открываем файл и запускаем скрипт поновой.. может оставить так? овчинка выделки стоит?

andrewkard1980
благодарю. Дальше уже разберусь.

Цитата:

дело в том что когда файл не открыт вба выдает ошибку

поставьте обработчик ошибок либо просто перебором:

Код: For Each Workbook In Application.Workbooks
If Workbook.Name = "ХХХ" Then MsgBox ("Workbook is open")
Next