Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Prosta (?) procedurka
anonim




Typ: Nie zarejestrowany
Prosta (?) procedurka

Witam
Mam mala prosbe :
Nie znam kompletnie VBA, ale potrzebuje mala procedurke, ktora robila by nastepujaca rzecz:
- Otworz arkusz nr x
- Skopiuj do bufora wartosc komorki np. G14
- Utworz nowy plik tekstowy (np. plik.txt)
- wrzuc z bufora do pliku dane z komorki G14
- Zapisz plik
- wyjdz
i w petli tak z 20 razy, za kazdym razem inna wartosc komorki (kolejna -
np. H14) i do innego pliku, np plik1.txt.
Czy ktos moglby mi pomoc i cos takiego napisac?
Prosibym o wyslanie tego na maila
Z gory dziekuje i pozdrawiam.

01-08-2002 20:55
  
long




Typ: neutral
Postów: 1
Zarejestrowany: Aug 2002

Witam ponownie
Nie rejestrowalem sie wczesniej, poniewaz nie jestem regularnym uczestnikiem tego forum. Ale jezeli jest to wymagane, to zrobilem to teraz.
Pozdrowionka.
P.S.
Z niecierpliwoscia czekam na procedurke ;-)

05-08-2002 00:11
Pokaż profil long  Wyślij email do long   
xeng



Typ: neutral
Postów: 102
Zarejestrowany: May 2002

http://www.vbamania.cad.pl/pliki/exportTXT.zip


_____________________________________________
Nic nie umiem i nic nie wiem.Jestem tuman bity w ciemie.


05-08-2002 10:18
Pokaż profil xeng  Wyślij email do xeng   Odwiedź stronę xeng  
anonim




Typ: Nie zarejestrowany
oto i odpowiedz

Oto odpowiedź:


Sub KopiujKomore()
Dim i As Long, j As Long
Dim komorki As Variant
Dim numFile As Long

komorki = Array("H1", "G5", "C12"
For i = LBound(komorki) To UBound(komorki)
    numFile = FreeFile()
    Open "C:\plik" & i + 1 & ".txt" For Output As #numFile
        Print #numFile, ThisWorkbook.Worksheets("Arkusz1".Range(komorki(i))
    Close #numFile
Next i

End Sub


Powodzenia
Maciej Łoś
Więcej na: http://losmac.republika.pl
zobacz też: http://helion.pl/ksiazki/ofvba.htm

07-05-2003 19:18
  
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1