Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
GET запрос возвращает 403
 
Здравствуйте. Пытаюсь отправить GET запрос на простой php скрипт. Этот запрос выполняется через браузер, через онлайн сервисы отправки запросов, через Google Таблицы. Но в VBA Excel выдает ошибку 403. В чем может быть проблема?
Код VBA
Код
Set XMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
XMLHTTP.Open "GET", URL, False
XMLHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
XMLHTTP.send
MsgBox XMLHTTP.responseText
Изменено: Makintosh - 05.04.2020 02:32:40
Перенос по словам увеличиваем высоту строки без необходимости
 
Здравствуйте. Не могу понять, это особенность Excel или можно как то это решить. Заметил что в таблице с включенной настройкой Перенос по словам, увеличивается высота строки хотя текст помещается в одну строку. Это наблюдается при разной ширине столбца и содержимом ячейки. В примере простой случай: Ширина столбца 10 точек, текст в ней "аааааааааа" (10 букв а). Ячейка увеличивается на высоту двух строк, а текст помещается в одной. И выглядит это не очень красиво. Возможно при различных разрешениях монитора такая ситуация повториться при других значениях. Но почему так происходит?
Спасибо!
Поиск ячейки в которой содержится символ *
 
Здравствуйте. Можно ли как то игнорировать подстановочный знак * при поиске в ячейках? Например, использую функцию ПОИСКПОЗ. Искомая строка "20*40" По умолчанию функция вместо звездочки подставит любой набор символом и может найти: "20*140", "20*2240", "20040" и т.д. А нужно что бы нашел именно "20*40".

Как вариант, это удалить символ "звездочка" из всего набора данных и из искомой строки и делать поиск уже без "звездочки".
Есть ли какое нибудь другое решение?
Открытие сетевой папки
 
Здравствуйте. Есть макрос который открывает диалоговое окно выбора файла. В качестве пути по умолчанию указана сетевая папка. Так вот на одном из компьютеров при вызове этого окна появляется вот такое окно(файл во вложении) и в таком состоянии находится минут 10 а потом excel "вылетает". Если в качестве пути по умолчанию указать локальную папку а потом из неё переходить в сетевую(например с помощью ярлыка) то все хорошо и быстро открывается. Что это за окно подключения, может кто сталкивался?

Спасибо!
Пропуск ошибок макроса в другом файле.
 
Здравствуйте. Такая задача. Макрос открывает другую книгу и считывает от туда данные. Но эта другая книга с макросами и эти макросы отрабатывают с ошибками т.е. если отдельно открыть эту книгу то вылезает сообщение с предложение остановить работу макроса. Можно ли как то пропустить эти ошибки и считать данные которые не зависят от макроса. Строчка в коде:
Код
Application.DisplayAlerts = 0
не помогает. А вставлять в открываемый файл "On error resume next" не подходит, т.к. макросы заблокированы от изменения. Надеюсь объяснение понятно.

Спасибо!
Ссылка на динамический диапазон
 
Здравствуйте. Я использую функцию ВПР для поиска значений в закрытой книге. Вот формула:
Код
=ВПР(C5;'[Книга1.xls]Лист1'!$F$1:$F$222;2;0)
Но диапазон поиска будет меняться по мере наполнения файла. В макросе я нахожу количество записей в файле и заношу это количество в ячейку, например А1. Как можно в формулу вместо 222 поставить значение ячейки A1 или переменную из макроса?

Спасибо.
Изменено: Makintosh - 22.08.2015 22:55:21
Специальная вставка с сохранением ширины столбцов и с удалением формул
 
Здравствуйте. Не нашел в параметрах специальной вставки сохранение ширины столбцов и с удалением формул(оставить только результаты этих формул). В параметрах есть оба варианта по отдельности. Как можно их соединить на VBA?

Спасибо!
Номер последней строки в закрытой книге
 
Здравствуйте. Есть база данных в Excel, которая пополняется постоянно. Нужно в другой книге получить номер последней строки в базе, не открывая её. Пока дошел только до перебора вот так:
Код
Sub data()

Dim sPath As String, sFile As String, sShName As String
Dim a As Long
a = 0
sPath = "С:\data\"
    sFile = "Книга1.xls"
    sShName = "Лист1"
    Application.DisplayAlerts = 0

For i = 3 To 500000
Sheets(1).Range("C3").Formula = "='" & sPath & "[" & sFile & "]" & sShName & "'!" & "B" & i
If Range("C3") = 0 Then
Exit For
Else
a = i
End If

Next i

Sheets(1).Range("B3").Formula = "=" & a


 Application.DisplayAlerts = 1

End Sub
Такой перебор работает но не так быстро как хотелось бы. Может есть другие варианты?
Настройки функции ВПР, Искомое значение не в первом столбце таблицы
 
Здравствуйте. Можно ли как нибудь сделать, что бы при использовании функции ВПР, искомое значение брать не из первого столбца таблицы, а из любого другого. Например, я задаю таблицу из двух столбцов. Искать значение нужно во втором столбце, а возвращать значение из первого. В оффициальной справке написано, что искомое значение должно быть в первом столбце таблицы.

Спасибо.
Страницы: 1
Наверх