Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Path get folder u vba word

[es] :: Office :: Word :: Path get folder u vba word

[ Pregleda: 152 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 508
79.101.120.*



+2 Profil

icon Path get folder u vba word02.03.2021. u 14:29 - pre 4 meseca
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: 2193
89.216.49.*

Sajt: www.gowi.rs


+96 Profil

icon Re: Path get folder u vba word03.03.2021. u 14:09 - pre 4 meseca
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: 508
82.208.214.*



+2 Profil

icon Re: Path get folder u vba word04.03.2021. u 07:04 - pre 4 meseca
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: 497



+42 Profil

icon Re: Path get folder u vba word04.03.2021. u 08:05 - pre 4 meseca
Umesto

Code:


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



u

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: 508
79.101.120.*



+2 Profil

icon Re: Path get folder u vba word04.03.2021. u 13:55 - pre 4 meseca
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

[es] :: Office :: Word :: Path get folder u vba word

[ Pregleda: 152 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.