www.elektronik.si Seznam forumov www.elektronik.si
Forum o elektrotehniki in računalništvu
 
 PomočPomoč  IščiIšči  Seznam članovSeznam članov  SkupineSkupine  StatisticsStatistika  AlbumAlbum  DatotekeFilemanager DokumentacijaDocDB LinksPovezave   Registriraj seRegistriraj se 
  PravilaPravila  LinksBolha  PriponkePriponke  KoledarKoledar  ZapiskiZapiski Tvoj profilTvoj profil Prijava za pregled zasebnih sporočilPrijava za pregled zasebnih sporočil PrijavaPrijava 

Makro v excelu

 
Objavi novo temo   Odgovori na to temo   Printer-friendly version    www.elektronik.si Seznam forumov -> MS Windows razprave
Poglej prejšnjo temo :: Poglej naslednjo temo  
Avtor Sporočilo
rimci
Član
Član



Pridružen-a: Sre 30 Apr 2003 19:01
Prispevkov: 461
Aktiv.: 1.94
Kraj: Prekmurje
PrispevekObjavljeno: Ned Feb 25, 2007 4:17 pm    Naslov sporočila:  Makro v excelu Odgovori s citatom
Pozdravljeni

V excelu imam makro, ki mi shrani aktivni list iz aktivnega zvezka v tekstovni fail z imenom akrivnega lista in končnico TXT. Na kak nacin bi shranil ta list z imenom, ki je vpisano v celici A1. Naprimer če je v celici A1 vpisano "Sonce", bi se datoteka imenovala Sonce.TXT.

Sub a()

ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\" & ActiveSheet.Name & ".TXT", FileFormat:= _
xlTextPrinter, CreateBackup:=False

End Sub

Že vnaprej se vam zahvaljujem za pomoč

lp
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
Ch4N93
Član
Član



Pridružen-a: Tor 21 Jun 2005 0:21
Prispevkov: 58
Aktiv.: 0.24
Kraj: Ptuj
PrispevekObjavljeno: Ned Feb 25, 2007 6:35 pm    Naslov sporočila:   Odgovori s citatom
Koda:
Sub a()

ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\" & Cells(1, 1) & ".TXT", FileFormat:= _
xlTextPrinter, CreateBackup:=False

End Sub


Pri tem je Cells v obliki: Cells(indeks_vrstice, indeks_stolpca)
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo MSN Messenger - naslov
rimci
Član
Član



Pridružen-a: Sre 30 Apr 2003 19:01
Prispevkov: 461
Aktiv.: 1.94
Kraj: Prekmurje
PrispevekObjavljeno: Pon Feb 26, 2007 10:03 am    Naslov sporočila:   Odgovori s citatom
Najlepša hvala. Še eno vprašanje. Obstaja kakšen ukaz ki ti po izvršenem makroju zapre aktivni zvezek ne da bi shranil spremembe. Namreč ko se makro izvede in hočem ročno zapret zvezek me vpraša ali hočem shranit spremembe. Jaz tega nočem. Hočem enostavno da zapre dokument in ne shrani spremembe

lp
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
Ch4N93
Član
Član



Pridružen-a: Tor 21 Jun 2005 0:21
Prispevkov: 58
Aktiv.: 0.24
Kraj: Ptuj
PrispevekObjavljeno: Pon Feb 26, 2007 2:52 pm    Naslov sporočila:   Odgovori s citatom
Koda:
Sub a()

ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\" & Range("A1") & ".TXT", FileFormat:= _
xlTextPrinter, CreateBackup:=False
ActiveWorkbook.Close (SaveChanges = False)

End Sub


Tukaj sem tudi celico vnesel z drugo funkcijo (range), saj je tako malo bolj razvidno za katero celico gre. Pri ActiveWorkbook.Close lahko daš tudi, da shrani spremembe, vendar se zatakne pri vnosu imena datoteke. Verjetno lahko tako shraniš le v obliki "xls".
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo MSN Messenger - naslov
Pokaži sporočila:   
Objavi novo temo   Odgovori na to temo   Printer-friendly version    www.elektronik.si Seznam forumov -> MS Windows razprave Časovni pas GMT + 2 uri, srednjeevropski - poletni čas
Stran 1 od 1

 
Pojdi na:  
Ne, ne moreš dodajati novih tem v tem forumu
Ne, ne moreš odgovarjati na teme v tem forumu
Ne, ne moreš urejati svojih prispevkov v tem forumu
Ne, ne moreš brisati svojih prispevkov v tem forumu
Ne ne moreš glasovati v anketi v tem forumu
Ne, ne moreš pripeti datotek v tem forumu
Ne, ne moreš povleči datotek v tem forumu

Uptime: 8 dni


Powered by phpBB © 2001, 2005 phpBB Group