met VBA Excel data naar een formatted TXT bestand

[DarkValley]

Beste Snb,

Ja klopt. Dit zal onder het kopje 'Out of the box' denken vallen.

Ik weet dat deze thread opgelost is en gesloten is.
Maar ik heb toch nog een kleine vraag. Kun je ook, via jouw snelle VBA aanpak, door het lezen van de instellingen van de template het TXT bestand terug opbouwen naar Excel?

 

[snb]

Zó:

Sub M_snb()
  sn = Sheet1.Cells(1).CurrentRegion
   
  ReDim sp(UBound(sn) - 2)
  For j = 0 To UBound(sp)
    sp(j) = Array(sn(j + 2, 3), 2)
  Next

  Workbooks.OpenText "G:\OF\voorbeeld.txt", , , , , , , , , , , , sp
End Sub

 

[DarkValley]

Ja idd maar als de template andere POS en Lengtes bevat en een ander TXT bestand gebruikt werkt het niet meer

Hier ff als voorbeeld txt bestand 400

Bekijk bijlage 372846

 

[snb]

Natuurlijk werkt het.
Jouw bijlage is niet te openen voor anderen.

 

[DarkValley]

Ik snap niet wat jij bedoeld?

 

[DarkValley]

Als ik de template aanpas naar:

Name Old name Pos Length Type Description
ArtNo 0 22 U
BrandNo 22 4 N
TableNo 26 3 N
GenArtNo 29 5 N
LnkTargetType 34 3 N
LnkTargetNo 37 9 N
SeqNo 46 9 N
DeleteFlag 55 1 N

en ik de bron TXT file aanpas naar bovenstaande. Doet het systeem alles in kolom A zetten.

Terwijl dit verdeeld zou moeten worden vlgns bovenstaande template instellingen

PF1600 8783400012560020000000570000000010
PF2086 8783400012560020000000700000000010
PF2194 8783400012560020000000700000000010
PFS2086 8783400012560020000000700000000010
PFS2194 8783400012560020000000700000000010
PF2086 8783400012560020000000710000000010
PF2194 8783400012560020000000710000000010
PFS2086 8783400012560020000000710000000010
PFS2194 8783400012560020000000710000000010
PF2086 8783400012560020000000760000000010
PF2194 8783400012560020000000760000000010

 

[snb]

Het lukte je eerder wel goede bijlagen te plaatsen.

In VBA kun je met F8 de code stapsgewijs doorlopen en controleren.
Doe dat eerst voordat je iets beweert.

 

[DarkValley]

Beste Snb,

Had al met F8 gekeken en kon niks geks vinden idd.

Als ik de nwe template gebruik op het 231.txt bestand werkt het idd prima. Maar de 400.txt is een bestand gemaakt uit het extern pakket. Toch vreemd allemaal. Het is toch allemaal gewoon TXT ?????


Bekijk bijlage Voorbeeld bestand 400.xlsm

Bekijk bijlage 400.txt

Ik zie ook niks vreemds aan het 400.TXT bestand. Jij een idee?

 

[snb]

Gebruik:

Sub M_snb()
  sn = Blad1.Cells(1).CurrentRegion
   
  ReDim sp(UBound(sn) - 2)
  For j = 0 To UBound(sp)
    sp(j) = Array(sn(j + 2, 3), 2)
  Next

  Workbooks.OpenText "G:\OF\400.txt", , , 2, , , , , , , , , sp
End Sub

 

[DarkValley]

Werkt nu wel. Thnx

Het komt dan omdat de datatype van dit bestand anders is als die in 231, is dit juist?

 

[snb]

Nee, niet anders dan in.... Zoek in de hulpfunktie van de VBEditor op Opentext

 

[DarkValley]

Oke gevonden. Bedankt voor de heads-up en voor de uiteindelijke oplossing natuurlijk!:thumb: