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

Страницы: 1
Power query не видит данные дальше 200 столбца
 
PooHkrd, спасибо за статью, почитал. Действительно, если отредактировать любую ячейку, то все отображается верно. Но конечно если автоматизировать обработку файлов, то получается большая потеря данных без ручной обработки. Макрос конечно ускорит работу, но все равно как-то странно получается.
Power query не видит данные дальше 200 столбца
 
PooHkrd,сейчас попробую сделать файл.
Запрос состоит из источник навигации и поднятия заголовков.
Power query не видит данные дальше 200 столбца
 
PooHkrd,Файл пытаюсь воссоздать для примера, но пока не выходит. А запроса там нет, то есть данные сразу пустые как только мы выбираем из файла/папки. Даже на предварительном просмотре столбцы сразу с пустыми данными, хотя в самой таблице эти данные присутствуют.
Power query не видит данные дальше 200 столбца
 
venom51, Но если я беру информацию из папки и там 20 файлов, то что мне редактировать каждый файл?
Power query не видит данные дальше 200 столбца
 
Добрый день.
Возникла проблема в pq. При выгрузке из файла или папки он не видит данные после пустых столбцов, хотя первая строка заполнена полностью заголовками. Вместо данных далее он пишет null. При этом данные из первой строки, которые он помещает в заголовок он видит корректно.
Если сделать умную таблицу или поставить на первую строку фильтр, то тогда он загружает всю информацию правильно.
Подскажите, пожалуйста, в чем может быть дело и как с этим бороться?
vba вызванный объект был отключен от клиентов
 
ivanok_v2, Спасибо, попробуем.  
vba вызванный объект был отключен от клиентов
 
Добрый день.
Есть макрос для копирования данных из таблицы ворда, а затем обработки этих данных в Excel. Все работает, но затем мы отправляем эти данные на печать путем вставки данных в закладки файла Word. У меня работают макросы  везде: и на виртуальной машине с 2010 офисом,  и на моем компьютере с 365 последней версией. Но у коллеги не работает вообще. При чем именно отправка на печать. Пишет "вызванный объект был отключен от клиентов". Зайди в Visual Basic тоже нельзя, excel сразу вылетает. Скорее всего связано именно с этим макросом, так как остальные у коллеги работают. В чем может быть дело?
Код
Sub shablon()

Dim a(1 To 5) As Integer
a(1) = 4
a(2) = 3
a(3) = 2
a(4) = 8
a(5) = 9

x = Worksheets("Лист1").Cells(3, 2).End(xlDown).Row

For i = 5 To x
Set WA = CreateObject("Word.Application")
WA.Visible = True 

DocFullName = Worksheets("Лист1").Cells(2, 2).Value

Set wd = WA.documents.Open(DocFullName) 

    For j = 1 To 5
    marker = "инд" & j 'наименование закладки
    wd.Bookmarks.Item(marker).Range.Text = Worksheets("Лист1").Cells(i, a(j)).Value 
    Next j

 wd.PrintOut Background:=False

wd.Close False
WA.Quit
Set wd = Nothing
Set WA = Nothing

Next i
End S
Изменено: mega31 - 21.09.2018 15:52:01
Найти письмо c темой из ячейки в Outlook
 
БМВ,спасибо за помощь. Теперь все работает.
Найти письмо c темой из ячейки в Outlook
 
Я немного неправильно поставил вопрос,поэтому возникла путаница. У меня в Excel есть таблица с почтой,темой,телом и приложением. И я хочу в еще один столбец добавить был ли ответ или нет. И сделать это с помощью макроса в Excel. Но почему-то все равно не выходи пока что.
Найти письмо c темой из ячейки в Outlook
 
Добрый день.
Хочу найти ответы на все разосланные письма в Outlook.
Но выдает ошибку Invalid procedure call of argument
С вызовом Outlook раньше не работал, поэтому пока не понял в чем ошибка.
Подскажите,пожалуйста, из-за чего возможно возникновение данной ошибки.
Код
Sub Poiskpisem()
Dim i As Integer
Dim oOutlook As Object, oItems As Object, oMsg As Object




Set oOutlook = CreateObject("Outlook.Application")
Set oItems = oOutlook.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
      
      
If oItems.Count > 0 Then
    For i = 2 To Cells(1, 1).End(xlDown).Row
       For Each oMsg In oItems
           If oMsg.Subject = "RE: " & Cells(i, 3).Value Then
                Cells(i, 6) = 1
               oItems.GetNext
               
           End If
        Next oMsg
   Next i
End If
 

End Sub
Изменено: mega31 - 27.08.2018 12:43:10
Не возвращает значение с сервера
 
Jungl,
Большое спасибо, действительно работает.
Есть еще один вопрос.
Если я хочу, чтобы на отправку шло несколько адресов из текстового файла или ячеек, то можно ли как то реализовать это?
Насколько я понял, тогда то и происходит ошибка в кодировках.
Не возвращает значение с сервера
 
Код
Sub Suggest()
    Dim http
    Dim Json As Object
    Dim SECRET_KEY
    Dim APi_KEY
    APi_KEY = ""
    SECRET_KEY = ""
    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
   
    
    Dim items As New Collection, myitem As New Dictionary, cell As Variant


ad = Cells(1, 1).Value
Debug.Print (Cells(1, 1).Value)

myitem("source") = ad

items.Add myitem

Set myitem = Nothing


req = ConvertToJson(items, Whitespace:=2)
Sheets(1).Range("A4").Value = req
    
    Url = "https://dadata.ru/api/v2/clean/address"
    
    
    http.Open "POST", Url, False
    
    
    http.setRequestHeader "Content-Type", "application/json"
    
    http.setRequestHeader "Authorization", "Token " & APi_KEY
    
    http.setRequestHeader "X-Secret", SECRET_KEY
    
    
    http.send req
    
    
    
    Cells(3, 3) = http.responseText
   
End Sub




Добрый день. Идея такая, мы считываем из ячейки А1 адрес, отправляем его на сайт, он там его корректирует и мы его получаем. Но видимо при отправке данные доходят не верно или их формат получается не верным и ответ приходит с пустыми значениями.
Сервер принимает данные в формате json.
Буду благодарен за любую подсказку.  
Изменено: mega31 - 21.06.2018 15:55:59
Страницы: 1
Наверх