Goedemorgen,
Even overnieuw proberen, gisteren Helpmij overbelast :d
Ben bezig om gegevens vanuit een xls bestand over te zetten.
Ben er bijna uit, maar er nog niet helemaal achter wat de mogelijkheden zijn en wat de opties zijn.
Begrijp inmiddels dat er geen VBA gebruikt kan worden en data gescheiden wordt met een komma.
Heb volgende formule gebruikt om gegevens over te zetten, maar de vraag is moet je alles in één keer selecteren of kan je regel per regel invoeren?
3 vb-tjes bijgevoegd en gebruik optie 3.
Al many thanks
Dutch
Even overnieuw proberen, gisteren Helpmij overbelast :d
Ben bezig om gegevens vanuit een xls bestand over te zetten.
Ben er bijna uit, maar er nog niet helemaal achter wat de mogelijkheden zijn en wat de opties zijn.
Begrijp inmiddels dat er geen VBA gebruikt kan worden en data gescheiden wordt met een komma.
Heb volgende formule gebruikt om gegevens over te zetten, maar de vraag is moet je alles in één keer selecteren of kan je regel per regel invoeren?
Code:
Private Sub DoorgaanKeuze3()
Dim WB1 As Workbook, WB2 As Workbook
Application.ScreenUpdating = False
Set WB1 = ActiveWorkbook
Set WB2 = Workbooks.Open(Filename:=ActiveWorkbook.Worksheets("Control").Range("F1") & ActiveWorkbook.Worksheets("Control").Range("F5") & ".xls")
On Error Resume Next
Set WB2 = Workbooks.Open(Filename:=ActiveWorkbook.Worksheets("Control").Range("F1") & ActiveWorkbook.Worksheets("Control").Range("F5") & ".xls") ' Bronbestand
On Error GoTo 0
If WB2 Is Nothing Then
MsgBox ("WB2 = Nothing")
Set WB2 = Workbooks.Open(Filename:=ActiveWorkbook.Worksheets("Control").Range("F1") & ActiveWorkbook.Worksheets("Control").Range("F5") & ".xls")
End If
WB1.Activate
[B]WB2.Sheets("DBase").Range("A3:K31") = WB1.Sheets("DBase").Range("A3:K31").Value[/B]
With WB2
.SaveAs ActiveWorkbook.Worksheets("Control").Range("F1") & ActiveWorkbook.Worksheets("Control").Range("F8") & ".csv"
.Close
End With
Application.ScreenUpdating = True
End Sub
Al many thanks
Dutch