MS Excel

dobry vecer,
potrebuji po uzivateli aby otevrel soubor typu *.csv. nastavil jsem promenou Set promena = Application.FileDialog(msoFileDialogOpen).Filters.Add("CSV Files Only", "*.csv"). ale po spusteni se makra se nic nedeje. V cem je problem?

Zaslat odpověď >

Pavlus(1.5.2015 21:59)#024736

Co chceš do té proměnné uložit? Jméno souboru?
P.citovat

elninoslov(2.5.2015 7:23)#024737

Sub OtvorCSV()
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "CSV Files Only", "*.csv"
If .Show = True Then .Execute Else Exit Sub
End With
End Subcitovat

elninoslov(2.5.2015 8:31)#024738

Úprava, keďže nastáva problém s tým, že každá aplikácia môže mať iba jeden msoFileDialogOpen, tak po zatvorení tohto upraveného dialógu, ostáva stále filter CSV. Obnoví sa to až po reštarte aplikácie. Vyriešil som to tak, že som najskôr odložil filtre do poľa, vykonal, a následne z poľa pôvodné filtre obnovil. Je to potrebné preto, ak by sa niekde v aplikácii použil msoFileDialogOpen, kde je potrebný iný/žiadny filter.
Sub OtvorCSV() 'Otvor súbor CSV, obnv pôvodné filtre
Dim dlg As FileDialog, f As Integer, pfs() As String
Set dlg = Application.FileDialog(msoFileDialogOpen)
With dlg
With .Filters
If .Count > 0 Then 'Ak sú pôvodné filtre - uchovaj
ReDim pfs(1 To .Count, 1 To 2)
For f = 1 To .Count
pfs(f, 1) = .Item(f).Description
pfs(f, 2) = .Item(f).Extensions
Next f
End If
End With
.Filters.Clear 'Vymaž filtre
.Filters.Add "CSV Files Only", "*.csv" 'Nastav CSV filter
If .Show = True Then .Execute
Koniec:
With .Filters
.Clear 'Vymaž CSV filter
If Not Not pfs Then 'Ak boli pôvodné filtre - obnov
For f = 1 To UBound(pfs, 1)
.Add pfs(f, 1), pfs(f, 2)
Next f
End If
End With
End With
Set dlg = Nothing
End Subcitovat

jirka100(2.5.2015 10:23)#024740

Potřebuji to co píše Pavlus, do proměnné přiřadit jméno csv souboru.citovat

elninoslov(2.5.2015 11:47)#024741

No tak si namiesto
.Execute
daj
NazovSuboru = .SelectedItems(1)citovat

eLCHa(4.5.2015 6:48)#024759

sFileName = Application.GetOpenFilename(FileFilter:="CSV Files (*.csv), *.csv", MultiSelect:=False)
Pokud chcete konkrétní adresář, tak např.: Const MY_DIR As String = "X:\Dir\Dir"
ChDrive MY_DIR: ChDir MY_DIR

Dim sFileName As String
sFileName = Application.GetOpenFilename(FileFilter:="CSV Files (*.csv), *.csv", MultiSelect:=False)
Pokud chcete aplikaci nastavit do původního stavu, tak např.: Const MY_DIR As String = "X:\Dir\Dir"
Dim sCurDir
sCurDir = CurDir
ChDrive MY_DIR: ChDir MY_DIR

Dim sFileName As String
sFileName = Application.GetOpenFilename(FileFilter:="CSV Files (*.csv), *.csv", MultiSelect:=False)

ChDrive sCurDir: ChDir sCurDircitovat

Téma: FileDialog(msoFileDialogOpen)

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje