[es] - Path get folder u vba word

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
79.101.120.*

+2 Profil

^{02.03.2021. u 14:29 - pre 38 meseci}

kako u

path = "C:\Users\Korisnik\Downloads\RAD VBA\"

pozvati

Function GetFolder(strPath As String) As String
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
.Title = "Select a Folder"
.AllowMultiSelect = False
.InitialFileName = strPath
If .Show <> -1 Then GoTo NextCode
sItem = .SelectedItems(1)
End With
NextCode:
GetFolder = sItem
Set fldr = Nothing
End Function

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
89.216.49.*

Sajt: www.gowi.rs

+109 Profil

Re: Path get folder u vba word

^{03.03.2021. u 14:09 - pre 38 meseci}

Nije jasno šta dalje treba da radiš sa tim kodom

Pošto je u pitanju funkcija potrebno je da napraviš proceduru (Sub) iz koje je starturješ. Prilikom poziva ove funkcje prosleđuješ argument koji si naveo
Pozvana funkcija će vratiti rezultat - string za izabrani folder sa kojim dalje radiš šta treba.

Code:

Sub Test()
    Dim Path As String
  ' Poziv funkcije sa parametrom
    Path = "C:\Users\Korisnik\Downloads\RAD VBA\"
    IzabraniFolder = GetFolder(Path)
   ' Ispis rezultata funkcije
    Debug.Print IzabraniFolder

End Sub

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
82.208.214.*

+2 Profil

Re: Path get folder u vba word

^{04.03.2021. u 07:04 - pre 38 meseci}

Sub testhello()
Dim file
Dim path As String

path = "C:\Users\Korisnik\Downloads\RAD VBA\"

file = Dir(path & "*.doc")
Do While file <> ""
Documents.Open FileName:=path & file

Call SelectBullets
Call DeleteSelection

ActiveDocument.Save
ActiveDocument.Close

file = Dir()
Loop

End Sub
___________________________________________________________________
Sub SelectBullets()
On Error Resume Next
Dim Para As Word.Paragraph
With ActiveDocument
.DeleteAllEditableRanges (-1)
For Each Para In .Paragraphs
If Para.Range.ListFormat.ListType > 0 Then
Para.Range.Editors.Add (-1)
End If
Next
.SelectAllEditableRanges (-1)
.DeleteAllEditableRanges (-1)
End With
End Sub
___________________________________________________________________
Sub DeleteSelection()

Selection.Find.Execute
Selection.Delete

End Sub

a ovo path = "C:\Users\Korisnik\Downloads\RAD VBA\" bih promeno da ide u dijalog boxu da biram putanju, a ne da stalno menjam u vba putanju. To pokusavam ali nikako

Odgovor na temu

bokinet

Član broj: 29844
Poruke: 574

+50 Profil

Re: Path get folder u vba word

^{04.03.2021. u 08:05 - pre 38 meseci}

Umesto

Code:

path = "C:\Users\Korisnik\Downloads\RAD VBA\"

Code:

    path = GetFolder("")

    ' Ako je promenljiva prazan string onda...
    if len(trim(path))=0 then
         msgbox "Niste odabrali putanju."
        exit sub
    end if

    ' Moze da se proveri i da li odabrani direktorijum/putanja koja je dodeljena promenljivoj path stvarno postoji ili ne
    ' Pozeljno koristiti naimenovanje dim sPath as string ... sPath = "" ...

VBA DIR Function – An Easy Explanation with Examples
trumpexcel.com/vba-dir-function/

Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
79.101.120.*

+2 Profil

Re: Path get folder u vba word

^{04.03.2021. u 13:55 - pre 38 meseci}

Probao sve ali nece

Da li sada sve treba da spojim?

Function GetFolder(strPath As String) As String
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
.Title = "Select a Folder"
.AllowMultiSelect = False
.InitialFileName = strPath
If .Show <> -1 Then GoTo NextCode
sItem = .SelectedItems(1)
End With
NextCode:
GetFolder = sItem
Set fldr = Nothing
End Function

Sub Test()
Dim Path As String
' Poziv funkcije sa parametrom
Path = "C:\Users\Korisnik\Downloads\RAD VBA\"
IzabraniFolder = GetFolder(Path)
' Ispis rezultata funkcije
Debug.Print IzabraniFolder

End Sub

path = GetFolder("")

' Ako je promenljiva prazan string onda...
if len(trim(path))=0 then
msgbox "Niste odabrali putanju."
exit sub
end if

' Moze da se proveri i da li odabrani direktorijum/putanja koja je dodeljena promenljivoj path stvarno postoji ili ne
' Pozeljno koristiti naimenovanje dim sPath as string ... sPath = "" ...

Odgovor na temu