Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

zapisanie aktywnego arkusza do pliku z wyborem miejsca docelowego

lukaszwat 04 Gru 2014 14:48 1062 12
  • #1 04 Gru 2014 14:48
    lukaszwat
    Poziom 9  

    Witam
    potrzebuje pomocy, a mianowicie -
    Mam makro, które zapisuje mi ładnie tak jak chce aktywny arkusz do pliku csv.
    Tylko zapisuje mi do pliku w konkretnym miejscu wpisany w kodzie z konkretną nazwą, a ja chciałbym wybierać miejsce zapisu i nazwę pliku.
    Próbował skorzystać z InputBox ale wywala jakiś błąd.
    Jak zmienić poniższy kod tak by zapisywał aktywny arkusz we wskazanym przeze mnie miejscu i wskazanej przeze mnie nazwie.
    Dodam, że kod jest tak zrobiony by plik zapisywał się bez ciapek ("") z przodu i z tyłu każdego wiersza.


    Kod: vb
    Zaloguj się, aby zobaczyć kod


    z góry dziękuję za pomoc

    0 12
  • #2 04 Gru 2014 16:29
    PRL
    Poziom 33  

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    0
  • #3 05 Gru 2014 08:17
    lukaszwat
    Poziom 9  

    Jak podstawiam

    Kod: vb
    Zaloguj się, aby zobaczyć kod


    to wyskakuje mi błąd coś nie tak napisałem ? albo czy coś jeszcze muszę podstawić ? żeby zadziałało

    0
  • #4 05 Gru 2014 08:36
    marcinj12
    Poziom 40  

    To nie jest stała, więc bez Const ma być...

    0
  • #5 05 Gru 2014 09:07
    lukaszwat
    Poziom 9  

    wprowadziłem tak jak poradziłeś i też wyskakuje błąd - niestety.


    Kod: vb
    Zaloguj się, aby zobaczyć kod


    wyskakuje:
    compile error
    invalid outside procedur

    0
  • #6 05 Gru 2014 09:19
    adamas_nt
    Moderator Programowanie

    A może po prostu:
    Application.FileDialog(msoFileDialogSaveAs).Show

    0
  • #7 05 Gru 2014 09:51
    lukaszwat
    Poziom 9  

    też niestety wyskakuje błąd,

    0
  • #8 05 Gru 2014 10:40
    PRL
    Poziom 33  

    Cytat:
    wyskakuje:
    compile error
    invalid outside procedure


    Masz gdzieś jakieś zapisy przed Sub, lub po End Sub.

    Mam nadzieję, że powyższego kodu nie wpisałeś gdzieś, gdzie Ci się podobało.;)

    0
  • #9 05 Gru 2014 11:18
    lukaszwat
    Poziom 9  

    tak przed Sub Zapis jest

    Kod: vb
    Zaloguj się, aby zobaczyć kod


    i tu wklejałem tą funkcję - zamiast "c:\..."

    a po End Sub jest


    Kod: vb
    Zaloguj się, aby zobaczyć kod


    kod jest tak zrobiony żeby zapisywał zawartość arkusza bez "" - ciapek z przodu i z tyłu każdego wiersza. No i to wychodzi. tylko właśnie gdzie podstawić tą funkcję
    wyboru zapisu


    a cały kod wygląda tak

    Kod: vb
    Zaloguj się, aby zobaczyć kod


    Dodano po 3 [minuty]:

    a może znasz inną metodę zapisu arkusza do pliku TXT tak by przy zapisie nie było "" "ciapek" z przodu i z tyłu każdego wiersza w pliku *.txt

    0
  • Pomocny post
    #10 05 Gru 2014 12:42
    PRL
    Poziom 33  

    Cytat:
    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,

    Kod: vb
    Zaloguj się, aby zobaczyć kod


    zapisuje bez cudzysłowów.

    0
  • #11 08 Gru 2014 09:09
    lukaszwat
    Poziom 9  

    Dziękuje Ci bardzo
    faktycznie zapisuje bez ciapek,
    jedynie jest z ciapkami jak jest ";" to wtedy wychodzi z ciapkami

    A mógłbyś polecić jakąś książkę, z której można by było pouczyć się programowania w VBA
    jeszcze raz dziękuje

    0
  • Pomocny post
    #12 08 Gru 2014 09:17
    PRL
    Poziom 33  

    Nie znam książek, ale masz do dyspozycji internet.;)

    Link

    Niestety sam musisz przefiltrować śmieci...

    0
  • #13 09 Gru 2014 08:01
    lukaszwat
    Poziom 9  

    Dzięki wielkie za pomoc, jesteś wielki :)

    0