Megoldás makro Mentés PDF a fájl nevét

Helló Volt egy probléma: dolgozom egy csomó ugyanolyan Excell fájlokat. Ahhoz, hogy egy makró, amely feldolgozza a dokumentumot. De nem lehetetlen, hogy a megfelelő megőrzését: az eredeti fájlt - csv, a végén kéne xlsx. A mentés után mindegy kiderül csv fájlt. Kérem, mondja meg, hogyan kell menteni a fájlt az alapértelmezett helyen, az új formátum ugyanazt a fájlnevet. Én is nagyon hálás.

Minden a jó idő sutok.Napisal makró AutoSave bizonyos excel könyveket. Egy számítógép minden fajta munkák normalno.Nevazhno milyen könyvet aktív abban a pillanatban, meg kell tartani a Hajdú-módban, olvassa csak az állapotsor alján megőrzése. A másik gépen minden nagyon más, amikor mentés aktiválja a kívánt könyv alatt önmagában zárt, és az előző, és ez mindig kiderül, amíg a makró. és néha azért furcsa AOE33300 típusú fájlokat. ugyanabban a mappában, ahol a mentés. Milyen lehet az oka ennek a nem egyértelmű helyzet vagy egy hiba? Itt a kód.

Van egy dokumentumot tárolni a mappában, és a neve a szöveg a dokumentumban (a szöveget a táblázatot). A probléma az, hogy azon a napon, az ilyen dokumentumok létrehoz egy csomó, és minden alkalommal a kezét csinálni lustaság. Segítsen kérem vízforraló. csatolva a fájl - meg kell tartani a kérelem számával (azaz 1234 ebben az esetben, de minden alkalommal egy másik alkalmazást szám) Köszönet előre

Segíts kérlek! Voltam Outlook makrót, olvassa el az összes bejövő e-maileket, és tárolja azokat egy adott mappát. Aztán ott volt egy baleset, és a makro repült. Írtam egy újat, de ez nem működik, hogy a végén, azaz kap egy levelet, nem olvasta, vagy megtartja, amikor a következő levelet, azt feldolgozzák az első, és a második újra gátolja, azaz kiderül, hogy ő dolgozik egy. Helyi programozó küzd vele, de nulla értelme, én nem programozó, de én csak tényleg szükség van rá a legnagyobb, nem tudok menet, aki tud segíteni (((Itt a makrót: Sub SaveAattachments (sajatTetel Mivel Outlook.MailItem) „Sub SaveAattachments () Dim oNameSpace Ahogy NameSpace Dim oFolder Ahogy MAPIFolder „Dim MI Mivel MailItem Dim MI Dim DestFolder As string Dim i As Integer Set oNameSpace = ThisOutlookSession.Session Set oFolder = oNameSpace.GetDefaultFolder (olFolderInbox) Ha Len (Dir („L: \ Maps \ CardPL \ Files \ In ")) = 0 Then DestFolder =" C: \ Card_In "Else DestFolder =" L: \ Maps \ CardPL \ Files \ A „Vége, ha minden MI A oFolder.Items Ha MI.UnRead = True Ezután Ha MI .Attachments.Count> 0 majd i = 1 az 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 Az egyetlen dolog, ami összezavart ez DestFolder = "C: \ Card_In". Ismét mondom, hogy én nem vagyok szakértő, de a C meghajtón van Card_In mappák, lehet, hogy valami köze. Igazán remélem, hogy segítsen.