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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 41 След.
Кодировка в UTF-8 без BOM
 
Всем спасибо. Вроде разобрался. Файл создается. Буду тестировать.
Еще раз спасибо.
Кодировка в UTF-8 без BOM
 
По коду Игоря. Верхнему коду   FileContent$ = .ReadText   возвращает пусто, либо знаки вопроса вместо текста. Не могу понять почему и в конце пишет False. Перекодировка не прошла.  
Изменено: alexthegreat - 04.06.2018 12:34:59
Кодировка в UTF-8 без BOM
 
StoTisteg  по какому коду вопрос? Если тот что в файле. то там я выделил и справа написал что в этой строке вылетает с ошибкой. по коду Игоря выше написал.
Причем верхний код Игоря. Видит текст, берет его, но когда идет переконвертация, в итоге значение = пусто почему то .
Изменено: alexthegreat - 04.06.2018 12:11:11
Кодировка в UTF-8 без BOM
 
Игорь по коду. Идет ошибка : Wrong number of arguments or invalid property assignment  если по другому ссылаюсь то ошибка Argument not optional
Верхний код возвращает пустой документ. Нижний сразу ошибку выдает. Буду думать дальше. что же не так.
Изменено: alexthegreat - 04.06.2018 12:08:30
Кодировка в UTF-8 без BOM
 
Игорь антивирус Dr.Web   Браузер гугл хром
Кодировка в UTF-8 без BOM
 
БМВ я эти коды уже перелопатил. выдают ошибку. может я что то не так делаю. я уже весь инет перерыл. поэтому и обратился на форум.
Кодировка в UTF-8 без BOM
 
RAN    Спасибо. Но ссылку у меня блокируют....к сожалению.... :(  . Хотя раньше не блокировали..
Изменено: alexthegreat - 04.06.2018 11:37:06
Кодировка в UTF-8 без BOM
 
StoTisteg это все идет автоматически. пользователь заполняет таблицу в екселе, далее жмет кнопку - программа сама формирует файл xml перекодирует его в utf -8 далее ложит на шину, шина его передает в электронный архив. Это все происходит без участия пользователей. Все автоматически.
В общем то я это все реализовал. Но файл оказался с тремя лишними байтами UTF-8 с BOM. и этот файл не ложится в архив. Нужно избавиться от первых трех байтов. Нашел второй код. Он подходит полностью, но одна строка зависает. Я не пойму почему
В примере в коде я эту строку выделил и подписал.
Может у кого то есть похожий код рабочий. Буду очень благодарен, если кто выложит или подскажет в чем у меня ошибка.
Изменено: alexthegreat - 04.06.2018 11:35:47
Кодировка в UTF-8 без BOM
 
Добрый день коллеги. Недавно искал здесь на форуме, создание xml и  перекодировку его в UTF-8. Нашел, сделал. Но оказалось, все не так просто. UTF-8 оказалась с BOM  и не ложится в систему из за лишних байтов.
Нашел в интернете код, с UTF-8 без BOM. Но он почему то не хочет работать. Вернее одна строка. Как код до нее доходит, то ексель зависает и вылетает с ошибкой.
Прошу вашей помощи, кому интересно посмотрите код. Я там все расписал. Если возникнут вопросы задавайте.
Изменено: alexthegreat - 04.06.2018 11:29:50
Перекодирование в Base64
 
Нашел макрос, который который кодирует рисунки. Никак не могу его применить к своей задаче. Если у кого будут мысли. Пишите. Буду рад
Код
Sub save_gif()
Dim A As String
A = "R0lGODlhEAAOALMAAOazToeHh0tLS/7LZv/0jvb29t/f3//Ub//ge8WSLf/rhf/3kdbW1mxsbP//mf///yH5BAAAAAAALAAAAAAQAA4AAARe8L1Ekyky67QZ1hLnjM5UUde0ECwLJoExKcppV0aCcGCmTIHEIUEqjgaORCMxIC6e0CcguWw6aFjsVMkkIr7g77ZKPJjPZqIyd7sJAgVGoEGv2xsBxqNgYPj/gAwXEQA7"
Open "C:\Users\ôôô.jpeg" For Binary As #1
   Put #1, 1, DecodeBase64(A)
Close #1
End Sub



 
Private Function DecodeBase64(ByVal strData As String) As Byte()
 
    Dim objXML As MSXML2.DOMDocument
    Dim objNode As MSXML2.IXMLDOMElement
    
    ' help from MSXML
    Set objXML = New MSXML2.DOMDocument
    Set objNode = objXML.createElement("b64")
    objNode.DataType = "bin.base64"
    objNode.text = strData
    DecodeBase64 = objNode.nodeTypedValue
    
    ' thanks, bye
    Set objNode = Nothing
    Set objXML = Nothing
 
End Function
Изменено: alexthegreat - 25.05.2018 13:05:53
Перекодирование в Base64
 
нашел макрос который перекодирует информация в ячейке в файле Ексель. файл с макросом (функцией) прилагаю. Функция работает.
Остался вопрос. Как файл ПДФ или его информацию сохранить в Base64
Изменено: alexthegreat - 25.05.2018 11:15:49
Перекодирование в Base64
 
Доброе утро уважаемые форумчане. Прошу вашей помощи, так как у самого не осталось мыслей.
Есть файл Ексель (прикладываю), он формирует файл Ворд, вносит туда данные и сохраняет его в ПДФ (так было нужно по условию задания) (в оригинале он формирует еще файл XML для передачи данных)
Нужно созданный (или создаваемый) файл ПДФ перекодировать макросом в Base64. В интренете есть макросы, люди пишут что макросы рабочие. Но у меня не получается с ними ничего сделать. Прошу показать или написать. (может я не туда макрос вставляю или не правильно запускаю)
Заранее спасибо всем откликнувшимся.
Примеры макросов по кодированию так же прилагаю.
Код
Function Base64FromFile$(FilePath$) 'получение base64 файла
    Dim ByteArr() As Byte
    Open FilePath For Binary Access Read As #1
    ReDim ByteArr(LOF(1))
    Get #1, 1, ByteArr
    Close #1
    With CreateObject("MSXML2.DOMDocument").createElement("b64")
        .DataType = "bin.base64"
        .nodeTypedValue = ByteArr
        Base64FromFile = .text
    End With
End Function


Function EncodeBase64(text As String) As String
  Dim arrData() As Byte
  arrData = StrConv(text, vbFromUnicode)

  Dim objXML As MSXML2.DOMDocument
  Dim objNode As MSXML2.IXMLDOMElement

  Set objXML = New MSXML2.DOMDocument
  Set objNode = objXML.createElement("b64")

  objNode.DataType = "bin.base64"
  objNode.nodeTypedValue = arrData
  EncodeBase64 = objNode.text

  Set objNode = Nothing
  Set objXML = Nothing
End Function
Извлечение данных макросом из 1С, Извлечение данных макросом или скриптом из 1С в эксель по продажам, код
 
а не проще ли в самой 1с делать выгрузку в ексель, там ведь это все реализовано, просто настроить грамотно и все.
Формула поиска совпадения в диапазоне данных и выдача результата
 
Поправил, чтоб ничего не было в случае ненахождения
Формула поиска совпадения в диапазоне данных и выдача результата
 
так наверное
Суммирование ячеек по критерию пропуская ошибки
 
Vik_tor там формула суммеслимн, агрегат просто суммирует.  
Суммирование ячеек по критерию пропуская ошибки
 
Ну если файлы не большие, то там где итого, прописывать формулу еслиошибка
Выборка на очень большом массиве.
 
Юрий М разобрался.   Невнимательность, или уже заработался  :D
Всем спасибо огромное.
Изменено: alexthegreat - 16.02.2017 12:11:34
Выборка на очень большом массиве.
 
Спасибо большое, разобрался.
Изменено: alexthegreat - 16.02.2017 12:10:39
Выборка на очень большом массиве.
 
Hugo, Kuzmich, спасибо большое. Буду пробовать
Выборка на очень большом массиве.
 
Юрий М Понял. Файл прикладываю.
Выборка на очень большом массиве.
 
Добрый день, может подскажите еще одни вопрос. Есть массив на 500 000 строк. Его нужно отВПРить. Формулами это делать, так сказать, не очень весело. Если есть ссылка или может тема такая была, или макрос. Буду благодарен за подсказку или помощь.
файл прикладывать смысла не вижу
Изменено: alexthegreat - 16.02.2017 11:04:08
Найти сумму за определенный период (формулами)
 
Спасибо всем огромное. Как всегда выручили  :)
Изменено: alexthegreat - 07.02.2017 17:17:24
Найти сумму за определенный период (формулами)
 
Тоже не подходит, там москвы две, одна в А3, другая в А15. Нужно их все складывать
Найти сумму за определенный период (формулами)
 
Пытливый Спасибо огромное, буду пробовать.
Найти сумму за определенный период (формулами)
 
Пытливый не, не подходит, нужно что то более универсальное, чтобы изменить москву на другой регион и оно считало. Так как Вы предложили, в принципе у меня есть решение, немного другое, но принцип тот же.
Найти сумму за определенный период (формулами)
 
Спасибо большое, буду пробовать.
Найти сумму за определенный период (формулами)
 
Добрый день, уважаемые форумчане. Помогите пожалуйста формулой или ссылкой на таковую. Нужно найти сумму значений за определенный период. Например найти сумму по Москве с января по июль.
Файл прикладываю.
Премного благодарен всем откликнувшимся.
О погоде
 
Сергей как вы там живете?  8-0
Связать два выпадающих списка
 
Mankee в приемах - связанные выпадающие списки.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 41 След.
Наверх