saveas filename

VBA: Jak zamknąć plik używając nazwy z komórki w Excel?

Pytanie kolego odnajdujesz się w tym kodzie? :) Błąd masz w clubs: tak na pewno jest to dobra ścieżka a dokładnie (a pytałem o te spacje :) ) [syntax=vbscript] "\ "[/syntax]

Excel VBA eksport do CSV z nazwą pliku z licznika w formacie 6-cyfrowym (np. 000125)

Witaj, Spróbuj, czy tak zadziała: [syntax=vb]Dim MyPath As String Dim MyFileName As String MyPath = "C:\Users\xxx\Desktop\Test" MyFileName = "M" While Len(MyFileName) < 7 - Len(Sheets("Arkusz1").Range("A1").Value) MyFileName = MyFileName & "0" Wend MyFileName = MyFileName & Sheets("Arkusz1").Range("A1").Value If Not Right(MyPath, 1) = "\"...

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

[vba] [excel] Automation error wystąpił wyjątek

Ok przeoczyłem ten set a jest tu 'myCSVFileName = myWB.Path & "\" & "ZAPAS.csv"', więc musi być 'Set myWB' ps. zobacz teraz [syntax=vbscript]Sub ZapasCSV() With Application .ScreenUpdating = False .EnableEvents = False End With Sheets("ZAPAS_CSV").Select Dim myCSVFileName As String Dim myWB As Workbook Dim tempWB As Workbook Dim rngToSave As Range Application.DisplayAlerts...

Makra Excel i Word - Jak zmodyfikować kod dla długiego łańcucha znaków?

U mnie działa coś takiego: [syntax=vbscript]Option Explicit Sub zupa_jarzynowa() 'Word Const wdFormatXMLDocument = 12 Const pnt = "$numer" Const tmplt = "szablon.docx" 'Excel Const dtxtadr = "B3" Const txtadr = "H2" Const sht = "Arkusz2" 'General Const rslt = "wyniki" Const sffx = "_Pismo" Const dfrmt = "YYYY.MM.DD" Dim txt As String, flenme As String,...

VBA Pętla - Kopiowanie wybranych arkuszy i tworzenie z nich nowego skoroszytu

No skoro zostałem "zobowiązany" "Pomocnym ...", to ode mnie coś takiego: [syntax=vbscript]Option Explicit Sub rozdziel_arkusze() Const gdzie As String = "C:\Users\mirek\Desktop\R3.2_05.2018\" 'Tutaj należy podać własną ścieżkę Dim i As Integer, j As Integer, ileark As Integer, nazwa As String If Dir(gdzie, vbDirectory) = "" Then MkDir gdzie Application.ScreenUpdating...

VBA Excel - ochrona arkusza, a zapis pliku jako txt

Witam A patrzyłeś tak [syntax=vbnet]With ActiveWorkbook .Unprotect .SaveAs Filename:="C:\!\Test1", _ FileFormat:=xlTextPrinter .Close SaveChanges:=False End With[/syntax]

[VBA] Jak połączyć procedurę wysyłania plików z funkcją usuwania znaków?

Witam Tu zmień z [syntax=vbnet]wbCopy.SaveAs Filename:=Katalog & cleanName, FileFormat:=xlNormal[/syntax] na [syntax=vbnet]wbCopy.SaveAs Filename:=Katalog & cleanName & ".xls", FileFormat:=xlNormal[/syntax]

Korespondencja seryjna + zapis pliku pod nazwą z kolumny bazy danych

Makro1 - nie trzeba w makro Test zmien ActiveDocument.SaveAs FileName:=sDir & "a_" & CStr(r) & ".docx", _ na ActiveDocument.SaveAs FileName:="C :\" & .DataSource.DataFields("nazwa ").Value & ".docx", _

Excel - Makro zapisujące plik pod określoną nazwą oraz z możliwością podania

[syntax=vb]Sub zapisz1() numer = InputBox("Podaj numer kolejny") NewFilename = numer & "-2015 " & ".xls" ActiveWorkbook.SaveAs Filename:=NewFilename End Sub[/syntax] lub [syntax=vb]Sub zapisz2() ActiveWorkbook.SaveAs Filename:="FORMULARZE" & ".xls" End Sub[/syntax]

VBA - automatyczne uzupełnianie nazwy pliku z miesiącami (nazwapliku_miesiąc)

W tej linijce niepoprawne jest to drugie Sheets. Nie ma obiektu Workbooks(1).Sheets(1).Sheets, a takiego szukasz (indeksy nie mają znaczenia dla zrozumienia o co mi chodzi). Według dokumentacji Sheets.Copy kopiuje w ramach jednego pliku, o ile dobrze to zrozumiałem. Do kopiowania do innego pliku używa się czegoś takiego i tego używam z powodzeniem:...

Excel - Makro, kopiowanie do CSV i usuwanie danych

Dziękuję wszystkim zaangazowanie. Skorzystałem z podpowiedzi poniżej zmieniając ustawienia i dodając do kodu Local:=True. DZIAŁA 👍 With ActiveWorkbook .SaveAs Filename:="My File.csv", FileFormat:=xlCSV, Local:=True .Close False End With In regional settings -> ; <- as list separator. It is also important not to save changes when closing...

Jak zrobić makro zapisujące starą nazwę pliku? Potrzebna pomoc.

Podmień [syntax=vbscript]ActiveWorkbook.SaveAs Filename:="c:\karta " & Format(Date, "yyyymmdd") & ActiveWorkbook.Name, FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False[/syntax]

Usuwanie wpisu z komórki w Excelu za pomocą makra

[syntax=vbscript]ActiveWorkbook.SaveAs Filename:="D:\magazyn " & Format(Date, "yyyymmdd") & ".xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False ActiveWorkbook.SaveAs Filename:="D:\magazyn.xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False Else MsgBox "Duplikat", vbExclamation, "Etykieta wprowadzona" Target.Value...

Jak zapisać plik wynikowy z makra jako xlsb bez makr?

Przed ActiveWorkbook.SaveAs Filename:= _ Wstaw ActiveSheet.Copy

EXCEL [VBA] - export skoroszytu do .CSV rozdz. znakiem tabulacji + nazywanie pli

ActiveWorkbook.SaveAs Filename:= folder & " " & Sheets("DANE").Range("A1").Text & ".csv", FileFormat:=xlTextWindows

Przejście z otwartego worda do otwartego w tle excela - VBA

Skoro otwarty, to nie podawaj ścieżki. Zdaje się, że wystarczy[syntax=vb]Workbooks("Zeszyt1.x... With ActiveWorkbook .SaveAs Filename:="c:\zeszyt2.xls" .Close End With[/syntax]

Excel, VBA- kopiowanie danych i wklejanie do nowego pliku w konkretne komórki

szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.

Jak zmodyfikować makro VBA w Excelu, aby ścieżka zapisu była z komórki H1?

Nie wiem, czy się rozumiemy... [syntax=vbscript]Sub ZapiszPlik() ActiveWorkbook.SaveAs Filename:=[H1] & [H3], FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub [/syntax]

Excel VBA: Makro do automatycznego zapisu pliku z datą w folderze docelowym

Na szybko, może Cię nakieruje dodaj jeszcze datę po nazwie: folderPath = Application.ActiveWorkbook.Path 'Wykrywa sciezke pliku Arkusz.Copy With ActiveWorkbook .SaveAs Filename:=folderPath & "\" & "nazwa_pliku" & ".xlsx" .Close SaveChanges:=True MsgBox "Plik został zapisany w bieżącym folderze." End With...

Excel vba jak zapisać plik csv w określonej lokalizacji na innych komputerach

Spróbuj tak: [syntax=vbnet] Uzytkownik=Environ("UserName") ChDir "C:\Users\" & Uzytkownik & "\Desktop" ActiveWorkbook.SaveAs Filename:= _ ""C:\Users\" & Uzytkownik & "\Desktop\!Metalmex plik importu danych.csv", FileFormat:= _ xlCSVUTF8, CreateBackup:=False [/syntax]

Excel - zapisywanie pliku pod nazwą z podanej komórki

Spróbuj: ActiveWorkbook.SaveAs Filename:=ActiveCell.Value & ".xlsx", FileFormat:=xlOpenXMLWorkbookMacroEn... reszta (Pasword etc.) jest na wartościach domyślnych.

VB EXCEL Automatyczne wstawianie koloru wypełnienia..

Dalej nie wypowiem się nad całym kodem ale wskaże gdzie co zmienić. Ta część twojego kodu odpowiada za zapis: ThisWorkbook.path np. na "c:\moja_sciezka" (w cudzysłowach) zrób to w obu fragmentach dotyczących zależności zapisu od wersji excela. Aby data w nazwie pliku była mniejsza o jeden w powyższym ciągu zmień VBA.Date na VBA.Date - 1 Jednak by nie...

[vba excel] zapis pliku excel - zapis pliku przez makro

Witam! Możesz wykorzystać kod: :spoko: [syntax=vbscript]Public Sub zapisz() Dim Wb_Name As Variant Wb_Name = Application.GetSaveAsFilename If Wb_Name <> False Then ActiveWorkbook.SaveAs Filename:=Wb_Name End If End Sub [/syntax]

Jak poprawić makro VBA do tworzenia kopii pliku z datą i czasem w nazwie?

Jeśli Sciezka = "D:\" to ActiveWorkbook.SaveAs Filename:=Sciezka & Nazwa Zdublowałeś slash'a.

makro zapisujace dany plik excelowy w formacie tekstowym unicode

ponizej moje agrane makro, z niedoskonalosciami: Może tak? [syntax=vbscript]Sub save_unicode() ActiveWorkbook.SaveAs _ Filename:="C:\users\desktop\TEST\" & ActiveSheet.Name & ".txt", _ FileFormat:=xlUnicodeText End Sub[/syntax]

Makro do Excela: zapisywanie pliku do nowego katalogu i usuwanie starego

Spróbuj tak: [code][syntax=vbscript] Sub ZapiszIUsuń() Dim Plik As String Plik = ThisWorkbook.FullName ThisWorkbook.SaveAs Filename:="C:\NowaŚcieżkaDoPliku\" & ThisWorkbook.Name Kill Plik End Sub [/syntax] W cudzysłowie trzeba podać ścieżkę docelową andie

Makro sumujące wartości komórek R4 i Q4 z autozapisem pliku na dysku C:

[syntax=vbscript]Sub Przycisk3_Kliknięcie() ' ' Przycisk3_Kliknięcie Makro ' Range("T4").FormulaR1C1 = "=NOW()" Cells(4, "R") = Cells(4, "R") + Cells(4, "Q") Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="c:\karta " & Format(Date, "yyyymmdd") & "usuwanie.xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End...

Poprawienie i zapisanie nowo utworzonego pliku z VBA Makro: PowerQuery, kolumny, tabela

Brakuje jakby tego ostatniego elementu. Nie wiem czy tu nie brakuje czegoś żeby zapisywało nowo utworzony plik, a nie ten z makrem, ale nie wiem jak to zmienić. Pomijam "budowę" tego kodu, jak już to tak. [syntax=vbscript] ActiveWorkbook.SaveAs Filename:="H:\" & Format(Date, "yyyy.mm.dd") & "_Zestawienie Zgromadzeń Inwestorów" & ".xlsx", _ FileFormat:=xlOpenXMLWorkbook,...

Eksport danych z pliku excel do pliku .txt

Witam Może być makro [syntax=vbscript]Sub Zapisz() Application.ScreenUpdating = False plik = Left(ActiveWorkbook.FullName, InStr(ActiveWorkbook.FullName, ".")) & "txt" ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:=plik, FileFormat:=xlCSVMSDOS ActiveWorkbook.Close False MsgBox "zapisano " & plik End Sub[/syntax]

Automatyzacja procesu VBS: Otwieranie pliku a.xlsm, odświeżanie danych SQL, uruchamianie Makro1

Set xlBook = xlApp.Workbooks.Open("N:\a.xlsm", 0, True) Zero zmień na 3 Zobacz [syntax=vbscript]ActiveWorkbook.SaveAs Filename:= _ "b" & Format(Date + 1, "dd.mm.yyyy") & ".xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnable... CreateBackup:=False, AccessMode:=xlShared[/syntax] ps pomijam ten błąd w twoim zapisie

EXCEL VBA: Generowanie csv z odfiltrowanych danych z arkusza - kolumny 'ID' i '/category@name[pol]'

Spróbuj takiego kodu: [syntax=vbscript]Sub create_csv() Dim FileName As String Dim PathName As String Dim ws As Worksheet, wscsv As Worksheet Set ws = ActiveWorkbook.Sheets("cześci") Set wscsv = ActiveWorkbook.Sheets("DO csv") FileName = "zestawy części.csv" PathName = Application.ActiveWorkbook.Path wscsv.Cells.Clear ws.AutoFilter.Range.SpecialCells(xlCellT...

[MS EXCEL] Jak obsłużyć anulowanie zapisu pliku w makrze Excel VBA?

Może tak? Private Sub CommandButton14_Click() Dim newFile As String, fname As String fname = "nowy plik" newFile = fname sFName = Application.GetSaveAsFilename If sFName <> False Then ActiveWorkbook.SaveAs Filename:=fname End If End Sub

zapisanie aktywnego arkusza do pliku z wyborem miejsca docelowego

a może znasz inną metodę zapisu arkusza do pliku TXT tak by przy zapisie nie było "" "ciapek" Nie wiem, o której wersji mówisz, ale 2007, [syntax=vb]ActiveWorkbook.SaveAs Filename:="D:\Moje dokumenty\Desktop\Zeszyt1.csv", FileFormat:=xlCSV, CreateBackup:=False[/syntax] zapisuje bez cudzysłowów.

Excel Macro: Tworzenie dokumentu docx z wybranego wiersza - A250, C250, F250, I250, J250

Kłopot w tym ,że w kolumnie F mam wartości typu IVa/2020. Z wiadomych powodów nie chce mi zapisać do pliku. jak zrobić zamiane / na np. - ? [syntax=vbscript]d.SaveAs Filename:=ThisWorkbook.Path & "\" & Cells(x, "H") & " zad." & Cells(x, "G") & " " & Replace(Cells(x, "F"), "/", "-") & ".docx"[/syntax]

Excel VBA – makro kopiujące arkusz „xyz” do nowego pliku o nazwie z B3 z formatowaniem

Po pierwsze: z którym fragmentem nagranego kodu masz problem? Po drugie: Nagraj makro kopiowania całego arkusza do nowego pliku ze zmianą jego (pliku) nazwy. Masz 100% gwarancji zachowania formatowania. Jeśli w arkuszu jest nadmiar danych można dopisać usuwanie. Jeśli jesteś początkujący, to nagrywarka jest podstawą. Przykład: To jest nagrane makro...

Excel-Makro - Makro służące do generowania kolejnych plików

Dzięki wielkie za pomoc. Zrobiłem już kopiowanie i udało mi się zapisać parę plików pod rząd natomiast teraz zestawiłem wszystko w jednym makrze i wyskakuje mi błąd. Tworzy mi się nowy arkusz ale o nazwie "Zeszytx" za każdym razem jak puszcze makro to x jest zwiększone o 1. Moim celem było aby plik zapisywał się pod nazwa z komórki P18. Po kliknięci...

VBA: Jak skopiować arkusz bez formuł do nowego pliku Excel?

Spróbuj takiego kodu: [syntax=vbscript]Sub Makro1() Sheets("typ").Select Sheets("typ").Copy Range("A1:K50").Select 'określenie całego zakresu do zapisu samych wartości bez formuł Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveWorkbook.SaveAs...

VBA - Kopiowanie zaznaczonego wiersza do innego pliku

Cześć Próbuję stworzyć kod który po zaznaczeniu całego wiersza, kopiowałby go (tylko wartości) do szablonu (nazwa szablonu z komórki AF zaznaczonego wiersza) do komórki A100 w zakładce Integracja. Później zapis szablonu pod nazwą z komórki AG zaznaczonego wiersza. Na razie stworzyłem taki kod, ale nie działa. [syntax=text] Private Sub CommandButton1_Click()...

VBA Excel - Zapis pliku do txt - zbędne cudzysłowy

[syntax=vbscript] Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _ (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Private Const MAX_PATH As Long = 260 '~~> Change this where and how you want to save the file Const FlName = "C:\MyWorkbook.txt" Sub Sample() Dim tmpFile As String Dim MyData As String, strData()...

Excel VBA eksport do CSV – jak ustawić separator średnik zamiast przecinka?

Witam, Mam kod który działa bez problemu, ale co w nim zmienić, żeby dzielił Średnikiem ; , a nie przecinek. Dim MyPath As String Dim MyFileName As String Dim x As Integer Dim rCell As Range MyPath = "F:\HURT\ZAM\Zamcsv" MyFileName = "A" While Len(MyFileName) < 7 - Len(Sheets("Zamówienie"...

Makro zapisujące plik datą i warością komórki z innego arkusza

[syntax=vbscript]Private Sub CommandButton2_Click() Dim Path As String Dim filename As String Path = "C:\Users\Krzysztof\Desktop\" filename = Format(Now(), "ddmmyyyy") & Arkusz2.Range("Q2") ActiveWorkbook.SaveAs Path & filename Application.DisplayAlerts = False Application.Quit End Sub[/syntax]

Generowanie i zapisywanie nowego pliku Excel we wskazanym miejscu

Tu masz schemat kopiowania danych do innego pliku. Procedura sprawdzona, działa i jest używana. Wystarczy dostosować co ma być kopiowane i już. [syntax=vbnet] Private Sub Zapisz() Dim Src As Workbook, Dst As Workbook Dim S As String S = Application.ActiveWorkbook.Path & "\Braki-" & Format(Date, "yyyymmdd") Set Src = Application.ActiveWorkbook Src.Sheets(1).Range("A1:E"...

Jak usunąć makro z arkusza skopiowanego do nowego pliku Excel?

Witam Mamy pytanie odnoście usuwania makra przez inne makro. Od początku. Mam poniższy kod który oczywiście działa popranie i robi dokładnie to co ma robić, czyli: kod na początku filtruje i tworzy pewną ankietę w arkuszu. Następnie arkusz z ankietą zostaje skopiowany i wklejona do nowego pliku Excel, następnie zapisany pod konkretną nazwą we wskazanym...

VBA Word 2013 - UserForm nie uruchamia się przy otwieraniu pliku

Jest, ale w Initialize są odwołania do nieistniejących kontrolek (albo pomyliłeś nazwy): TextBox26 ComboBox1 Zaapostrofuj i pójdzie... Druga sprawa - zapisujesz plik: ActiveDocument.SaveAs FileName:="NOWY PLIK" & ".doc" Spróbuj z okienkiem dialogowym, Poniżej przykład kodu: Application.Quit

Makro Excel - Makro zapisujące plik z nazwą z danej komórki, które kopiuje zazna

Dlaczego usunąłeś Environ? Tak jest uniwersalnie. [syntax=vbscript]Sub Makro() p = [A1] 'Nazwa pliku jest w komórce A1 Cells.Copy Workbooks.Add ActiveSheet.Paste Application.CutCopyMode = False Range("B21:E21,G21:V21,AB17:AB18,B17:V20... With Selection.Validation .Delete .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator...

Makro vb porównanie plików z danymi coś w rodzaju wyszukaj pionowo

Znaku i de facto pętli nie zmieniasz. Trzeba sprawdzić, czy porównanie chociaż raz spełnia warunek. Można wstawić jakieś liczydło, albo zastosować trick kolegi marcinj12 ze zmienną typu Boolean. Np [syntax=vb]'drugie porównanie Dim test as Boolean w = 2 test = True With Sheets("Układ pliku_skrócony") For i = 2 To Omega_a For j = 2 To Omega_b If plik1.Sheets(1).Cells(i,...

[VBA WORD] - korenspondencja seryjna - zapisywanie pliku po nazwisku Klienta

Dodano po 24 Chyba się pośpieszyłem. Word zgłasza błąd o braku uprawnień w przypadku: Dodano po 14 Już się poprawiam.;) [syntax=vb]Sub ZapiszPodNazwiskiem() Dim Plik As String, Sciezka As String x = 1 Sciezka = "C:\Wezwania\" For Each l In ActiveDocument.Paragraphs If x = 7 Then Plik = l.Range.Text Exit For End If x = x + 1 Next l Plik = Sciezka &...

vba/makra - automatyczne zapisaywanie pliku na różnych komputerach

Rozumiem, że makro ma być w pliku PRE-ALERT? Jeśli tak, to przetestuj poniższy kod: [syntax=vb]Sub NowyArkusz() Dim wbkPrealert As Excel.Workbook Dim oWSShell As Object Dim strPath$ Workbooks.Add a = Now() b = Year(a) c = Month(a) D = Day(a) Set wbkPrealert = ThisWorkbook Set oWSShell = CreateObject("Wscript.Shell") strPath = oWSShell.SpecialFolders("Desktop")...

Excel VBA - Dlaczego teraz muszę deklarować zmienne w makro?

Zadziała bo próbowałem w podobny sposób - jednak twój jest lepszy o tyle że "a" może mieć różna długość. No jest to jakieś wyjście chociaż brakuje mi tej * Co do potwierdzania SaveAs na googlach znalazłem (i działa) Application.DisplayAlerts = False ... kod... Application.DisplayAlerts = True czyli w moim przypadku: Application.DisplayAlerts = False...

Excel - zapisywanie pliku pod nazwą z aktualnie zaznaczonego wiersza

Błędnie składasz string dla zapisywana. Spróbuj [syntax=vb]Sub WklejDoWorda() Dim oWord As Object, a As String Set oWord = CreateObject("Word.Application") oWord.Documents.Add oWord.Visible = True 'możesz usunąć a = Selection.Row Range("D" & a).Select With oWord With .Selection .Font.Size = 11 .Font.Name = "Arial" .TypeText Text:="xyz" End With End...

Tworzenie pdf i zapisanie go w nowoutworzonym folderze

[syntax=vbscript]Public Sub TworzPDF() Dim Sciezka As String Sciezka = ThisWorkbook.Path & "\Wynik" If Dir(Sciezka, vbDirectory) = "" Then MkDir (Sciezka) End If With Sheets("ARKUSZ1") If .Range("Z2") = 1 Then .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Sciezka & "\" & .Range("Z1") & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True,...

VBA brak możliwości zapisania z rozszerzeniem .xlsx

Nie zapisuje nowego pliku w .xlsx bo jak pisałem w tym rozszerzeniu nie może być makra a Ty masz makro, jest błąd i nie zapisuje. Nie usuniesz makra z którego w danej chwili korzystasz. Trzeba to obejść tworząc kopię Arkusza bez makra i zapisując kopie. Sub Zapis() Dim Sciezka As String Dim adres1 As String Dim adres2 As String adres1 = Range("G2")...

vba - spakować zip pliku i wysyłka mailem hasła do pliku

[syntax=vbscript]Sub WyslijSkoroszyt() Dim Haslo As String, Plik As String Plik = ActiveWorkbook.FullName Haslo = InputBox("Podaj hasło do pliku: ", "UWAGA") ActiveWorkbook.SaveAs Filename:=Plik, Password:=Haslo Call WyslijMejla("adresat(at)moj.pl", "Mój plik Excela", "Hasło do pliku zostanie wysłane kolejnym mejlem", Plik) Call WyslijMejla("adresat(at)moj.pl",...

Makro "send mail" w Wordzie - Makro wysyłające e-mail z Worda.

To mnie wymęczyłeś.;) Jkoś z Wordem mam do czynienia, gdy czytam tekst, a nie piszę makra. Sprawdź proszę załącznik. Trochę namieszałem. Podmień makro ZapisziWyslij na to: [syntax=vb]Sub ZapisziWyslij() Oryginal = ActiveDocument.Name Dim SMTP As String, TwojMejl As String, TwojeHaslo As String, Plik As String, DoKogo As String SMTP = "TwojSMTPSerwer"...

Jak podzielić dokument Word 2007 na osobne pliki dla każdej strony?

Jeżeli ci potrzeba jednorazowo to ponizej masz trochę kulawe makro. Jeżeli nie to nawet tego nie stosuj Przyznam że to moje pierwsze w wordzie Robiłem na analogie do tego co pokazałeś i zgadując. Błąd polega na tym ze na pewno nie zrobi ostatniej strony. (jak widać początek zaznaczania to dana strona a koniec następna strona i ponieważ ostatnia strona...

[VBA Excel] Automatyzacja makra do przetwarzania plików tekstowych w pętli

Tak na szybko... Bez obsługi błędów, gładzenia kodu itp. Sub czytajpliki() Dim linia, sciezka, fs As Object, f, f2, k 'Application.ScreenUpdating = False sciezka = "C:\Documents and Settings\admin\Desktop\test\" Set fs = CreateObject("Scripting.FileSys... Set f = fs.GetFolder(sciezka).Files For...

Excel 2010 - Jak dodać przycisk zapisu z obrazkiem?

Nagraj sobie makro zapisywania. Poniżej zarejestrowane (bez korekty) dwa: "Zapisz jako" oraz Ctrl+s (zwykłe zapisz) http://obrazki.elektroda.pl/3841968300_1... i wybierasz z listy. Aby oprogramować komórkę/zakres potrzebujesz procedury zdarzeniowej [url=http://dzono4.w.interiowo.pl/kurs/d... Tu należy warunkowo wywołać...

pętla - makro - tworzenie skoroszytów - jak zrobić pętlę

Witam ponownie, Nie linczujcie mnie :) podejrzewam, że dzisiaj jeszcze poproszę kilka razy o pomoc - jestem początkująca, ale bardzo chętna do nabywania wiedzy:) Mam problem ze stworzeniem pętli do tworzenia nowych skoroszytów, napisalam makro tworzące 10 skoroszytów o nazwach dane_1, dane_2 itd., zapisujących się w folderze utworzonych na pulpicie...

VBA Excel: Makro do wyszukiwania i porównywania wartości dołek w kolumnach

Za to u mnie (z małymi przeróbkami) na plikach tekstowych (nie mam *.mst) działa. Sub dir_pliki() 'katalog = Application.DefaultFilePath & "\" 'podstawiam Twój path katalog = "K:\Moje Foldery\Pulpit\" plik = Dir(katalog & "*.txt") 'tu podstaw "*.mst" Do While plik <> ""...

Excel VBA: Dynamiczna nazwa pliku z komórki AQ3 przy zapisie arkusza

A może trzeba zamienić: ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\rw\Pulpit\Jan Kowalski.xls", FileFormat:= _ na: ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\rw\Pulpit\"&AQ3, FileFormat:= _ ? Przy odrobinie chęci można znaleźć rozwiązanie tego problemu na Elektrodzie. :D

Jak przyspieszyć i zmodyfikować obsługę skoroszytu w lokalizacji sieciowej i lokalnej

A co niby "innego" takie makro może zrobić? Sub Start() Windows("Interface.xls").Activate Sheets("Arkusz1").Select Workbooks.Open Filename:="\net.CRTCAMRYRWTPPR_ccpMagazy... Windows("Zeszyt.xls").Activate ChDir "\net.CRTCAMRYRWTPPR_ccpMagazyn" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "Zeszyt.xls"...

VBA: Nadpisywanie istniejącego pliku z arkuszem - omijanie komunikatu

Zapisując arkusz w nowym pliku z nazwą, która już istnieje widzę komunikat, który muszę zatwierdzić. Chciałbym w takich przypadkach aby nadpisywał istniejący. Data = Worksheets("Result").Range("H1").Value ThisWorkbook.Worksheets("Tesult").Copy ActiveWorkbook.SaveAs Filename:=sciezka & "\" & nazwaPL & Data & Format(Date, "yyyy") & ".xlsx" .........

Jak eksportować dane z Excel do UTF-8 bezpośrednio do Anki?

W tym przypadku ta funkcja nie jest wymagana. Zamiast [syntax=vb] ChDir "H:\ANKI\Moje fiszki do Anki" ActiveWorkbook.SaveAs Filename:= _ "H:\ANKI\Moje fiszki do Anki\import.txt", FileFormat:=xlUnicodeText _ , CreateBackup:=False [/syntax] wpisz [syntax=vb] Set okno = Application.FileDialog(msoFileDialogFold... okno.Show sciezka = okno.SelectedItems(1)...

VBA EXCEL - Jak zmienić nazwę i skopiować plik do OneDrive?

Z góry dziękuję za pomoc oraz jakiekolwiek wskazówki. Proponuje wykorzystanie innego formularza systemowego msoFileDialogSaveAs W podobnych sytuacjach korzystam z takiego kodu opartego na tym oknie dialogowym SaveAs :D [syntax=vb]intChoice = Application.FileDialog(msoFileDialogSave... If intChoice <> 0 Then strPath = Application.FileDialog(msoFileDialogSave...

Excel VBA: Jak nadpisać plik bez pytania przy ActiveWorkbook.SaveAs?

Formuła ActiveWorkbook.SaveAs Filename zgłasza komunikat o istnieniu takiego pliku. jak zmusić formułę do nadpisywania bez pytania?

VBA – automatyczne nadawanie unikalnych nazw plikom przy zapisie w pętli

Zamiast [syntax=vb]Workbook.Save[/syntax] użyj [syntax=vb]Workbook.SaveAs(filename)[/sy...

[Excel] Jak znaleźć min i max dla każdej grupy w kolumnie?

Może przeróbka Twojego makra? Dorobiłem pętlę, czyszczenie filtru, utworzenie i zapisanie nowego pliku, etc. Działa z plikiem z załącznika, wymaga "dopieszczenia".[syntax=vb]Sub Max() Dim lngLastRow As Long Dim rngToCheck As Range Dim varList As Variant Dim WorkRange As Range Dim ostWrs As Long, vList As Variant 'ostWrs = Sheets(3).Range("c65536").End(xlUp).Row....

Makro do numeracji - automatyczna zmiana przy otwarciu pliku

Czy jest możliwe że gdy kliknę w "zapisz jako" jako sugerowana nazwa dokumentu pojawi się numer mojej oferty wygenerowany przez makro ? O ile mi wiadomo takie cuda nie są możliwe. Możesz za to dodać np. przycisk zapisujący z takim kodem: [syntax=vb]ActiveWorkbook.SaveAs Filename:="c:\" & Arkusz1.Range("A1").Value, FileFormat:=xlOpenXMLWorkbookMacroEnable...

Jak zmienić domyślny dysk w VBA Excel dla zapisu plików?

Witam Aby zapisać w wskazanym katalogu i nazwą to spróbuj tak: [syntax=vbscript] ActiveWorkbook.SaveAs Filename:= _ "C:\Users\twojaNazwaUzytkownika\Document... [/syntax]

Excel- VBA, zapisz jako CSV z formatowaniem liczbowym

Witam, Może znajdzie się ktoś, kto ma pomysł, na mój problem: Stworzyłem makro, które z formatki wypełnionej przez użytkownika, kopiuje dane, dodaje inne potrzebne kolumny i kody i wrzuca wszystko do csv - korzystając z funkcji SaveAs z parametrem Local:=True. wbkNowy.SaveAs Filename:=Sciezka, FileFormat:=xlCSV, CreateBackup:=False, Local:=True Wszystko...

Jak dostosować makro VBA do plików z różną liczbą wierszy?

Poprawiony Twój kod (używając jednej zmiennej 'ow');): [syntax=vbscript]Columns("H:H").Select Selection.Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveWorkbook.SaveAs Filename:= _ "C:\Users\imie.nazwisko\Desktop\WYSYŁKA MASOWA\Lista.csv",...

VBA automatyczne zapisanie pliku pod nową nazwą przed przeniesieniem danych

Witam Coś takiego to tylko przykład [syntax=vbscript]Sub zapisz() n = Application.GetSaveAsFilename(Left(Activ... InStr(ActiveWorkbook.Name, ".") - 1) & "-" & Date & ".xls") If n <> False Then ActiveWorkbook.SaveAs Filename:=n End Sub[/syntax]

EXCEL VBA - Jak wywołać okno Zapisz jako z konkretną ścieżką?

Coś zaiskrzyło w temacie :) dodałem: Dim zapisz As Variant ActiveWorkbook.SaveAs Filename:=zapisz & ".xlsm" Dzięki za pomoc. Uczę się metodą prób i błędów, ale na razie jest raczej OK.

vb w visual studio 2017 - praca z wordem ; '' zapisz jako '' nie działa

Mam problem iż nie wiem z jakiego powodu program po naciśnięciu zaprogramowanego przycisku wywala mi błąd. Program ma za zadanie po naciśnięciu otworzyć nowy dokument worda, wpisać tam coś i na koniec zapisać plik w podanej lokalizacji z danym rozszerzeniem. Otwieranie worda się udaje natomiast dwie kolejne czynności wyrzucają błąd, który wygląda tak...

Tworzenie nowego pliku Excel z makrem VBA: kopiowanie, usuwanie i przenoszenie komórek

abym mógł wpisać własną nazwę pliku nadal nie doszedłem Trudno zrozumieć gdzie masz problem z wprowadzeniem do kodu ten fragment z inputboxem :?: :cry: Możesz też wykorzystać inny sposób :idea: [syntax=vbscript]Public Sub zapisz() Dim Wb_Name As Variant Wb_Name = Application.GetSaveAsFilename If Wb_Name <> False Then ActiveWorkbook.SaveAs Filename:=Wb_Name...

EXCEL VBA - Jak zapisać dane z formularza do pliku tekstowego przed zamknięciem?

Podobny temat był tutaj: [url=http://www.elektroda.pl/rtvforum/to... A może po prostu: [syntax=vb]ActiveWorkbook.SaveAs Filename:="C:Plik.csv", _ FileFormat:=xlCSV, CreateBackup:=False[/syntax]

VBA masowe importowanie modułu *.bas do plików Makro

W załączniku. Niestety dalej to samo https://obrazki.elektroda.pl/8971039800_... Mam jeszcze coś takiego ale wskazuje mi błąd : [syntax=vbscript] Sub Przycisk2_Kliknięcie() Dim folder As String Dim plik As String folder = "c:\pliki\" plik = Dir(folder & "*.xlsm") Application.ScreenUpdating = False Do While plik <> "" With...

VBA/Excel - Jak uprościć kod filtra zaawansowanego bez kopiowania formatów?

Witam Dodatkowo potrzebuje pilnie pomocy ponieważ nie działa mi makro jak poniżej Option Explicit Dim mdteNextsavetime As Date Const msMACRO_NAME As String = "SaveAsworkbook" Const msBOOK_NAME As String = "Historia zapisu" Sub saveAsworkbook() Dim sbookName As String Dim sFilePath As String sFilePath = ThisWorkbook.Path & "/" & msBOOK_NAME & " " & Format(Now,...

Excel - filtrowanie tabeli przestawnej i kopiowanie

Witam To jest makro wyszukane w jakiejś książce nie pamiętam. Tworzy nowe skoroszyty dla filtra z tabeli przestawnej. Zmień fragment aby tworzyło nowe arkusze Dodano po 6 Proponuję stronę helion.pl Tam do książek są przykłady na FTP. Skarbnica przykładów ;-)

Makro VBA zapisujące plik na pulpicie użytkownika w różnych systemach Windows

Próbowałem coś takiego zrobić, ale pokazuje mi błąd 1004 i nie bardzo wiem gdzie jest błąd[syntax=vbscript]Dir Environ("userprofile") & "\Decktop\bla" ActiveWorkbook.SaveAs Filename:= _ Environ("userprofile") & "\Decktop\bla", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False[/syntax]

Jak wyłączyć okienko potwierdzenia nadpisania pliku w Excelu?

Istnieje takie polecenie w VBA i to bardzo skuteczne: Application.DisplayAlerts=False Zapobiega wyswietlaniu komunikatu proszacego o podmiane pliku juz istniejacego. Nalezy go uzyc w polaczeniu z: ActiveWorkbook.SaveAs Filename:= itd.... Pozdrowka

Błąd przy zapisie pliku Excel po wykonaniu makra - ActiveWorkbook.Save

W arkuszu są zwykłe dane liczbowe. Proces jest taki, że z programu otrzymuję powiedzmy 20 raportów i odpalam makro, które otwiera każdy z tych raportów, formatuje dane i zapisuje go, twórca tego makra zrobił to tak, żeby napisywało istniejący pliczek, ale w moim odczuciu może zapisywaćw innej lokalizacji jako nowy. Pliki raportów są w formacie Excel...

Excel makro - makro zwracajace dzisiejsza/jutrzejsza date

To powinno ci pomóc: Sub cos() a = Now() b = Year(a) c = Month(a) d = Day(a) MsgBox ("Teraz jest: " & a & Chr(10) & Chr(10) & "Rok:" & b & ", Miesiąc:" & c & ", Dzień:" & d) nazwa = "plik_" & b & "-" & c & "-"...

Makro dzielące plik na zakładki - błąd przy braku miasta w zestawieniu

Proszę: [syntax=vbscript]Sheets("START").Select Range("B2").Select Wiersz = ActiveCell.Row KOLUMNA = ActiveCell.Column Do While Cells(Wiersz, 3) <> "" plik = Cells(Wiersz, 3) FILTR = Cells(Wiersz, 2) Workbooks.Add.SaveAs Filename:=ThisWorkbook.Path & "\" & plik Windows("DaneScalone.xlsx").Activate KOLUMNA = 4 Do While Cells(Wiersz, KOLUMNA)...

VBA - Makro do tworzenia plików z jednego skoroszytu na podstawie listy z tabeli

No to w czym problem? Plik tworzysz np. wykonując dwie (może 3) instrukcje: [syntax=vbscript] set Wb=Workbooks.Add ' tu wypełniasz arkusze nowego skoroszytu Wb.SaveAs Filename:="pełna (ze ścieżkami) nazwa pliku" Wb.Close [/syntax] Czy jakoś tak, bo pisane z głowy, nie sprawdzałem czy poprawne. Jeżeli coś nie tak to szczegóły zapytaj Googla. Robisz to...

Jak napisać makro w Excel VBA do dzielenia danych wg typów w kolumnie E?

Poniżej wklejam moje nagrane makro. Tworzę tabelę aby rozwiązać problem różnych ilości danych. Poniżej kroki które muszę wykonać. Filtruję, kopiuję i wklejam jako wartości. Nowe skoroszyty muszą mieć nazwę danej jaką filtruję i muszą być zapisane w folderze, w którym zapisany jest plik na którym pracuje. Ponieważ w Criteria1 dane są różne, nie mogę...

Skrypt do outlooka 2013 na win7 do zapisywania całej wiadomości i spakowania

Może to Ci się przyda. Musi być zainstalowany 7zip. Kod dla Outlooka. [syntax=vbscript] Option Explicit Private Const PathFile$ = "C:\test\" ' ścieżka dla plików Private Const Path7zip$ = "C:\Program Files\7-Zip\7z.exe" 'ścieżka 7zip Private Const FileName$ = "msg.msg" ' nazwa pliku msg Sub SaveSelectMail() Dim olApp As Outlook.Application Dim olExplorer...

Jak stworzyć makro w Word 2003 do zapisu stron jako osobne pliki?

Powiem że (polskie) google nie oferuje za dużo info na temat VBA Word, a nagrywanie to jakaś masakra. No ale udało się. Może to dla znawców trochę toporne ale zawsze jakieś rozwiązanie: [syntax=vb]Sub osobny_plik() Application.Browser.Target = wdBrowsePage For i = 1 To ActiveDocument.BuiltInDocumentProperties... of Pages") ActiveDocument.Bookmarks("\page").Range....

zmiana makra, aby działało w nowszej wersji excela

Otwórz Excela (nowy plik), włącz rejestrator, zapisz plik z obsługą makr (xlsm), porównaj oba kody (parametr 'FileFormat') i już będziesz wiedział... Ok. Już mam jak niżej. Tylko co zrobić teraz, żeby nie pojawiało się to okienko, które pyta się mnie czy chcę zapisać plik bez obsługi makr, tylko domyślnie potwierdzało, że chcę zapisać plik w formacie...

[Rozwiązano] Excel VBA formuła daty mimus weekend

Albo "wpleć" swój warunek bezpośrednio do kodu :D [syntax=vbscript]Sub Zapisanie_Pod_Nowa_Nazwa_z_data() Dim sBookName As String Dim sFilePath As String Dim suf As String Dim wsdat As Date ' Sprawdź pełną ścieżkę do pliku If Weekday(Now, vbMonday) = 1 Then wsdat = Now - 3 Else wsdat = Now - 1 End If suf = Format(wsdat, "yyyy-mm-dd") & ".xlsx" sFilePath...

Excel VBA - Jak zapisać dokument Word w katalogu pliku Excela?

Hmm... Zrobiłam coś takiego : Dim strName As String, strPath As String strPath = ActiveWorkbook.Path strName = strPath & Range("A" & a).Text & ".doc" oWord.ActiveDocument.SaveAs Filename:=strName 'przyczepia mi się do tej linijki oWord.Quit I chyba nie jest to dobrze...;/ Dodano po 1 Nie działa ani jedno, ani drugie. Nie zapisuje ani w Dokumentach,...

VBA Makro dzielące plik excel na wiele plików i arkuszy

Nie wnikam w działanie makra, ale do przemyślenia wykroiłem najistotniejsze. [syntax=vbscript] dirout = Sheets("Parametry").Cells(4, 3).Value Workbooks.Open (dir_in & file_in) For Each sh In Worksheets Workbooks.Add fileout = CStr(Cells(i, col).Value) 'coś tu jest kopiowane, wypełniane, itp 'z odwołaniem do ActiveSheet ActiveWorkbook.SaveAs Filename:=dirout...

Jak wstawić nazwę pliku Excela do wybranej komórki?

Jest możliwe Sub zapis() plik = Worksheets("Arkusz1").... 'Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=plik, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False 'Application.DisplayAlerts...

Makro [VBA WORD] do ustalania zakresu generowanych plików

Dzień dobry, dobry wieczór! Mam sobie taką korespondencję seryjną do generowania dokumentów, makro mi je dzieli na konkretne pliki, do nazwy używa odpowiedniej komórki, wszystko super. Ale potrzebuję je trochę ulepszyć. Chciałbym móc decydować jaki zakres rekordów będzie generowany. Czyli np, jest w bazie wpisane 20 rekordów, ja chcę wygenerować od...

Różnica w zapisie CSV pomiędzy zapisem z menu Excel a zapisem w kodzie VBA

Taki problem, który pewnie jest dla wielu banalny. Zapisując plik za pośrednictwem zwykłej funkcji: Zapisz jako i wybierając .CSV rozdzielany przecinkami uzyskuję plik, który przy ponownym otwarciu jest podzielony na kolumny (patrz załącznik: 1058226 ZDEM_via_Excel.csv) tymczasem gdy stosuję taki kod do zapisania pliku. ActiveWorkbook.SaveAs Filename:="C:\ZDEM.csv"...

Excel VBA – jak scalić i obramować komórki kodem w programie magazynowym?

Chyba najprościej Sub SendRaport() sciezka = Environ("temp") & "\" plik = "Proba.xls" 'kopiowanie arkusza z raportem do nowego pliku Sheets(1).Copy Application.DisplayAlerts = False 'w E2007 zapisujemy w formacie xls If Val(Application.Version) >= 12 Then ActiveWorkbook.SaveAs Filename:=sciezka...

Excel VBA - Błędy w działaniu kodu: niepoprawne wczytywanie danych, błędne porównanie kolumn

Prośba o sprawdzenie kodu. Kod składa się z 5 "oddzielnych" programów, które pojedynczo (1 z nich zostawiam, a resztę zakomentuję) działają. Problem pojawia się, gdy chcę go uruchomić jako całość. W 60% przypadkach coś nie działa. Program wykona się cały bez errorów, ale 1) często wczytuje dane, a potem nie usuwa pustych wierszy 2) źle porównuje obie...

[VBA] Makro kopiujące tabelę z kosztorysu do nowego pliku z zachowaniem formatowania

ok udało mi się napisać coś takiego: [code][syntax=vbscript] Sub tl() Dim thisWb As Workbook Set thisWb = ActiveWorkbook Columns("A:G").Copy Workbooks.Add With Range("A1") .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False...

VBA makro - kopiowanie wierszy do pliku CSV i wysyłanie ich na ftp

(at)Tomuś_P nic tam nie znalazłem Coś tam zrobiłem problem polega na tym że czasem makro działa czasem nie i nie wiem co jest nie tak, makro samo w sobie nie pokazuje błędów ale pliki na FTP czasem są czasem nie... Drugi problem to tworzenie plików wolałbym żeby nie tworzył na dysku żadnych plików tymczasowych. [syntax=tex]Sub FTP_CSV_Tp() Dim fNameP...

[C++] Jak w C++ zamienić wiele plików XLS na CSV w katalogu?

Uruchom Excela. Naciśnij Alt-F11. Wklej Sub XlsToCsv(plik As String) Workbooks.Open Filename:=plik + ".xls" ActiveWorkbook.SaveAs Filename:=plik + ".csv", FileFormat:=xlCSV, CreateBackup:=False ActiveWorkbook.Close SaveChanges:=False End Sub Sub FolderToCsv(folder As String) Dim plik As String...