Excel/VBA lijkt kopieergedrag windows/excel te wijzigen

[Bastien]

Een VBA macro in Excel 2010 door iemand in het verre verleden gemaakt laat waarschijnlijk raar gedrag zien bij gebruik (ook in 2019 reproduceerbaar). Als we deze openen en gebruiken lijkt er wat in Excel of Windows te wijzigen waardoor knippen en plakken niet meer goed functioneert. Onderstaand stukje lijkt de boosdoener. Hier wordt een Excel bestand geïmporteerd in het actieve workbook waarbij wat instellingen gebruikt worden. Het lijkt mij dat dit specifiek voor deze actie is en niet iets wijzigt aan standaard instellingen.

We knippen en plakken uit een ander softwareprogramma een regel met data (is een softwareprogramma gekoppeld een lab analyseapparaat). Normaal is ieder veld gescheiden middels een tab (automatisch, software lijkt op een rekenblad) maar na waarschijnlijk onderstaand onderdeel van de macro wordt alles aan elkaar geplakt en is er geen scheiding meer (als in geen tab meer). Zodra we alles van Excel inclusief die met de macro afsluiten werkt het weer goed.

Als er geplakt wordt in kladblok of zo, is ook alles aan elkaar geplakt. Het lijkt dus niet perse Excel gebonden wat plakken betreft maar het lijkt wel alsof deze het rare kopieergedrag veroorzaakt bij gebruik van de macro. Door stapsgewijs door de macro te gaan kwam het gedrag naar voren na onderstaande.

code:

Workbooks.OpenText Filename:=Scanlijst, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
        , Comma:=False, Space:=False, Other:=False, OtherChar:="|", FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1)), DecimalSeparator:=".", TrailingMinusNumbers:=True

Heeft iemand een idee hoe dit op te lossen is, als bovenstaande dat kan veroorzaken? Heb wel wat kennis van VBA maar ik zie niet in waarom bovenstaande dit triggert. Of ik zit er helemaal naast en veroorzaakt een ander stuk code het... maar het zijn > 1500 regels dus dat ga ik maar niet plakken. De grote wens is dat beide workbooks tegelijk geopend zijn en functioneren.

[Smulderke]

Zit er in de code niet iets van application.cutcopymode = false

[Bastien]

Smulderke schreef op maandag 27 mei 2024 @ 23:09:
Zit er in de code niet iets van application.cutcopymode = false

Nee, dat staat er niet in helaas.