mercredi 18 mars 2015
Gegevens importeren vanuit een ander excel werkboek
Posted on 05:33 by Unknown
Beste,
Ik ben druk bezig met een projectje om vanuit een bron document, andere documenten(lees andere workbooks) van gegevens te voorzien en daarmee door te kunnen rekenen. (Bijvoorbeeld vanuit een excel bestand genaamd "Prijslijst" gegevens de exporteren naar andere excel bestanden "Prijscalculatie" & "Omzet begroting" etc.. Nu ben ik op het spoor gekomen dat dit middels VBA wellicht mogelijk is.
Nu ben ik de volgende codering op het spoor gekomen, echter weet ik niet hoe ik deze moet toepassen op de "file paths"
Mijn vraag heeft dus betrekking op:
1. Hoe vul ik de "file path" naar de workbook in, en daarbij ook toegewezen op een worksheet.
2. Hoe vul ik dezelfde gegevens in, dan echter het ontvangende worksheet. (omdat ik dit in de target workbook invul, neem ik aan dat ik hiervoor de filepath niet voor hoef in te vullen)
3. Hoe bepaal ik de range (ik wil namelijk meerdere kolommen en rijen importeren)
4. Hoe zorg ik ervoor dat deze, middels het bladeren tussen worksheets de pagina word geupdate.
Ik hoop dat jullie mij verder kunnen helpen, ik kom er namelijk niet meer uit met mijn beperkte kennis van excel.
Sub Import()
Dim customerBook As Workbook
Dim filter As String
Dim caption As String
Dim customerFilename As String
Dim customerWorkbook As Workbook
Dim targetWorkbook As Workbook
Dim LastRow As Long
Set targetWorkbook = Application.ActiveWorkbook
Application.ScreenUpdating = False
filter = "Text files (*.xls),*.xls"
caption = "Please Select an input file "
customerFilename = Application.GetOpenFilename(filter, , caption)
On Error GoTo Errhandler
Set customerWorkbook = Application.Workbooks.Open(customerFilename)
Dim targetSheet As Worksheet
Set targetSheet = targetWorkbook.Worksheets("OTP")
Dim sourceSheet As Worksheet
Set sourceSheet = customerWorkbook.Worksheets("Checklist")
With targetSheet
LastRow = .Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).Row
End With
targetSheet.Range("C" & LastRow, "U" & LastRow).Value = sourceSheet.Range("I3", "AA3").Value
customerWorkbook.Close False
Exit Sub
Errhandler:
Exit Sub
End Sub
Ik ben druk bezig met een projectje om vanuit een bron document, andere documenten(lees andere workbooks) van gegevens te voorzien en daarmee door te kunnen rekenen. (Bijvoorbeeld vanuit een excel bestand genaamd "Prijslijst" gegevens de exporteren naar andere excel bestanden "Prijscalculatie" & "Omzet begroting" etc.. Nu ben ik op het spoor gekomen dat dit middels VBA wellicht mogelijk is.
Nu ben ik de volgende codering op het spoor gekomen, echter weet ik niet hoe ik deze moet toepassen op de "file paths"
Mijn vraag heeft dus betrekking op:
1. Hoe vul ik de "file path" naar de workbook in, en daarbij ook toegewezen op een worksheet.
2. Hoe vul ik dezelfde gegevens in, dan echter het ontvangende worksheet. (omdat ik dit in de target workbook invul, neem ik aan dat ik hiervoor de filepath niet voor hoef in te vullen)
3. Hoe bepaal ik de range (ik wil namelijk meerdere kolommen en rijen importeren)
4. Hoe zorg ik ervoor dat deze, middels het bladeren tussen worksheets de pagina word geupdate.
Ik hoop dat jullie mij verder kunnen helpen, ik kom er namelijk niet meer uit met mijn beperkte kennis van excel.
Sub Import()
Dim customerBook As Workbook
Dim filter As String
Dim caption As String
Dim customerFilename As String
Dim customerWorkbook As Workbook
Dim targetWorkbook As Workbook
Dim LastRow As Long
Set targetWorkbook = Application.ActiveWorkbook
Application.ScreenUpdating = False
filter = "Text files (*.xls),*.xls"
caption = "Please Select an input file "
customerFilename = Application.GetOpenFilename(filter, , caption)
On Error GoTo Errhandler
Set customerWorkbook = Application.Workbooks.Open(customerFilename)
Dim targetSheet As Worksheet
Set targetSheet = targetWorkbook.Worksheets("OTP")
Dim sourceSheet As Worksheet
Set sourceSheet = customerWorkbook.Worksheets("Checklist")
With targetSheet
LastRow = .Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).Row
End With
targetSheet.Range("C" & LastRow, "U" & LastRow).Value = sourceSheet.Range("I3", "AA3").Value
customerWorkbook.Close False
Exit Sub
Errhandler:
Exit Sub
End Sub
Gegevens importeren vanuit een ander excel werkboek
Inscription à :
Publier les commentaires (Atom)
0 commentaires:
Enregistrer un commentaire