Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Ексел не позволяет копипастить блок ячеек и автозаполнять, Где собака зарыта?
 
Дочка прислала проблемный файл.
На листе 1 если выделить блок, например В72:В79 и скопировать его, то при попытке вставки екел показывает что должно получиться, но после выбора варианта пусто.
Так же невозможно растянуть вниз
Архив файла не цепляется. Доходит до 90% и останавливается
на гугле
https://drive.google.com/open?id=1Z_7amNN73cyeipq-r-wknzs0KHTtYtc5
изменил ссылку. Появилось после вставки макроса из "Приемов"
После сохранения без макросов всё восстанавливается.
Значит как-то макрос влияет?
Изменено: Александр Моторин - 12 Ноя 2019 15:17:22
Лишние листы в VBE, появились лишние книги в VBE. Часть из них подписаны листами
 
Удалить не активно. Просмотрел темы в архиве по этому вопросу. Сохранение в xlxb не помогает (как и в xlxm) Книга изначально в xlsb.
Если сделать видимой книгу, то появляется интерфейс отправки листа  
Изменено: Александр Моторин - 26 Янв 2017 15:26:04
Скачать картинку из интернета
 
Добрый вечер знатоки!
Столкнулся с такой проблемой: Имеется ссылка на картинку вот такого вида:
http://autotrade.su/picw.php?code=%23%231M8M%23%23%23
Как загрузить её на комп?
В обозревателе она открывается. А стандартными (известными мне способами) не получается.
Через HTTP соединение получаю какую-то информацию но как её использовать не пойму
Код
 Function get_otv()
Dim URL$, XMLHTTP, nam, t, nat, iner
    URL$ = "http://autotrade.su/picw.php?code=%23%231M8L%23%23%23&state=1&size=800.260"
        Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
        XMLHTTP.Open "GET", URL$, "False"
        XMLHTTP.SetRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8"
        XMLHTTP.SetRequestHeader "Accept-Language", "ru,en-US;q=0.8,en;q=0.6"
        XMLHTTP.SetRequestHeader "Connection", "keep-alive"
        XMLHTTP.SetRequestHeader "Host", "autotrade.su"
        XMLHTTP.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/48.0.2564.41 Safari/537.36 OPR/35.0.2066.10 (Edition beta)"
        XMLHTTP.send
        get_otv = XMLHTTP.responseBody ' здесь Byte-массив. Как сделать из него картинку
End Function
Изменено: Александр Моторин - 3 Сен 2016 22:04:58
Не отображается содержание текстовых файлов
 
Всем доброго дня.
Достал из архива различные примеры и оказалось, что половина тестовых файлов не отображают содержание.
Скопировал  в ексель. Беда не пропала. Длину строки показывает. Содержание нет. Замена шрифта, заливки, цвета текста не помогают
Что за беда?  
Изменено: Александр Моторин - 10 Июл 2016 17:29:38
Непонятные символы в имени файла, Как достать данные?
 
Всем привет.
Столкнулся с непонятной проблемой.
В папке встречаются файлы с непонятным символом в имени. Ни Asc ни AscW не определяют его. Пишут 63 код
По клику файл открывается нормально. А вот из макроса не получается.
Изначально открывал стандартно и доставал значения
Код
            fl = pt & Chr(92) & fl ' собираем полный путь
            Set WBi = Workbooks.Open(fl) 'открываем книгу

но файл с такими символами не открываются. Вываливается ошибка
С GetObject то же не получается
Пытался перехватить ошибку и переименовав открыть копию и затем удалить - то же не получается
Ни FeleCopy ни FSO не копируют.
Последнее что пришло на ум: достать данные не открывая. Хотя бы формулой.
Но и тут засада. Из таких файлов и формула не достаёт. Даже не пишется в ячейку.
Кусок кода
Код
Do While Len(fl) > 0 'перебираем файлы в папке с активной книгой
    On Error Resume Next            ' Откладываем перехват ошибок.

    If fl <> ActiveWorkbook.Name Then  'если не активный файл, то делаем
        If Len(fl) > 0 Then ' если есть файл - работаем с ним
           f2 = fl
           Debug.Print f2
            With Sho 'выбираем лист для сокращения записей в коде
                lr = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
                
                .Cells(lr, 4).Formula = "='" & pt & "[" & f2 & "]" & "Чек-лист" & "'!" & "$C$7"
                Debug.Print Len(.Cells(lr, 4).Formula), .Cells(lr, 4).Formula

и результат в дебаггере
Цитата
8598ММБГрушко Чек-лист_МПР_ Ур  2.xlsx
61           ='G:\4\[8598ММБГрушко Чек-лист_МПР_ Ур 2.xlsx]Чек-лист'!$C$7

8598ММБКозлова_?M01-CZ01-005_Чек-лист_МПР_ Ур. 2.xlsx
0  
Вот этот вопросик и не даёт!
как побороть?
Во вложении один из таких файлов
Изменено: Александр Моторин - 15 Мар 2016 12:00:09
Не всегда приходит ответ из запроса Гуглу, Запрос не всегда обрабатывается
 
При формировании запроса в цикле такое впечатление, что гугл мониторит запросы.
Порядка 80 из 115 приходят с ответом. Затем без ответа.
При повторном запуске процедуры положительных ответов может быть штук 20. А может и 40.
При третьем запуске все ответы, как правило, пустые.
Причём если копирую строку запроса в обозреватель, то там открывается правильно
Есть ли выход из положения?
Работа UDF при работе по сети, при открытии файла по локальной сети не работает функция "Сумма прописью" находящаяса в надстройке
 
Совсем нет опыта при работе по сети и не могу подсказать знакомому как выйти из положения.
При открытии файла на компе где и подключена надстройка все ОК.
Но ри открытии с другого компа и при изменении цифр вместо прописи появляется #ИМЯ.
В строке формул ссылка на сетевой ресурс типа =//путь к .xla
При открытии файла предлагается обновить связи. Согласие обновить не помогает.
Какие варианты решения?
Свои пункты в контекстном мею, Перестали появляться в 2010
 
Ещё пару дней всё нормально работало.
Теперь в 2003 и в 2007 появляются.
А в 2010 процедура срабатывает (даже если запустить вручную) без ошибок, но пункты в меню не добавляются.
Может где-то в настройках чего переехал?
Куда копать?
Логарифмическая шкала
 
Доброго всем вечера!

Как избавиться от этой заразы? Программно строится много диаграмм.
Если строить на лист - сильно тормозит. И при построении каждой диаграммы мявкает
Если отдельно, то при активации диаграммы каждый раз вылетает сообщение
Где-то должна быть возможность отключения?

Код
Application.DisplayAlerts = False
не помогает
ексел не однозначно выполняет комманду открытия
 
При обычном открытии файла всё нормально. Но при пыпытке открыть программно - чушь

Код
  Set WBi = Application.Workbooks.Open("C:\test.csv")  'путь к книге'открыли книгу
Проблема, скорее всего в фрмате ячеек в стодбце  "T"
Какое волшебное слово поможет?

Программное открытие

Стандартное открытие
Обратиться к активному листу закрытой книги, Как ексел узнаёт имя?
 
Получаю данные из закрытой книги:

Код
Set rs = CreateObject("ADODB.Recordset")
Set cn = CreateObject("ADODB.Connection")

With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=C:\ПРТ1.xls;" & "Extended Properties=Excel 8.0;"
    .Open
End With

sCon = "select * from [Результат$]"
Set rs = cn.Execute(sCon)
[a2].CopyFromRecordset rs
Вопрос: как обратиться не к листу  "Результат", а к листу, который был бы активен если бы книгу отрыли?
Ведь ексел запоминает при закрытии активный лист и при открытии открывае его
Обязательно ли обновлять версию IE?, На сайте стоит проверка версии IE и в IE7 не открывается страница
 
Нет желания переходить на WIN7 или WIN8 топчусь на Хрюше
IE8 переезжает какие-то другие программы и оборудование. Пришлось вернуть IE7.
Но даже без использования IE не могу получить исходный код страницы.
Пробовал 3 варианта: с IE, URLDownloadToFile, GetHTTPResponse(с этого сайта)тыц
во всех ответах сообщение об устаревшей версии обозревателя
Есть ли способы помирить IE7 с сервером? Упоминалось где-то, что можно подменить как-то, но примера не нашёл
Или ставить WIN7,8 и IE9 уже обязательно? На ХР IE9 не становится.
Вот вырезки из моих попыток. STROKA формируется отдельно и в Опере открывается нормально.

Код
Set WB = CreateObject("InternetExplorer.Application")
WB.Navigate STROKA
STR_HTML = WB.Document.body.innerhtml
STR_HTML = GetResponse(STROKA)
STR_HTML = Get_Html(STROKA)

Public Function Get_Html(S As String)
    Dim S1, SS
    ''с загрузкой файла на диск
    'Путь по которому сохраняем скачанную страницу
    S1 = Environ("temp") & "\Temp_2.log"
    'загружаем страницу
    URLDownloadToFile 0, S, S1, 0, 0
    SS = (CreateObject("Scripting.FileSystemObject").GetFile(S1).OpenAsTextStream(1).ReadAll)
    Get_Html = UTF8ToWin(SS)
End Function

Function GetHTTPResponse(ByVal sURL As String) As String
     On Error Resume Next
     Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
     With oXMLHTTP
         .Open "GET", sURL, False
        .send
         GetHTTPResponse = .responseText
     End With
     Set oXMLHTTP = Nothing
End Function
Коллекция вкладок Ворд 2010 (как называется), Программно обратиться к "Настраиваемой"
 
В 2003 легко можно было перебрать панели или обратиться непосредственно к своей по имени.
В 2010 кнопки находятся на вкладке и при переборе панелей не находятся
И панели такой нет.

Код
Dim Q As CommandBar
    For Each Q In CommandBars
        Debug.Print Q.NameLocal
    Next
    Set Q = CommandBars("Мои")' здесь, естественно, ошибка.

Dim Q As "ЧТО?"
For Each Q In "И где находится коллекция?"
Ексел саботирует? Ошибка при поиске строки
 
Или чего-то не догоняю. 2007 ексел. не туда стал внисить данные.  
Делаю для проверки  
.Cells(6, 2).Select  
выделяет B10  
Debug.Print Selection.Address  
в дебаггере  
$B$10  
почему пропускает 4 строки?
Программно перебрать и распечатать в Debug.Print все свойства объёкта ChartObject
 
Вопрос в теме
502 Bad Gateway
 
Почему я не могу просмотреть некоторые темы?  
После попытки ответить на вопрос(овет так и не публикуется) я не могу даже просмотреть ответы других
Страницы: 1
Наверх