• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: smazání souboru VBA

Zaslal/a george 19.4.2011 9:56

Dobrý den přeji,

prosím o radu. Lze nějakým příkazem VBA smazat soubor, jež není sešitem excel? Jde mi o to, že mám skript na zobrazení souborů které nejdou automaticky převést na data společně se vstupní tabulkou. Po ručním přepsání bych chtěl soubor smazat. Soubory umisťuji v podadresáři INBOX.jsou to soubory různé - tif, jpg, pdf atd. Děkuji moc předem za každou radu.

Zaslat odpověď >

---

Poki(19.4.2011 10:33)#004728

tento kod:Sub smazat()
Dim Cesta As String
Dim Soubor As String
Cesta = "c:\Documents and Settings\JMENO_UZIVATELE\Plocha\smazat\"
'Soubor = "1.xls" 'smaze soubor '1.xls'
'Soubor = "1.xl" 'smaze soubor '1' s priponou .xls nebo .xlsx nebo .xlsm ...atd
'Soubor = "*.*" 'smaze vsechny soubory ve slozce
Kill Cesta + Soubor
End Sub

Jen upozornim, ze prikaz Kill rovnou smaze soubor a nepta se (nelze vratit) - a smazanim se zde nemysli presun do kose (soubor uz je proste navzdy pryc) citovat

George(19.4.2011 12:06)#004730

Děkuji moc. Takhle jednoduše jsem to nezkoušel. Super. Ale asi si ještě udělám vlastní koš. Lidi jsou lidi a je třeba dělat aplikace blbovzdorné. Ještě jednou děkuji.citovat

Poki(19.4.2011 12:38)#004731

Tady je navod, jak poslat soubor do Kose (moc jsem se na to nedival, takze nemuzu rict, ze to plne chapu, ale treb vam to pomuze)
http://vbadud.blogspot.com/2008/08/vba-send-file-to-recycle-bin.htmlcitovat

George(19.4.2011 15:17)#004733

tak to vypadá funkčně, zatím mi to sice havaruje, ale je to asi o syntaxi.
Neporadil by jste mi prosím ještě s tím, kdybych chtěl soubor (bohužel libovolný) před smazáním zkopírovat nebo přenést do jiného podadresáře? Něco jako koš v programu. Myslel jsem si že to nebude problém, ale jak soubor oslovit? File mi bere jako proměnnou...citovat

Poki(20.4.2011 15:48)#004754

co jenom takhle jednoduse?
Sub Copy_One_File()
FileCopy "C:\Users\Ron\SourceFolder\Test.xls", "C:\Users\Ron\DestFolder\Test.xls"
End Sub
Sub Move_Rename_One_File()
Name "C:\Users\Ron\SourceFolder\Test.xls" As "C:\Users\Ron\DestFolder\TestNew.xls"
End Subcitovat

George(20.4.2011 22:48)#004765

vypadá to skvěle a jednoduše. Hraju si s tím už chvíli a stále stejný problém: chyba 53 file not found.
Prošel jsem to několikrát, soubor tam je, typ souhlasí. V čem může být chyba? děkuji moc.citovat

Poki(21.4.2011 9:39)#004770

Nevim, co je spatne, doporucil bych jeste prozkoumat moznosti Objektu FileSystemObject, ktery umoznuje vytvareni adresaru, kopirovani, presunovani a dalsi akce spojene se spravno souboru a slozek.

Google najde spoust informace k tomuto objektu, ja prikladam jen priklad, jak kopirovat soubor.
Sub Copy_One_File()

Dim FSO As Object
Dim CestaZ, CestaDO As String
Dim FileDO, sZdroj As String

Set FSO = CreateObject("Scripting.FileSystemObject")

'----Nastavit hodnoty cest a souboru
CestaZ = "C:\Documents and Settings\TEST1\"
CestaDO = "C:\Documents and Settings\TEST2\"
sZdroj = "soubor.xlsx"
'--------------------------------------------

Set File = FSO.getfile(CestaZ & sZdroj)
FileDO = sZdroj

'--kopirovani souboru
File.Copy CestaDO & FileDO
End Subcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse