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.

VBA EXCEL - Wybor, zmiana nazwy i kopiowanie.

Zaho 21 Sie 2016 13:27 1476 6
  • #1 21 Sie 2016 13:27
    Zaho
    Poziom 2  

    Witam
    Pracuję nad pewnym excelem dla mojej firmy i potrzebuję odrobiny pomocy.
    Mianowicie zrobiłem formularz który uzupełnia tabelę, potrzebuję dodać możliwość wyboru pliku, zmiany jego nazwy na odgórnie ustaloną oraz skopiowanie tego pliku do innej lokalizacji(jeżeli to możliwe na dysk wirualny onedrive).
    Co udało mi się zrobić: do przycisku dopisałem Module1 który otwiera okno dialogowe, w którym wybieram plik. Jak teraz mienić nazwę i przekopiować plik do innej lokalizacji? Z góry dziękuję za pomoc oraz jakiekolwiek wskazówki.

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    0 6
  • #2 21 Sie 2016 13:38
    JRV
    Specjalista - VBA, Excel

    Np. bez otwarania pliku
    FileCopy "C:\file1.txt", "E:\kopia\file2.txt"

    0
  • #3 21 Sie 2016 13:42
    Zaho
    Poziom 2  

    Tak tylko że plik za każdym razem będzie inny a to rozwiązanie wymaga stałych ścieżek lokalizacji. Zależy mi na tym żeby można było wybrać plik z okna dialogowego.

    0
  • #4 21 Sie 2016 13:47
    JRV
    Specjalista - VBA, Excel

    To tylko przyklad, jak mienić nazwę i przekopiować plik do innej lokalizacji.
    Jako parameter 1 - plik z okna dialogowego, w którym wybierasz plik.

    0
  • #5 21 Sie 2016 19:15
    Zaho
    Poziom 2  

    Okej a więc udało mi się uzyskać ścieżkę ale nadal jest coś nie tak + nie wiem jak zmienić nazwę pliku na nową.

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    W textbox1 pokazuje ścieżkę prawidłowo co robię nie tak

    0
  • #6 21 Sie 2016 19:53
    JRV
    Specjalista - VBA, Excel

    Nazwa dysku ma byc z ":" "C:\users\mateusz\desktop\nowa nazwa" a FileCopy uzywame bez nawiasy

    0
  • #7 29 Sie 2016 11:20
    Prot
    Poziom 29  

    Zaho napisał:
    Z góry dziękuję za pomoc oraz jakiekolwiek wskazówki.
    Kod: vb
    Zaloguj się, aby zobaczyć kod



    Proponuje wykorzystanie innego formularza systemowego msoFileDialogSaveAs

    W podobnych sytuacjach korzystam z takiego kodu opartego na tym oknie dialogowym SaveAs :D

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    0