EmirSuvalic 22.07.2011 16:18
Predmet:Pomoć oko vba koda!

Dim adTables As AdditionalData
Set adTables = Application.CreateAdditionalData
adTables.Add "Parametar"

Application.ExportXML _
ObjectType:=acExportTable, _
DataSource:="Zahtjev", _
DataTarget:="c:\POS\XML\stampatinefiskalnidokument.xml", _
AdditionalData:=adTables

Application.TransformXML DataSource:="c:\POS\XML\stampatinefiskalnidokument.xml",
TransformSource:="c:\POS\XML\stampatinefiskalnidokument.xsd", _
OutputTarget:="C:\Tring\xml\stampatinefiskalnidokument.xml"

Izbacuje syntax error, pomoć hitno potrebna

zxz 22.07.2011 19:37
Predmet:Re: Pomoć oko vba koda!

PreuzmiIzvorni kôd (Visual Basic):
  1. Dim adTables As AdditionalData
  2.  
  3.  Set adTables = Application.CreateAdditionalData
  4.  adTables.Add ("Parametar")
  5.  
  6. Application.ExportXML _
  7.  ObjectType:=acExportTable, _
  8.  DataSource:="Zahtjev", _
  9.  DataTarget:="c:\POS\XML\stampatinefiskalnidokument.xml", _
  10.  AdditionalData:=adTables
  11.  
  12.  
  13.  Application.TransformXML DataSource:="c:\POS\XML\stampatinefiskalnidokument.xml", _
  14.  TransformSource:="c:\POS\XML\stampatinefiskalnidokument.xsd", _
  15.  OutputTarget:="C:\Tring\xml\stampatinefiskalnidokument.xml"

EmirSuvalic 22.07.2011 19:46
Predmet:Re: Pomoć oko vba koda!

Hvala puno...