Shrani kot, in zapis v zbir podatkov

Pomoč pri delu z MS Excelom
Odgovori
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Shrani kot, in zapis v zbir podatkov

Odgovor Napisal/-a BJ »

Lep pozdrav!
Naredil sem predlogo, v kateri se nahaja tudi ukazni gumb "shrani kot", kateri mi shrani zvezek v določeni Dir. s poimenovanjem po določeni celici.Ko kliknem ta gumb, se zvezek sicer shrani, vendar brez vprašanja za prenos podatkov v zbirko.

Koda: Izberi vse

Private Sub CommandButton1_Click()
ActiveWorkbook.Save


Dim myfilename As String
Dim resp As Long
myfilename = "C:\Documents and Settings\Administrator\My Documents\TELA s.p\Fakture" & "\" & Range("C10") & Range("D10") & ".05" & ".xls"
Application.DisplayAlerts = True
resp = vbYes
If Dir(myfilename) <> "" Then
  resp = MsgBox(Prompt:="Račun  s to številko že obstaja! Ali ga prepišem ?", Buttons:=vbYesNo)
End If
If resp = vbYes Then
  ActiveWorkbook.SaveCopyAs Filename:= _
        "C:\Documents and Settings\Administrator\My Documents\TELA s.p\Fakture" & "\" & Range("C10") & Range("D10") & ".05" & ".xls"
Else
  MsgBox "Račun ni shranjen"
End If

End Sub
admin
Site Admin
Prispevkov: 3692
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Shrani kot, in zapis v zbir podatkov

Odgovor Napisal/-a admin »

Pozdravljeni,
BJ napisal/-a:Lep pozdrav!
...vendar brez vprašanja za prenos podatkov v zbirko....
Kakšnega vprašanja? O kakšni zbirki govorite?
lp,
Matjaž Prtenjak
Administrator
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Odgovor Napisal/-a BJ »

Se opravičujem! Zbir podatkov narejen s čarovnikom predlog
LP
admin
Site Admin
Prispevkov: 3692
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Pozdravljeni,

Še vedno ne razumem, kaj točno želite. Opišite kaj ste naredili oz. kaj naj bi podloga počela...

Tudi "čarovnika predlog" ne poznam. Kaj je to?
lp,
Matjaž Prtenjak
Administrator
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Odgovor Napisal/-a BJ »

Pozdravljeni še enkrat!
S pomočjo "čarovnika predlog s sledenjem podatkov" sem izdelal predlogo (npr. Račun.xlt). Pri odpiranju tega zvezka se mi odpre kot "Račun1.xls". Ko vanj vnesem podatke, in kliknem "Shrani" me vpraša kaj želim: "Ustvariti nov zapis", "Nadaljevati brez posodabljanja". Če je zapis že narejen je dodano vprašanje "Posodobiti obstoječi zapis" Izbrane celice se prekopirajo v podatkovno zbirko to je drug del. zvezek, prav tako ustvarjen s čarovnikom. (Če se ne motim je to dodatek WZTEMPLT.xla)
admin
Site Admin
Prispevkov: 3692
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Aha,

tega pa nisem poznal. Problem je tudi, da Excel2002 in višji tega dodatka nimajo več priloženega. Lahko se sname iz interneta, kar sem tudi storil, da sem si ga ogledal. V njegovo uporabnost se ne bom spuščal 8), je pa zanimiv...

Vaš problem pa je v tem, ker VBA ne sproži procedure, ki v vzorcu (Template) izvede proceduro za dodajanje zapisa. To proceduro morate poklicati preko VBA kode, kar z drugimi besedami pomeni, da za .Save oz .SaveAs metodo (ali pa na koncu makra) izvedete še:

Koda: Izberi vse

  Application.Run "Commit"
Sem preizkusil na primeru in mi deluje :)! Je pa res, da sem jaz podlogo snel iz interneta in je angleška vi pa imate očitno slovensko, lahko bi se torej zgodilo, v kar pa močno dvomim (!), da bi se ta procedura v SLO verziji imenovala drugače, npr. Potrdi
lp,
Matjaž Prtenjak
Administrator
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Odgovor Napisal/-a BJ »

Ja Matjaž zadeva deluje, kot sem si jo zamislil
Hvala!!!
Zadnjič spremenil BJ, dne Pe Nov 04, 2005 3:20 pm, skupaj popravljeno 1 krat.
admin
Site Admin
Prispevkov: 3692
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

:shock:
BJ napisal/-a:...Matjažek...
:? :? A sva midva skupaj krave pasla? :? :?
Zadnjič spremenil admin, dne Pe Nov 04, 2005 3:11 pm, skupaj popravljeno 1 krat.
lp,
Matjaž Prtenjak
Administrator
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Odgovor Napisal/-a BJ »

Sorry, ni bilo mišljeno po pastirsko.
LP BJ
Odgovori