stefano
Gebruiker
- Lid geworden
- 22 mei 2004
- Berichten
- 865
Beste,
SAP is een software-programma dat data exporteert naar een xls-bestand. Wanneer ik dit bestand wil openen dan verschijnt de vraag 'Wizard tekst importeren'. Ik klik hier op voltooien.
In een tweede bestand haal ik via formules deze gegevens op om ze op die manier in geordende kolommen te plaatsen.
=> bestand tov_1.xls openen, daarna tov_2.xls openen. Alle gegevens worden netjes overgenomen, prima, in orde.
MAAR ... Wanneer ik ditzelfde doe via een macro, dan lijken alle cijfers plots met een factor 1000 groter. Hoe kan ik dit vermijden ?
de macro die het eerste bestand blijkbaar foutief converteert ( of niet ) :
Sub tarwevandaag_sap()
Dim Myname As String
Application.DisplayAlerts = False
Workbooks.Open Filename:="e:\data\sap\TOV_1.xls" Workbooks.Open Filename:="e:\data\sap\TOV_2.xls"
Workbooks("TOV_2.xls").Activate
Cells.Copy
Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("A1").SelectBekijk bijlage TOV_1.XLSBekijk bijlage TOV_1.XLSBekijk bijlage TOV_2.xls
Workbooks("TOV_2.xls").SaveAs "e:\data\sap\tarweontvangsten vandaag - deinze en merksem.xls"
Workbooks("TOV_1.xls").Close False
Application.DisplayAlerts = True
End Sub
SAP is een software-programma dat data exporteert naar een xls-bestand. Wanneer ik dit bestand wil openen dan verschijnt de vraag 'Wizard tekst importeren'. Ik klik hier op voltooien.
In een tweede bestand haal ik via formules deze gegevens op om ze op die manier in geordende kolommen te plaatsen.
=> bestand tov_1.xls openen, daarna tov_2.xls openen. Alle gegevens worden netjes overgenomen, prima, in orde.
MAAR ... Wanneer ik ditzelfde doe via een macro, dan lijken alle cijfers plots met een factor 1000 groter. Hoe kan ik dit vermijden ?
de macro die het eerste bestand blijkbaar foutief converteert ( of niet ) :
Sub tarwevandaag_sap()
Dim Myname As String
Application.DisplayAlerts = False
Workbooks.Open Filename:="e:\data\sap\TOV_1.xls" Workbooks.Open Filename:="e:\data\sap\TOV_2.xls"
Workbooks("TOV_2.xls").Activate
Cells.Copy
Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("A1").SelectBekijk bijlage TOV_1.XLSBekijk bijlage TOV_1.XLSBekijk bijlage TOV_2.xls
Workbooks("TOV_2.xls").SaveAs "e:\data\sap\tarweontvangsten vandaag - deinze en merksem.xls"
Workbooks("TOV_1.xls").Close False
Application.DisplayAlerts = True
End Sub
