Добрий день. З'явилася проблема: працюю з величезною кількістю однакових excell файлів. Зробив макрос який обробляє документ. Але ніяк не виходить зробити правильне збереження: початковий файл - csv, в кінці повинен вийде xlsx. Після збереження все одно виходить csv файл. Підкажіть будь ласка, як зберегти файл в стандартну папку, в новому форматі з тим же ім'ям файлу. Буду дуже вдячний.
Усім добрий час суток.Напісал макрос автосохранения певної excel книги. На одному комп'ютері все начебто працює нормально.Неважно яка книга активна на даний момент, потрібна зберігається в Хайд-режимі, бачити тільки статус бар збереження внизу. На іншій машині все зовсім інакше, при автосохранение активується потрібна книга, зберігається і сама по собі закривається і відкривається попередня, і так завжди поки крутиться макрос. і іноді створюються незрозумілі файли типу AOE33300. в тій же папці, куди йде автосохранение. У чому може бути причина такої незрозумілої ситуації або помилка? Ось код.
Є документ який потрібно зберегти в потрібну папку і з ім'ям з тексту цього документа (текст в таблиці). Проблема в тому, що в день таких документів створюється дуже багато і кожен раз руками це робити лінь. Допоможіть чайнику ласка. додаю файл - його потрібно зберегти з номером заявки, (тобто 1234 в даному випадку, але кожен раз № заявки різний) Заранее спасибо
Допоможіть будь ласка! У мене в Outlook був макрос, який прочитував всі листи входять і зберігав їх у певну папку. Потім стався якийсь збій і макрос злетів. Мені написали новий, але він не працює до кінця, тобто приходить лист, він його ні читає, ні зберігає, коли приходить наступний лист, то він перший обробляє, а на другому знову ж гальмує, тобто виходить, що він через один працює. Місцеві програміст борються з цим, але толку нуль, я сама не програміст, але просто мені самій це дуже треба, може мені хто нитка допоможе (((Ось сам макрос: Sub SaveAattachments (myItem As Outlook.MailItem) 'Sub SaveAattachments () Dim oNameSpace As NameSpace Dim oFolder As MAPIFolder 'Dim MI As MailItem Dim MI Dim DestFolder As String Dim i As Integer Set oNameSpace = ThisOutlookSession.Session Set oFolder = oNameSpace.GetDefaultFolder (olFolderInbox) If Len (Dir ( "L: \ Карти \ CardPL \ Files \ In ")) = 0 Then DestFolder =" C: \ Card_In "Else DestFolder =" L: \ Карти \ CardPL \ Files \ In "End If For Each MI In oFolder.Items If MI.UnRead = True Then If MI .Attachments.Count> 0 Then For i = 1 To MI.Attachments.Count MI.Attachments.Item (i) .SaveAsFile DestFolder MI.Attachments.Item (i) .DisplayName Next End If MI.UnRead = False End If Next End Sub Єдине, що мене в ньому бентежить DestFolder = "C: \ Card_In". я знову ж кажу, що я не фахівець, але на диску С у мене немає папки Card_In, може це як то пов'язано. Дуже сподіваюся на допомогу.