XML importeren

Status
Niet open voor verdere reacties.
F

frankie59

Gebruiker
Lid geworden
25 sep 2008
Berichten
154
Goedemorgen.

Ik heb een probleem met het samenstellen van prijzen van mijn dealers.
Beide dealers hebben een xml bestand.
Ik maak nu een importbestand via nieuwe gegevensbron en deze sla ik dan op.
Vervolgens ga ik via opgeslagen importbewerkingen de betreffende file importeren.
Access maakt daarvan een tBL Produkt.
Bij de volgende importhandeling maakt hij opnieuw product en dan komen alle bestanden bij elkaar.

Ik heb in code een exportbestand, zie hieronder:
Application.ExportXML acExportTable, "TBL_copaco_artikelen", "K:\V-LITE Prijzenprograma\Prijzenprogramma\Prijslijsten klaar\Exportlijsten\copaco_artikelen.xml"

Ik zou zoiets willen hebben voor de importbestanden.
Wie weet er raad?

met vriendelijke groet,

Frank Schuurmans.
 
Uiteraard kun je een importantie automatiseren. Ik zou dat via VBA doen.
 
Hallo XPS351,

Bedankt voor de tip.
Het werkt als een zonnetje.
De code is:
Private Sub Knop51_Click()

Application.ImportXML _
DataSource:="K:\V-LITE Prijzenprograma\Prijzenprogramma\Gistron OEM\Gistron.xml", _
ImportOptions:=acStructureAndData
End Sub

Hier ben ik al flink mee geholpen.
Zou het mogelijk zijn om een naam aan de import mee te geven?

Hij maakt er nu Produkt van en de volgende Product 1 etc.

Heb je nog zo'n wonderlijk ideetje?:):)


Groeten,

Frank
 
De opmaak van import tabellen is meestal niet geweldig, dus ik gebruik ze als tijdelijk medium. Ik zet ze daarna in een vaste tabel, met de juiste opmaak en verwijder dan de tijdelijke import tabel.
 
De naam van de geïmporteerde tabel kan je hier niet beïnvloeden. Die wordt bepaald door de inhoud van het xml-bestand. Zoals ik het begrijp is de aangemaakte tabel een tussenproduct. Die zou je na gebruik kunnen weggooien. Bij de volgende import krijgt de tabel weer de naam Product.
Ook als mijn aanname niet klopt zijn er oplossingen denkbaar door bijvoorbeeld de geïmporteerde tabel te hernoemen.
 
Laatst bewerkt:
En nou heb je twee keer hetzelfde antwoord. @xps: je gaat toch hopelijk niet voortaan al mijn antwoorden herhalen?
 
Dank je wel voor de antwoorden.

Ik heb het opgelost door eerst de tabel te laten verwijdren en daarna weer toe te voegen.
Dan blijft de naam steeds hetzelfde.
Code:
Private Sub Knop45_Click()
'voer macro uit om test te verwijdren
ssql = "DELETE ExportfileIcecatPIF.* FROM ExportfileIcecatPIF;"
DoCmd.RunSQL (ssql)
'voer macro uit om TBL_Export_IceCat_PIF te maken

DoCmd.TransferText acImportDelim, "PIF importspecificatie", "ExportfileIcecatPIF", "K:\V-LITE Prijzenprograma\Prijzenprogramma\Icecat\IceCat export\pif.csv", True, , 1252



End Sub
---------------------------------------
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan