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]
Podałem makro które zapisane w pliku robi kopię zapasową w innym katalogu. Jeśli kopia pliku ma być zapisana w tym samym katalogu to do swojego makra proponuję dopisać: Dim katalogZapisu As String ' to wpisujemy na początku deklaracja zmiennej katalogZapisu = ThisWorkbook.Path ' odczytamy katalog w którym jest zapisany otwarty plik ThisWorkbook.SaveCopyAs...
Dobra, więc tak. Do Excela nie zapiszesz, skoro nie wiesz jak wykonać taką operację. Potrzeba zewnętrznych płatnych bibliotek, żeby zapisać plik w formacie Excela, ewentualnie jest wymóg, żeby na komputerze z tym programem był zainstalowany Excel - to się da. Ale... Możesz zapisać po prostu plik tekstowy w formacie CSV. A w jaki sposób? var lines =...
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
Jaki komputer?
Przeciez masz komunikat ze jest tam Project VB Nie mam 2013, zrob zrzut ekranu VBA edytora
[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()...
Co Ty się tak uczepiłeś ChDir i ChDrive? Masz Localization = ThisWorkbook.Path i tego się trzymaj i tę zmienną użyj do zapisu pliku dokumentu.
[syntax=vbscript]Sub PDFy() s = "C:\PlikiPDF\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=s & "Excel.pdf" Set Wrd = CreateObject("Word.Application") a = s & "Excel.pdf " For x = 1 To 2 Set Doc = Wrd.Documents.Open(s & x & ".docx") p = s & "Doc" & x & ".pdf" Doc.SaveAs p, 17 a = a & " " & p Doc.Close Next Wrd.Quit q = Shell(s & "pdftk.exe...
[syntax=vbscript]Workbooks.Open ("C:\Users\Fransf\Desktop\TESTY\Klienci\... & nazwaklienta & ".xlsx")[/syntax]
ma byc xlTextPrinter(=36) lub xlPrinter(=2, jak w makro)? Dodano po 4 With ActiveWorkbook .Unprotect Workbook to nie jest arkusz, tylko skoroszyt Dodano po 5 P.S. xlPrinter zapisze plik .SLK, nie .PRN
Set Wb=Open(Fn) ==> Set Wb = Workbooks.Open("D:\abc\" & Fn) Zbyt dosłownie potraktowałeś ogólny zapis o otwarciu pliku.
Znalazłem niedozwolony znak w zapisie pliku - ukośniki :)
Replace, psze Pani, Replace...
[url=https://docs.microsoft.com/en-us/of...
Kolego Piotrze, coś chcesz nas zaczarować, bo to co piszesz jest mocno nieprecyzyjne. Formuła, którą zacytowałeś może działać tylko jako formuła tablicowa. W Excelu 365 formuły tablicowe zostały zastąpione formułami dynamicznymi, które zatwierdza się samym Enter, ale nie zmienia to ich tablicowej natury. W nowym Excelu każda formuła jest domyślnie traktowana...
Narzędzia -> Opcje -> [Zapisywanie] -|/|Zapisz informacje niezbędne do odcztania pliku co |_| min Pozdrawiam Lt.
arkusz i zapisał go w tym samym skoroszycie ale pod nazwa wzięta z komórki. Następnie zapisał by plik w określonym miejscu z nazwa rownież z określonej komórki. Napisz do wyjaśnienia adresów tych komórek. Ponadto sciezku dla zapisu Dodano po 1 [syntax=vb] Sub Kolejny_dzen() Sciezka = "D:\tmp\" '- to dopasuj do swoich potreb plik = Sciezka & Format(Int((Date...
W złym miejscu miałeś to dopisane. Przecież to chodziło o metodę GetSaveAsFilename, a nie o SaveAs. [syntax=vbnet]Private Sub CommandButton1_Click() Dim plik plik = Application.GetSaveAsFilename(Sheets("il... & ".xls", "pliki excel (*.xls), *.xls") If plik <> False Then ActiveWorkbook.SaveAs plik End Sub[/syntax]
Nie znam niczego co bym mógł polecić, najlepiej poszukać na google. W załączniku umieściłem przykład z jakiegoś mojego projektu jakbyś chciał rozwiązanie podpatrzeć. Mimo że jest to plik .xml, zapisuję go jako .xls, dzięki temu ikona wygląda jak excel ;)
W której komórce masz datę i w której kolumnie w pliku csv jest data do porównania? Dam Ci przykład. Jeżeli w komórce A1 jest data i chcesz ją porównać z datą, która jest w pliku csv, w kolumnie 3 (na trzecim miejscu po średniku), to: [syntax=vb] If Cells(x, 1) = a(2) Then Cells(x,2) = a(3) End if[/syntax] Rozumiesz powyższy zapis?
Otwórz plik na komputerze na którym działa. Jak się otworzy wciśnij Alt+F11 Jeżeli po prawej stronie nie widzisz okienka eksplorera projektów wciśnij Ctrl+R Odszukaj tam VBAproject(personal.xlsb) Naciśnij obok niego plusik (rozwinie się projekt) Otwórz "folder" modules "złap myszką" moduł w którym są twoje makra i przeciągnij na projekt twojego pliku...
Zablokowany plik do edycji , to może inny użytkownik ma otwarty i Twoje zamiany skasuje przy zapisie.
co zrobić, żeby do nazwy pliku dodać datę? Zmień Rozumiem, ze za tym fragmentem kodu "Next ws" muszę powtórzyć zapis dla kolejnych arkuszy (ze zmianą nazwy oczywiście;) Nie. Makro działa tak, jak chciałeś w pierwszym poście - zapisuje do PDFa wszystkie arkusze oprócz jednego, który wykluczasz w porównaniu ws.Name <> ...
Witam Udało mi się stworzyć makro kopiujące wybrany plik do nowej lokalizacji - kod który dobrze działa z jednoczesnym zapisem pliku excel w formie pdf. Wszystko jest OK ale mam jeden problem. W katalogu "Próby" mam więcej raportów z różnymi datami ale dlatego chciałbym utworzyć makro które będzie kopiować wszystkie pliki excel zaczynające się od "Raport_"...
Witam, Udało mi się stworzyć makro kopiujące wybrany plik do nowej lokalizacji - kod który dobrze działa z jednoczesnym zapisem pliku excel w formie pdf. Wszystko jest OK ale mam jeden problem. W katalogu "Próby" mam więcej raportów z różnymi datami ale dlatego chciałbym utworzyć makro które będzie kopiować wszystkie pliki excel zaczynające się od "Raport_"...
Jak to terminal nie ma możliwości zapisu do pliku?? Co do zapisu w dziwnych postaciach (np. excel) to może być problem z takim programem.
Właśnie wpadłem na takie rozwiązanie, miałem właśnie prosić o opoinię czy jest to poprawne rozwiązanie: ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, Notify:=False If ArkRoboczy.ReadOnly = True Then Set ArkRoboczy = ThisWorkbook ArkRoboczy.Activate End If Dzięki za zainteresowanie, proszę jeszcze tylko o odpowiedz czy konieczne jest : Application.DisplayAlerts...
Wystarczy rozbić ścieżkę dostępu do pliku np: Dodano po 2 Można też skorzystać z : ThisWorkbook.Path aby odczytać ścieżkę z jakiej jest uruchomiony plik
Musi być wpisana wartość komórki nawet jeśli to ma być 0 wtedy excel sortuje. Dla Ciebie, rozwiązaniem będzie nadanie nagłówków nad każdą kolumną, klasycznie 1,2,3... przeciagnij, bez zbędnego zastanawiania się nad tym, wtedy funkcja sortowania "pomyśli" że pusta kolumna pod nagłówkiem jest wypełniona "0" i zadziała. Po sortowaniu przed zapisem pliku...
Dziwnie to wygląda ... Zapis w jakiejkolwiek innej lokalizacji zawsze kończy się takim komunikatem ? Czy z plikami Worda jest wszystko ok ?
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")...
Problem dotyczy urządzenia, które skanuje dokumenty. Jeśli ponownie "przeskanujesz" (jakimś programem OCR) te pliki pdf - to uzyskasz nowy plik pdf (z nową datą :D ) i z dowolnie zapisanym nazwiskiem autora :idea: :D Zbliżony problem "archiwizacji" wyciągów bankowych z plików pdf rozwiązywałem onegdaj poprzez zapis ich jako tekst (AAReader DC), a potem...
Tak jak pisałem przyczyną problemów były odwołania strukturalne do tabel Excela. Po zamianie tych odwołań na tradycyjne odwołania do zakresów, dane powinny być odczytywane z zamkniętych plików. Tam gdzie w kolumnach masz daty (w przeglądarce) w kodzie formatu dopisz sobie na końcu dwa średniki po dacie. To żeby nie wyświetlać zerowych dat. Tam gdzie...
w Excelu wybierz menu "Narzędzia" -> Udostępnij skoroszyt. Zaznacz: "Pozwalaj na zmiany wprowadzane jednocześnie przez wielu użytkowników. To również pozwala scalać skoroszyty". Potwierdź OK. Jak się zachowa serwer, sprawdzę w jutro w pracy. /na komputerze można otworzyć plik kilka razy i edytować, zmiany są widoczne w momencie zapisu, serwer może mieć...
Zastosowałem się do wskazówki, i działa cudownie. Troszkę wprowadziłem modyfikację, która powoduje, że przy zapisywaniu z poziomu menu plik "zapisz" oraz "zapisz jako", po ponownym wpisaniu istniejącej nazwy, znowu wyświetla się komunikat o konieczności zmiany nazwy pliku, a potem okno zapisu. Jest jednak dalej jeden bug, który powoduje, że gdy się...
Ale jak wyjaśnić że działało tyle lat? I zawsze zapisywałem w formacie 97-2003 odkąd pamiętam, jak zapisze jako xlsx jest ten sam problem, może kolega który przesiadł się na WIN10 teraz podsyła pliki w których ten system coś miesza. Sam nie wiem, sprawdzałem na 3 kompach i wszędzie to samo, mam wrażenie jakby jedna komórka czy kilka jakiegoś "chorego"...
Funkcja ADR.POŚR pobiera dane tylko z otwartego pliku, więc tu raczej się nie nada. W Excelu można to zrobić odpowiednim makrem, ale dostosowanym do konkretnego problemu. Twój zapis formuł wskazuje jednak, że to nie jest Excel. Podaj dokładnie jakiego programu chcesz użyć i więcej szczegółów o tych danych (czy to są pojedyncze komórki z każdego pliku,...
Spróbuj: ActiveWorkbook.SaveAs Filename:=ActiveCell.Value & ".xlsx", FileFormat:=xlOpenXMLWorkbookMacroEn... reszta (Pasword etc.) jest na wartościach domyślnych.
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
W komórce A10 zabrakło ścieżki do pliku.
Ta wersja powiększa czcionkę w aktywnym arkuszu czyli Czyli powiększ - zapisz - powróć do poprzedniej. [syntax=vbscript]Sub PDFy() Application.ScreenUpdating = False Dim DatExample As Date Worksheets("baza zamówień").Range("C2").Value = Worksheets("baza zamówień").Range("R2").Value DatExample = Date s = "C:\PlikiPDF\DPFy\" With ActiveSheet .PageSetup.CenterHeader...
Przede wszystkim dziękuję za pochylenie się nad moim problemem :) Co do zapisywania pliku z samą godziną, bez minut i sekund (czyli samo hh w formacie) - zrobiłam to celowo. Plik użytkuje wiele osób, jest wielokrotnie otwierany w ciągu dnia. Taka nazwa nie generuje błędu przy kolejnym zapisie w tej samej godzinie, jak pisałeś, natomiast powoduje nadpisanie...
To całe makro?? Ten fragment służy jedynie do wybrania nazwy pliku. Zapis nastąpi w momencie wywołania: [syntax=vb]ThisWorkbook.SaveAs (ZapiszJako)[/syntax]
Witam Poszukuję pomocy ze stworzeniem makra dla zapisu plików w excelu. Mianowicie chodzi mi o to żeby plik excela który otwieram z pulpitu po jego wypełnieniu i kliknięciu w dyskietkę (zapisz), zapisywał się automatycznie z datą w docelowym folderze. Może ma ktoś już podobne makro które mógłbym wykorzystać ?
Zmiana dysku do lokalizacji co otwarty dokument ChDrive ThisWorkbook.Path Zmiana folderzu do lokalizacji co otwarty dokument ChDir ThisWorkbook.Path
Rozwiązanie można znaleźć tu: http://excelforum.pl/topics1/zapisywanie...
zapisz przez "zapisz jako"
[syntax=vbscript] Public Sub pobierz() Dim lang As String Dim URLStr As String, DLPath As String, UName As String, PWD As String, DontOverWrite As Boolean Dim zakres As Range Dim Lastrow As Integer Lastrow = ActiveSheet.Range("A1").CurrentRegion.Ro... Set zakres = Range("A2:A" & Lastrow) kat = Dir(Environ("USERPROFILE") & "\Downloads\karty\", vbDirectory)...
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"...
Chciałbym się podpiąć pod pytanie. Chciałbym jednam żeby mój plik z makrem po zakończeniu procedury zamknął się?? czy to w ogóle możliwe?? Kończę swoje makro poleceniem: ActiveWindow.Close SaveChanges:=False Zamyka mi się jednak wszystko ale sam excel (bez otwartego żadnego pliku) jest otwarty.
SaveAs nie powinno usunąć już zapisanego pliku, ale może go zapisać (wersję po zmianach) gdzie indziej. Jeżeli popełnisz błąd to plik "znika". Proponuję samodzielne namierzenie w którym miejscu w kodzie pojawia się problem i dopiero wtedy poszukać pomocy. Nie jest to takie trudne, ale wymaga systematyczności. Musisz znaleźć miejsca, gdzie coś się z...
Czy uruchomiłeś kod w pliku z załącznika, czy w swoim skoroszycie? Jeśli w swoim skoroszycie, to czy dodałeś arkusz o nazwie "Ostatni"? Te komunikaty wskazują, że ze skoroszytu próbuje się usunąć wszystkie arkusze. Wtedy przy usuwaniu ostatniego pojawiają się takie komunikaty.
Witam, Podczas pracy na pliku Excel miałem możliwość edycji i zapisu. lecz po pewnym czasie nie mogłem edytować(nie mogłem ani nic wpisać do komórek, ani nic skasować) i zapisywać. Po upływie 10 min Excel tak jakby się odblokował(mogłem wszystko już robić). Co może być przyczyną i jak pozbyć się tego problemu na przyszłość. Z góry dzięki za odpowiedź.
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...
Wyszło mi coś takiego sprawdż czy ci pasuje Musisz tylko zmienić sposób zapisu godziny czasu wymaganego kontaktu na taki jak w przykładzie bo inaczej nie będzie liczył
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
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...
W jaki sposób przesyłać dane z czujnika podłączonego do Arduino do PC przez Bluetooth? Koniecznie musi być zapis do formatu odczytywanego przez Excel, czyli CSV, XLS lub XLSX.
Przy porannej kawie wyszło coś takiego (załącznik). Zapisz plik w folderze, tym samym gdzie "Pula.xlsx" i uruchom makro. dodano po chwili: sorry, zapomniałem załączyć plik :)
Spróbuj takie makro: [syntax=vbscript]Public Sub TworzFoldery() Dim Sciezka As String Dim i As Long Dim k As Integer Dim OstW As Long Dim NFolder As String Dim NPodFolder As String Dim JPlik As String Dim NPlik As String 'Sciezka = ThisWorkbook.Path & "\" OstW = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To OstW NFolder = Range("A" & i) NPodFolder...
Czy w Wordzie, Excelu, ogólnie w Officie istnieje możliwość automatycznego zapisu dokumentu do osobnych plików, tak żeby nie stracić swojej pracy, ale by także móc wrócić do jakiegoś wcześniejszego etapu? W tej chwili jedynym znanym mi sposobem "awaryjnego" zapisu jest ustawienie automatycznego zapisu na krótki czas, jednakże zapis jest w postaci nadpisywania...
jak ot "zmienia" ? przez chwilę jest 777 a potem robi sie 744 ? w instrukcji servera ftp jest coś na temat maski zapisu ? co to za ftp server ?
Na stronach Ministerstwa Finansów jest aplikacja do sporządzania (oraz przeglądania) sprawozdań finansowych https://www.podatki.gov.pl/e-sprawozdani... W środku pliku jest też coś takiego: "Ten plik zapisano 2019-04-23 14:51:41 przy użyciu skoroszytu do obsługi e-sprawodzań ZigZak (http://zigzak.eu/esf) w wersji 1.35"...
Oczywiście makra mogą (prawie) wszystko. :) Ja czegoś takiego raczej bym wolał nie robić. Przemyśl jeszcze raz czego naprawdę potrzebujesz. Może pomogą Ci w tym poniższe uwagi. Nie lubię niczego uruchamiać "wejściem" w komórkę, działa "topornie". Robię to tylko jeżeli nie ma innego (prostszego) wyjścia. Zwykle lepiej działa normalny przycisk uruchamiający...
Być może masz przestawione przeliczanie z trybu automatycznego na ręczny. Kiedyś to się chyba klawiszem [F9] przełączało. W każdym razie od tego bym zaczął diagnozowanie. Pozdrawiam.
Musisz to odwrócić. Najpierw zapamiętanie nazwy pliku: zapisz w ukrytym arkuszu wartość '.SelectedItems(1)' (path+filename) i użyj jako argument 'Open' (Append lub Output) przy zapisywaniu. Jeśli wszystko odbywa się w jednej sesji, możesz przypisać do zmiennej globalnej. String do zapisu (wiersz arkusza) poskładaj w wewnętrznej pętli For. Żeby było...
Zapisywanie w jednym pliku Excel ale w osobnych "Arkuszach 1" później "Arkusz 2" można coś takiego zrobić ? np Zapis tylko styczen lub marzec jako osobny plik. lub Jeden skoroszyt z arkuszy miesięcy. chodzi mi żeby był jeden główny plik Excel z którego będzie robiona Baza archiwalna
Pracuję na pliku który korzysta z bazy danych (baza jest spora) zapisanej w arkuszu tego pliku. Słyszałem że makra i sam plik Excel lepiej pracuje jeżeli baza danych jest umieszczona nie w arkuszu ale w pliku tekstowym i do niego są zapisywane danie i z niego pobierane. Czy to jest prawda?
przekopiowałem kod do vba w moim pliku przestało to wszystko działać Zaproponowałem kod prywatny do obsługi skoroszytu - zatem musisz go wkleić dla obiektu ThisWorkbook :!: Po skopiowaniu kodu i dostosowaniu nazwy roboczego arkusza - plik musi być zapisany jako xlsm :!: Ze względu na zastosowane uproszczenia zapisu kodu - każdorazowo trzeba "wychodzić"...
Nie znam książek, ale masz do dyspozycji internet.;) [url=https://www.google.pl/#q=excel+vba+... Niestety sam musisz przefiltrować śmieci...
Przetestuj załączone rozwiązanie. Przed uruchomieniem należy: - Plik csv nazwać: "dane.csv" - Załączony skoroszyt zapisać w folderze, w którym znajduje się plik "dane.csv" U mnie cała procedura wykonuje się ok. 1 min. pozdrawiam andie
Witajcie wszyscy w Nowym roku!!! Życzę wszystkim użytkownikom forum Wszystkiego najlepszego. Piszę bo mam Orange FunTab 7.0 i chciałbym na nim edytować pliki excell-a. Jaki program polecacie koniecznie darmowy z możliwością zapisu. Pozdrawiam
win 7, program adobe, excel, word
Mnie też wyskoczył błąd przy wczytywaniu pliku PDF do Corela. Najlepiej plik PDF zapisać w starszej wersji np. 4, a otwierać jak najnowszym Corelem, np. X3 (trzynastką), lub wybrać Adobe Ilustratora może łatwiej wczyta PDFa - obydwa programy Adobe Ilustrator i Acrobat Reader są autorstwa firmy Adobe. Jednak nalepiej od razu zaprojektować płytkę w wybranym...
Cześć, dzięki za podesłane rozwiązanie niestety dla mnie nie jest do końca przydatne ze względu na to że, chodziło mi o "ZAPIS NOWEGO PLIKU POD NAZWĄ Z ARKUSZA" jak zostało to opisane poniżej. Potrzebuję dla generatora pytań napisać makro które pozwoli mi na zapisanie nowego Zeszytu(pliku) pod nazwą z Arkusza(Dane). Tak abym mógł wprowadzić kilkadziesiąt...
W Twoim kodzie było: [syntax=vbscript]ActiveWorkbook.Close[/s... tę linijkę po prostu przepisałem. Gdy zapisuje się plik pod nową nazwą przez SaveAs, otwarty skoroszyt przyjmuje nazwę zmienioną pod którą był zapis. Nie wiem, czy można zmienić nazwę otwartego skoroszytu inaczej niż przez zapisanie go. Zatem w tym przypadku proponuję ponowny zapis...
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"...
Witam [syntax=vb] Sub podzial_pliku() Dim kol As String Dim wiersz As Integer Dim nazwa As String Dim ark As Worksheet kol = InputBox("Podaj litere kolumny na podstawie ktorej nastapi podzial plikow", "Pytanie") wiersz = InputBox("Podaj numer wiersza od ktorego zacznie sie podzial plikow", "Pytanie") Range(kol & wiersz).Select Set ark = ActiveSheet...
Spróbuj tak: 1. Wejdź w Narzędzia -> Makro -> Zarejestruj nowe makro 2. Nazwij makro, opcjonalnie wybierz klawisz skrótu, a z listy Przechowuj makro w: wybierz Skoroszyt makr osobistych 3. Nagraj makro lub po prostu zakończ rejestrację. 4. Zamknij plik. Kiedy zapyta o zapis zmian w arkuszu makr osobistych, zatwierdź zmiany. 5. Otwórz dowolny plik, wejdź...
Cześć, Proszę o pomoc ponieważ nie potrafię sobie z tym poradzić, a nie jestem biegły w temacie makr. Otóż pilnie potrzebuję skonstruować plik, który pełniłby rolę programu do generowania prostych faktur. Plik zrobiony według rzeczywistych potrzeb, miał zostać jedynie zautomatyzowany tak, by po kliknięciu w przycisk "Generuj wydruki" odbywał się zapis...
's ' nie jest specjalny symwol jako np. F1, Tab, etc. Application.OnKey "^s", "Zapis" Private Sub Workbook_BeforeClose(Cancel As Boolean) Zapis End Sub
W opcjach zapisu excela ustawiasz jaki chcesz format zapisu pliku i ew gdzie domyślnie ma ci zapisywać sprawdź sobie to i ew zmień jak chcesz
Naprawdę nie mam pojęcia. Próbowałem zmieniać już wszystko i wychodzą mi same bzdety. Co bym nie zmienił to zawsze zapis jest od wiersza drugiego
No właśnie. To może być to. U mnie (po zmianie na październik) działa. Ale, uwaga, format daty systemowej mam zgodny z tym w CSV (Vista 32bit, Office 2007). Bo przy konwersji daty w "odwrotnym" formacie, Np z listopada może zrobić się marzec: https://obrazki.elektroda.pl/1929850600_... Tak się jeszcze zastanawiam. Zamiast porównywać...
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...
Witam Mam maszynę na sterowniku Beckhoff CX1100 pod Windowsem CE. Musze zrobić coś co da mi możliwość zapisywania parametrów ustawionych przez operatora i liczby wyprodukowanych detali od pliku. Zapis najlepiej do Exela. Jeśli ktoś wie co zrobić proszę o pomoc.
pojawia się komunikat, że plik jest zablokowany, Zablokowana edycja, czy możliwość zapisu pliku? Nowo otwarty plik możesz zapisać i normalnie otworzyć, edytować?
Plik *.RAR ląduje na poczcie e-mail. Muszę go zapisać na dysku, rozpakować (plik *.CSV) - otworzyć plik, przerobić dane (formatowanie, usuwanie niepotrzebnych kolumn) zapisać jako *.CSV - o odpowiednim kodowaniu i zapisać na dysku FTP. Jeśli korzystasz z poczty przez outlooka to wszystkie te rzeczy, można nawet w excel vba zrobić.
ssd now snv125-s2/64gb. Powiem Ci, że obserwowałem zużycie procesora w trakcie testu i skakało ono na poziomie 5-15% czyli średnio 10% dzięki antywirusowi, explorerowi itd, jak to możliwe że dysk zabiera prawie 20% kiedy zużycie wynosi 10% dla wielu programów działających w tle? Sprawdzę ten program, wyłączyłem dla testu superfetch i prefetch, nic się...
ale ja chce odzyskac stan pliku nawet z przed ostatniego zapisu (mniej strat) jaki to program przywroci ?? bo po cos te pliki *tmp sa ;)
gdyż mam makro które tworzy mi CSV Napisałem na szybko takie coś: [syntax=vb] ''' <summary> ''' Zapisuje bierzący arkusz do pliku CSV ''' </summary> Sub SaveCSV() Dim R As Range Dim cmax As Integer Dim rmax As Integer Dim srow As String Dim fname As String cmax = Excel.ActiveSheet.UsedRange.Columns.Coun... rmax = Excel.ActiveSheet.UsedRange.Rows.Count.....
Witam, Proszę o pomoc w napisaniu makra które po otwarciu pliku "arkusz ocen" będzie prosiło użytkownika o wskazanie lokalizacji pliku "baza". Po wskazaniu pliku excel otworzy plik "baza" skopiuję arkusz 1 (w tym pliku jest tylko jeden arkusz) i wstawi go do pliku "arkusz ocen" jak pierwszy arkusz. I teraz jeżeli w pliku "arkusz ocen" jest już skopiowany...
Mnóstwo rozwiązań: http://stackoverflow.com/questions/43488...
A czy jest możliwość wstawienia okna dialogowego? Takie okienko, które wyskakuje i pyta gdzie chcesz zapisać ten plik? Ustawienia by zostały, podawałoby się tylko lokalizację - miejsce zapisu pliku. Jak mogę to zrobić?
Skoro sam trochę zrobiłeś, to pomoc Ci się należy.;) [syntax=vbscript]Sub Sumuj() Dim x As Long, a As Double x = 1 Do While Cells(x, "A") <> "" a = a + Cells(x, "A") x = x + 1 Loop [D2] = a Open ThisWorkbook.Path & "\wynik.txt" For Output As #1 Write #1, a Close #1 End Sub [/syntax]
Tak, tylko urządzenie które miało by czytać z takiego pliku niekoniecznie jest jak by to powiedzieć - komputerem. Chodziło mi tu bardziej o to by nawet takowe jak np. Atmega działająca pod kontrolą języka C mogła zczytać plik z USB i dokonać na nim operacji. Z plikami tekstowymi problemów nie ma. Z Excelem przyznam że chyba jeszcze nikt nie działał...
A masz może możliwość wysłania mi pliku Excela z gotowym kodem? Nie wiem jak masz to zrobione tj. "te pojawienie" się wartości w danej komórce sprawdź (dwa rozwiązania) żeby dane pojawiały się w A1
To wina Office, zobacz trzeci post w tym watku: http://answers.microsoft.com/en-us/offic... Office podczas zapisywania tworzy nowy plik zamiast modyfikowac otwarty.
Potrzebuję zaimportować plik w formacie XML do programu Excell... Plik XML to raport z systemu RCP ROGER i chcę na tych danych popracować ... Z treści tego pliku wynika, że jest on utworzony przez program Master v.4. Czemu zatem importujesz ten plik do Excela ? Nie można analizować tych danych w firmowym programie Master ? Obawiam się, że zapis danych...
makro excel zapis pliku import pliku excel pliku excel zapis excel
indeksowanie dysku sterowanie wycieraczek astra fronius licznik energii
teltonika konfiguracja sprzedam tp118
Detektor zera w układzie LA1844: piny 11 i 12 Podłączenie dwóch mostków prostowniczych do jednego uzwojenia wtórnego